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ABSTRACT 


This  volume  of  the  DELFIC  (Defense  Land.  Fallout 
Interpretive  Code)  documentation  is  intended  to  serve  as  a 
complete  operator's  manual  to  be  used  at  a  computing  center  by 
personnel  responsible  for  the  execution  of  production  computa¬ 
tions.  It  includes  material  presented  in  the  program  Descrip¬ 
tion  and  User  Information  Sections  of  Volumes  II  through  VI. 

In  addition  to  this  material  it  also  contains  detailed  informa¬ 
tion  on  certain  aspects  of  the  DELFIC  system  that  could  not 
appropriately  be  included  elsewhere ,  It  is  assumed  that  the 
user  is  familiar  with  the  IBSYS  operating  system  of  the  IBM 
7094. 


FOREWORD 


This  volume  constitutes  a  complete  rewriting  and 
updating  of  the  Volume  VII  Draft  prepared  by  Technical  Opera¬ 
tions,  Incorporated,  with  the  original  draft  serving  as  an 
effective  outline.  During  the  course  of  the  construction  of 
this  Operator's  Manual  much  information  has  been  gleaned  from 
a  variety  of  sources. 

The  author  would  like  to  express  his  appreciation 
to  Mr.  R.  C.  Tompkins  of  this  Laboratory  for  his  invaluable 
technical  assistance  concerning  the  details  of  machine  imple¬ 
mentation  of  the  DELFIC  code. 
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DEPARTMENT  OF  DEFENSE 
I  AND  FALLOUT  PREDICTION  SYSTEM 


1.  INTRODUCTION 

This  volume  is  intended  to  serve  as  a  complete 
operator's  manual  to  be  used  at  a  computing  center  by 
personnel  responsible  for  the  execution  of  production  com¬ 
putations.  It  includes  material  presented  in  the  Program 
Description  and  User  Information  Sections  of  Volumes  II 
through  VI.  In  addition  to  this  material,  it  also  contains 
detailed  information  on  certain  aspects  of  the  DELFIC  system 
that  could  not  appropriately  be  included  elsewhere. 

In  the  following  sections  we  describe  how  the  com¬ 
plete  DELFIC  system  is  organized  for  operation  on  the  IBM 
7094  computer  under  control  of  the  IESYS-IBJOB  processor. 

Any  user  must  become  thoroughly  familiar  with  this  material 
before  he  attempts  to  run  the  system  on  the  IBM  709k  computer 
or  on  any  other  computer. 

1.1  Modularity  and  Overlay  Structure. 

The  DELFIC  System  has  been  prepared  with  the  FORTRAN  IV 
language  and  has  been  organized  into  six  distinct  portions 
(modules)  which  perform  the  computations  associated  with  various 
portions  of  the  fallout  process.  Each  of  the  s:v  modules  is 
controlled  by  its  own  executive  program  to  coordinate  and 
direct  the  calculations  required  within  each  of  the  fallout 
stages.  The  entire  collection  of  modules  is  linked  together 
by  a  single  main  executive  program  (M3). 

The  DELFIC  system  is  executed  under  control  of  the 
IBSYS-IBJ0B  Processor  on  the  IBM  709k  computer  and  makes 
extensive  use  of  the  overlay  and  labeled  C0MM0N  features  of 
the  processor.  Figure  1.1  has  been  prepared  to  aid  the  user 
in  understanding  just  how  DELFIC  uses  these  features  and  how 
it  represents  the  many  states  of  computer  memory  during  a 
complete  run  (beginning  on  the  left  with  the  Initial  Conditions 
Module  and  ending  on  the  right  with  the  Output  Processor 
Module).  The  top  of  the  figure  represents  the  low-numbered 
end  of  memory  and  the  bottom  represents  the  high-numbered  end. 

At  the  top  of  the  figure  the  area  marked  SYSTEM  represents 
abo’l  3nC000t»i  words  of  memory  taken  by  the  processor  during 
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figure  1.1  Memory  organization  of  DSJFIC. 
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program  execution.  The  memory  used  by  DELFIC  begins  just 
below  this  system  area.  C0MM0N  /SETl/  is  a  small  set  of  C0MM0N 
potentially  available  to  ail  programs  of  DE1FIC.  Loaded 
numerically  just  above  C0MM0N  /SETl/  is  the  DELFIC  executive 
program  (M3),  tne  generalized  error  stop  program  ERR0R,  and  all 
required  F0RTRAN  IV  library  subroutines.  All  of  the  foregoing 
remain  in  memory  throughout  an  execution  of  DELFIC.  ' 

The  memory  addressed  numerically  upward  (downward  in 
Figure  l.l)  from  the  location  marked  0RIGIN  ALPHA  is  used 
repetitively  to  store  the  programs  and  data  of  the  various 
other  subroutines  of  DELFIC  on  a  time-shared  basis.  The 
execution  of  a  complete  DELFIC  run  proceeds  as  follows: 

First ,  C0MM0N  /SETl/  is  defined  and  the  executive 
program,  the  generalized  error  stop  program,  and  the  system 
subroutines  are  loaded.  Then  FAIRAT  is  loaded  from  0RIGIN 
ALPHA.  Next,  LINK1  and  its  associated  subroutines  sire  loaded 
starting  at  0RIGIN  BETA  and  executed.  The,  LINK2,  its 
associated  subroutines ,  and  dummy  UNK3  are  loaded  into  memory 
starting  once  again  from  0RIGIN  BETA,  thus  destroying  the  LINK1 
code  but  not  the  LINK1  results  which  are  recorded  in  C0MM0N 
/SETl/.  LINK2  results  are  recorded  on  magnetic  tape  (IRISE). 
LINKU  and  WNDSFT  are  then  loaded  from  0RIGIN  BETA,  all  the 
codes  of  LINK2  being  destroyed  in  the  process.  When  LINK4 
has  been  executed  and  its  results  written  on  tape  (JPARIN), 
C0MM0W  /SET2/,  DUMPP,  and  RDT0P0  are  loaded  from  0RIGIN  BETA. 
LINK5 ,  LINK6 ,  and  LINK7  are  loaded  in  sequence  from  0RIGIN 
GA’:iA  as  many  times  as  are  required  for  the  execution  of  the 
transport  module.  All  communication  among  them  is  carried 
out  via  the  C0MM0N  blocks.  Communication  to  the  next  module 
is  by  tape  IP0UT.  During  execution  of  the  two  parts  of  the 
output  processor  and  the  two  parts  of  the  particle  activity 
module,  0RIGINS  ALPHA,  DELTA,  and  EPSIIN  are  used,  and 
interprogram  communication  is  provided  by  the  C0MM0N  blocks 
shown  in  Figure  1,1. 

It  should  be  noted  that  IBJ0B  uses  the  memory 
numerically  above  the  highest  addressed  program  for  certain 
required  input-output  buffers.  In  total,  considerable  memory 
space  is  preempted  by  IBSYS-IBJ0B.  The  execution  of  DELFIC 
is  restricted  to  machine*  having  at  least  32,768  core  memory 
words,  at  least  six  tape  units,  and  an  on-line  printer. 


1.2  Execution  Time. 


«#► 

*.  T 


The  DELFIC  programs  described  here  have  been  executed 
in  both  Models  I  and  II  of  the  IBM  7094  computer.  It  has  been 
observed  that  on  the  IBM  7094  Model  II  a  reasonably  taxing 
execution  involving  about  twelve  thousand  cloud  subdivisions 
in  transport  for  a  1  kt  detonation  will  take  about  15  minutes 
to  proceed  through  the  six  modules,  whereas  for  a  15  Mt  detona¬ 
tion  with  191,000  cloud  subdivisions  the  calculations  through 
the  transport  module  (LTNK7)  required  3.6  hours. 

Execution  times,  particularly  of  LINKS  4  and  9,  are 
very  much  data-dependent  and  should  be  estimated  with  extreme 
caution.  In  general  the  execution  times  of  these  programs  will 
increase  with  tne  number  of  cloud  subdivisions,  the  number  of 
wind  field  updatings ,  and  the  number  of  map  grid  points  that 
are  printed.  Experience  has  indicated  that  the  execution  time 
for  LINK9  (Output  Processing)  will  run  about  15  minutes  for 
each  large  scale  map  printed  A  considerable  decrease  in  running 
time  is  to  be  expected  if  DELFIC  is  modified  for  use  in  a 
machine  having  primary  memory  larger  than  32,768  words  or  having 
high-speed  peripheral  storage. 

1.3  Modifications  for  Different  Machines. 

1.3.1  Larger  Core  Memory.  For  computers  with  more 
than  32K  core  memory,  efficiency  can  be  gained  by  expanding 
certain  arrays.  In  the  transport  Module  (fourth  0RIGIN  BETA, 
starting  from  DUMP?),  increase  the  dimensions  of  XP,  YP,  ZP, 

IMAS,  TP,  and  PS,  now  set  at  200.  Correspondingly,  the  value 
of  NAL0FT  should  be  set  higher  at  Sequence  No.  396  of  UNK5. 

In  the  Output  Processor  (second  0RIGIN  ALPHA,  starting  from 
BATMAN),  increase  the  dimensions  of  FMAS,  KTR,  PS,  T,  X,  and 
Y,  now  set  at  500,  in  C0MM0N/SET3/.  (in  BATMAN,  C0MM0N/SET3/ 
has  only  one  dummy  array  which  must  absorb  the  total  increase.) 
Correspondingly  increase  the  value  of  MARFAY  at  Sequence 

No.  190  in  UNK8.  In  the  second  0RIGIN  DELTA,  starting  from 
LINK9,  increase  the  diuiension  of  0MAP  in  C0MM0N/SET4/,  now 
set  at  4000,  along  with  the  value  of  NMAP  at  Sequence  No.  192 
in  UNK8.  These  modifications  will  reduce  the  use  of 
peripheral  storage  called  for  by  the  open-ended  programming. 

1.3.2  Smaller  Available  Core  Memory.  Some  installa¬ 
tions  have  larger  blocks  of  utility  programs  permanently  in 
memory  than  others.  The  largest  overlay  segment  is  the  third 
0RIGIN  ELiA,  starting  from  UNK4.  If  this  segment  exceeds 
available  memory,  the  program  should  be  modified  to  make 
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LINKU  a  simple  execv.tive  program  calling  WND5FT  and  a  new 
subroutine  comprising  the  computation  portion  of  LINK4 .  These 
subroutines  could  then  <~'erlay  each  other  at  a  new  j/RIGIN, 
communicating  by  a  new  C0MM0N  block. 

1,3.3  High-Speed  Peripheral  Storage  If  disc  or 
drum  storage  is  available ,  see  the  section  on  File  Units  for 
suggested  modifications. 


2.  PROGRAM  AND  INPUT  SUMMARY 
2,1  The  Executive  Program. 

The  executive  program  (M3)  of  DELFIC  is  the  only 
"main"  program  in  DELFIC,  and  all  other  programs  called 
directly  or  indirectly  by  it  are  subroutines.  The  executive 
is  small  and  remains  in  core  memory  at  all  times  during 
execution.  Thus,  it  is  well  situated  to  call  for  the  execu¬ 
tion  of  the  various  DEIFIC  modules ,  each  of  which  was  written 
more  or  less  independently  to  use  nearly  the  full  capability 
of  the  computer.  It  is  also  well  situated  to  ''ontrol  the 
action  of  computer  operators  as  needs  arise  for  data  tapes 
to  be  mounted  or  dismounted.  It  is  antic ipaced  that  this 
program,  already  in  its  third  version,  will  be  ore  of  the 
more  frequently  modified  programs  of  DELFIC. 

Figure  2.1  presents  the  normal  flow  sequence  of  the 
DELFIC  executive  program.  The  main  executive  program  reads 
two  cards  -  the  first  of  which  must  always  he  on  logical  5* 
This  card  assigns  the  logical  file  for  the  utility  input  unit, 
ISIN.  The  format  is  (16X,  12)  and  it  is  conveniently  punched, 
beginning  in  column  1,  as 

ISIN  IS  L0GICAL  nn 

where  nn  is  the  assigned  number.  The  second  card  determines 
which  modules  are  to  be  executed  and  is  read  from  ISIN.  The 
beginning  and  ending  modules  are  punched  in  format  (12X,  12, 
6X,  12).  A  convenient  form,  beginning  in  column  1,  is 

USE  M0DULES  XX  THRU  YY 

which  causes  the  execution  of  DEIFIC  to  commence  at  LINKXX 
and  continue  in  normal  sequence  through  LINKYY.  Before 
actually  calling  each  module ,  the  executive  prints  on-line 
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Figure  2.1  Normal  flow  sequence  of  DELJPIC  executive  program  M3 


and  off-line  the  comment  "ENTERING  LINKNII"  where  M  is  the 
number  of  me  module  about  to  be  executed. 

2.2  Initial  Conditions. 


The  Initial  Conditions  Module  computer  program 
consists  of  an  executive  program  ( LINK i }  vnd  five  computation 
subroutines.  The  Initial  Conditions  Module  is  designed  for 
two  purposes.  First,  it  can  be  used  merely  to  compute  and 
print  the  values  of  initial  condition  parameters  for  an 
unlimited  number  of  data  sets.  Second,  it  can  compute  a  single 
set  of  parameter  values  and  then  cause  cloud-rise  computations 
to  proceed.  A  flow  chart  of  the  Initial  Conditions  Module 
computer  program  logic  is  presented  in  Figure  2.2.  Because 
J-INK1  executes  so  quickly,  no  storage  of  intermediate  results 
on  tape  is  necessary. 

The  following  inputs  to  the  Initial  Conditions 
Module  are  required: 

1 .  Weapon  yi eld . 

2.  Height  of  burst. 

3.  Type  of  soil  (siliceous  or  calcareous). 

1.  Pre-shot  soil  size  -  frequency  distribution. 

2.3  Cloud  Rise. 


The  Cloud  Rise  Module  computes  histories  of  the  rice , 
growth,  temperature,  and  composition  of  a  nuclear  cloud 
throughout  virtually  the  entile  period  of  its  rise.  The 
calculations  are  directed  by  the  cloud  rise  executive  program 
(Lir:..2)  and  can  be  considered  to  be  divided  into  three  parts. 
The  first  is  carried  out  by  subroutine  CRM  a^l  its  associated 
programs;  the  second  is  carried  out  by  sub1 2 3 * 5 6  outine  GPSD;  the 
third  is  carried  out  by  sub^^utine  RSXf  ana  Its  subprograms. 

Communication  between  the  Cloud  Rise  Module  and 
other  DEIFIC  modules  is  accomplished  via.  stor^g.j  and  magnetic 
tape.  All  inputs  from  the  Initial  Conditions  Module  are 
transmitted  via  C0MM0N/SET1/.  In  addition  to  the  LINK1 
inputs,  the  following  information  must  be  sip;  lied: 

1.  Elevation  of  ground  zero. 

2.  Coil  solidification  temperature. 

3.  Fission  yield. 

1.  Altitude  of  tropopause. 

5,  Fallout  particle  density. 

6.  Atmosphere  data. 


Figure  2.2  Flow  chart  of  the  initial  conditions  module 
computer  program  logic  (LiNKl). 


2 . 4  Cloud  Rise  -  Transport  Interface . 

The  Cloud  Ris-.  -  Transport  Interface  Program  consists 
of  an  executive  program,  LINK4,  and  subroutine  WNDSFT.  The 
Cloud  Rise  -  Transport  Interface  Module  (CRTIM)  was  originally 
constructed  to  create  a  three-dimensional  input  for  the 
Transport  Module  from  a  detailed  two-dimensional  cloud-rise 
calculation.  The  CRTIM  is  designed  to  accomodate  both  a  two- 
and  three-dimensional  spatial  distribution  of  particles  as 
input.  For  the  latter  case,  the  only  work  required  of  the 
CRTIM  is  to  correct  the  horizontal  coordinates  of  the  particles 
for  wind  drift  during  cloud  rise.  In  the  present  version  of 
DEIFIC,  the  Cloud  Rise  Module  provides  Inputs  to  the  CRTIM  in 
this  form,  and  it  is  not  necessary  to  exercise  the  major  part 
of  the  CRTIM.  An  organizational  chart  of  program  LINK4  is 
presented  in  Figure  2.3.  In  accordance  with  the  present  DELFIC 
system,  option  (a)  in  that  figure  is  executed. 

The  inputs  to  the  CRTIM  come  from  C0MM0N  Core  storage , 
from  binary  mode  magnetic  tape  written  in  LINK2,  and  from  cards 
via  the  IBSYS  system  input  tape.  The  externally  supplied  data 
(the  latter  of  the  three  input  categories)  includes  the  follow¬ 
ing  information: 

1.  Location  of  ground  zero. 

2.  Detonation  time. 

3.  Wind  field  data. 

2.5  Atmospheric  Transport. 

The  Transport  Module  essentially  consists  of  three 
major  program  sections  : 

LINK5:  Initialization  and  control. 

LINK6:  Wind  field  description. 

LIHK7 :  Particle  transport. 

Figure  2.4  shows  the  arrangement  in  which  the  computations 
required  during  the  transport  period  are  grouped  for  execu¬ 
tion.  Note  that  fineil  exit  from  LINK5,  the  transport  executive, 
is  made  to  a  program  called  LINK8  -  the  Output  Processor. 

Two  basically  different  forms  of  topography  in 
regions  not  covered  by  local  circulation  systems  may  be 
specified  for  use  by  the  Transport  Module.  They  are 
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Figure  2.3  Gross  organizational  chart  of  program  LINK4. 


Figure  2.4  Program  arrangement  for  the  transport  module. 


17 


referred  to  here  as  fully  planar  topography  (a  single  plane), 
and  piecewise  planar  topography  (many  segments  of  planes).  In 
the  fully  planar  option,  the  program  merely  reads  from  a  card 
the  height  erf  the  planar  topographic  surface  and  U3es  it 
throughout  transport.  If  the  piecewise-planar  option  is 
specified,  the  program  expects  that  a  topographic  data  ta;-': 
has  been  prepared  and  ‘.a  available  for  use. 

The  Transport  Module  obtains  information  from  the 
preceding  module  via  a  binary  tape  output  in  addition  to  card 
inputs  read  from  the  system  input  tape.  The  card  input 
includes  a  transport  time  limit  as  well  as  various  sets  of 
wind  field  data. 

2.6  Far  tide  Activity  Module. 

The  function  of  the  Particle-Activity  Module  (PAM) 
is  to  generate  a  table  of  activity  versus  particle  size  for 
DEITIC .  Unlike  other  fallout  prediction  systems  that  input 
a  wholly  empirical  particle-activity  distribution,  UEIFTC , 
by  means  of  the  BAM,  uses  a  model  of  radiochemical  fractiona¬ 
tion.  DELFIC  also  differs  from  other  fallout  models  in  that 
it  does  not  approximate  fission-product  decay  by  the  t"a 
relationship.  The  PAM  rigorously  computes  the  decay  of  each 
fission  product  by 

The  BAM  has  the  following  inputs: 

1.  A  table  of  the  radioactive  transitions  of  the 
fission  products,  including  half-lives  and  branching  ratios. 

2.  A  table  of  fission  yields  fw  the  selected  type 
of  f is. 'tion. 

3.  A  table  of  exposure-rate  multipliers. 

4.  A  table  of  soil  constituents  and  their  nuclear 
properties. 

5.  The  number  of  neutrons  emitted  per  fission  and 
the  capture-to-fission  ratio. 

6.  The  weapon  yield  and  height  of  burst. 

7.  The  solidification  temperature  of  the  soil  and 
the  time  at  which  the  cloud  reaches  that  temperature. 

8.  Ifce  particle-size  distribution. 

The  first  four  of  these  are  direct  card  (or  tape)  inputs; 
the  rest  are  supplied  by  other  modules  of  DELFIC. 

The  output  of  the  PM  depends  upon  user  options. 
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The  PAM  is  divided  into  two  sections.  The  time- 
independent  section  resides  in  LINK8  and  is  executed  only 
oner  for  each  set  of  burst  conditions.  The  time-dependent 
seci  ion  is  included  in  UNK9  and  rosy  be  executed  repetitively 
during  output  processing. 


The  Output  Processor  consists  of  two  control  programr 
and  eleven  subroutines.  An  extremely  brief  statement  of  the 
purposes  of  these  programs  is  set  forth  in  Table  2.1.  In 
addition,  the  Particle  Activity  Module  subroutines,  PAM1  and 
EAM2  (see  Volume  V  of  this  documentation),  are  called  within 
the  Output  Processor. 


It  is  suggested  that  the  first  things  to  be  done  in 
an  unfamiliar  prediction  situation  are  to  have  the  Output 
Processor  print  a  hard  copv  of  the  grounded  particles  tape, 
and  in  addition,  to  call  for  a  large-scale  map  to  provide  an 
overview  of  the  fallout  field.  Both  of  *ibese  tasks  can  be 
carried  out  in  the  execution  run  that  does  the  transporting. 
The  grounded  particles  tape  produced  by  the  Transport  Module 
and  used  by  the  Output  Processor  in  the  initial  run  may  be 
saved  and  reused  in  subsequent  runs  of  the  Output  Processor 
and  Particle  Activity  Modules  to  produce  any  additional  maps 
desired.  In  order  to  specify  the  first  set  of  tasks,  the 
user  must  set  about  a  dozen  control  parameter  values.  One 
parameter  (lC(l8)  >  0)  causes  the  grounded  particles  tape  to 
be  printed.  Another  (IC(17)  =  0)  causes  processing  to  con¬ 
tinue  after  that  printing  has  been  finished.  Four  others 
(XMIN,  XMAX,  YMIN,  YMAX)  give  the  coordinate  limits  of  the 
desired  map.  Two  others  (DGX  and  DGY )  give  the  map  point 
grid  intervals  in  the  X  and  Y  directions.  One  other  specifies 
that  the  map  should  be,  for  example,  a  map  of  exposure  rate 
"normalized"  to  H  +  1  hour  (NHEQ  =2). 


In  the  second  and  subsequent  execution  runs  after 
the  printed  list  of  grounded  particles  and  the  large-scale 
map  have  become  available ,  the  user  may  request  that  any 
number  of  more  detailed  maps  be  printed.  These  larger  and 
more  precise  maps  can,  of  course,  portray  any  of  the  possible 
output  quantities  of  the  DEIFIC  system. 


Figure  2.5  illustrates  how  a  user  may  arrange  his 
requested  map  areas  and  scale  factors  to  expose  prediction 
details  of  interest  to  him.  Area  coverages  aal  map  dimen¬ 
sions  shown  are  merely  illustrations  and  in  no  sense  are 


TABLE  2.1  OUTPUT  PROCESSO?  PROGRAM  SYNOPSIS 


Program 

Name 

Purpose 

LINK3 

Initialization  and  liaison  with  subroutine  PAM1 
(Particle  Activity  Module)  and  LINK9. 

LINK9 

Interpret  grounded  particles  into  the  output  map 
array  and  call  PAM2  (Particle  Activity  Module) 
for  particle  activities  or  mass  chain  concentra¬ 
tions. 

CALC 

Interpret  grounded  particles  into  the  map  array. 

COUNT 

Select  the  largest  sorted  data  set  for  dumping 
onto  memory  tape. 

CROP 

Subordinate  control  routine  which  cedis  SHIFT  to 
clear  out  most  of  the  particles  array  after  a 
pass  of  the  data  tape  hem  been  completed. 

D1TUZ1 

Expands  cloud  subdivision  areas  to  account  for 
diffusion. 

LETSGO 

Control  routine  for  the  situation  in  which  sort¬ 
ing  onto  tape  is  required. 

MAP 

Display  the  Output  (Print  the  Map). 

PROC 

Subordinate  control  routine  which  eliminates 
unneeded  particles ,  sorts  and  counts  other 
particles,  and  calls  CALC  to  interpret  those 
falling  within  the  current  map  area. 

RUN1 

Control  routine  for  the  situation  in  which  no 
data  seating  onto  tape  is  required. 

SHIFT 

Collects  a  selected  set  of  particle  descriptions 
and  writes  them  onto  memory  tape. 

SLIDE 

Slides  the  content  of  the  right  buffer  zone  over 
to  the  left  zone  in  preparstion  for  processing 
the  next  map  zone. 

ZERO 

Collects  bank  lines  at  the  top  of  the  particles 
arrays  in  preparation  Tor  reading  in  more  particle 
descriptions , 

meant  to  imply  any  restrictions  in  the  use  cf  tr.e  Output 
Processor  since  their  characteristics  are  completely  under 
the  control  of  the  user.  Map  1  is  a  large-s iale  overview 
that  indicates  the  shape  and  location  of  the  fallout  field, 
but  is  necessarily  crude  because  it  is  small  (2x2  feet)  and 
thus  contains  a  small  numb .x  of  points.  Maps  2,  3>  and  4 
represent  much  more  precisely  the  predicted  fallout  field 
within  10  miles  of  ground  zero.  They  are,  for  example, 

6  by  6  feet  in  size  and  contain  nine  times  as  many  data  points 
as  the  overview  (Map  l) ,  but  represent  an  area  of  the  fallout 
field  less  than  one- tenth  as  large  as  the  overview.  They 
may,  for  instance,  portray  predictions  of  mass  deposition, 
exposure  rate  at  H  +  2  hours ,  and  the  concentration  of  mass 
chain  89.  Maps  5  and  6  continue  the  representation  of  mass 
deposition  but  do  so  with  less  precision  than  that  of  Map  2 
since  they  are  about  4  feet  long  and  cover  larger  fallout 
areas. 


MAP  6,  4x2  ft 
MAP  5,  4x2  ft 


MAPS  2,  3,  4 
Close-In 
Details ,  6x6  ft 

MAP  1 

Overview,  2x2  ft 


Figure  2.5  Map  coverage  example. 
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The  task  of  arranging  the  card  inputs  to  the  Output 
Processor  is  not  a  complex  one ,  but  it  does  require  that  the 
user .make  certain  decisions  about  what  he  wishes  to  have 
portrayed  and  how  ne  wants  it  to  be  portrayed.  He  should 
know  what  coordinates  were  used  to  identify  the  location  of 
ground  zero  within  the  transport  module.  He  should  know 
that  all  distances  (coordinates)  are  measured  in  meters 
from  the  same  coordinate  origin.  He  should  have  at  least 
a  rough  idea  of  the  direction  of  the  winds.  Beyond  that y  he 
need  only  know  which  of  the  display  options  he  wants  portrayed. 

The  map  produced  by  the  Output  Processor  will  con¬ 
sist  of  a  sequence  of  numbered  "strips"  of  printer  paper  that 
can  be  detached  at  the  boundaries  between  successive  strips 
and  assembled  side-by-side  into  a  single  map  of  the  overall 
area  covered  by  the  specified  map  limits.  When  so  assembled 
(the  strips  are  numbered  in  sequence  from  left  to  right)  and 
hung  on  the  wall  for  viewing,  the  data  point  with  maximum  X 
and  minimum  Y  coordinates  will  be  found  in  the  lower  left  hand 
corner  of  the  map  (i.e . ,  the  lower  left  hand  corner  of  strip 
number  one).  The  coordinates  of  this  point  will  be  (XMIN 
DGX,  YMIN  +  DGfY).  This  point  need  not  be  either  the  origin 
of  coordinates  or  ground  zero. 

2.8  Map  Processing  with  Multiple  Burst  Options. 

The  map  processing  capability  of  DEIFIC  provides  a 
means  whereby  small  numbers  of  maps  resulting  from  either  the 
same  or  different  Output  Processor  runs  may  be  combined.  The 
map  processor  allows  the  user  to  do  such  things  as  predict 
the  radiological  effect  of  multiple  bursts ,  predict  the  ratios 
of  the  concentrations  of  pairs  of  nuclides  in  the  fallout 
particles  at  each  map  point-  and  predict  other  ratios  of 
interest.  For  example,  if  he  wishes  to  achieve  a  multiple 
burst  prediction,  the  user  must  have  previously  run  the  Output 
Processor  Module  with  a  specification  that  the  multiple  burst 
option  is  to  be  exercised  for  each  one  of  the  weapons  (or 
ground  zeros)  that  he  wishes  to  combine.  This  option  (JC(l)  =  3) 
causes  a  binary  map  tape  to  be  written  automatically  so  as  to 
contain  all  the  information  normally  printed  on  the  map  pro¬ 
duced  by  DELFIC.  A  subsequent  execution  of  the  Program  MULTIB 
performs  the  actual  addition  of  two  map  tapes  and  either  prints 
the  summed  map,  writes  a  third  map  tape  that  contains  the 
siunaed  map  so  that  other  burst  effect  maps  may  be  added  to  it, 

•or  both  prints  and  writes.  For  multiple  burst  predictions, 
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program  MULTIB  simply  adds  two  DELFIC  maps  together  (as  is 
done  for  a  pair  of  two-dimensional  matrices)  and  either 
prints  the  resulting  map  or  writes  it  out  onto  tape  for  sub¬ 
sequent  use. 

Implicit  ir  the  notion  of  simply  adding  maps 
together  is  the  as sumption  that  there  is  no  interaction 
between  the  processes  that  arc  being  modeled.  Clearly,  if 
weapons  detonate  too  close  together  in  space  and  time, 
there  will  be  circulation  interaction.  Thus  it  should  be 
clearly  understood  that  the  DELFIC  multiple  burst  capability 
is  appropriate  only  for  detonations  that  are  not  too  close 
to  each  other  in  space  and  time.-  In  addition  to  this 
restriction  on  the  multiple  burst  "model"  there  are  other 
restrictions,  perhaps  loss  permanent  but  equally  real,  due 
to  the  mechanism  that  is  provided  for  map  additions.  As 
in  matrix  addition,  where  the  matrices  to  be  added  must 
be  of  the  same  order,  the  maps  must  be  made  up  of  the  same 
number  of  rows  and  columns  of  numbers.  Furthermore,  the 
manner  in  which  the  map  data  is  structured  ic  it  is  written 
onto  tape  (by  the  Output  Processor)  must  be  ;dentical  for 
all  maps  to  be  added.  For  this  purpose  map  pairs  are  con¬ 
sidered  to  be  identically  structured  if  the  corresponding 
values  of  XMAX-XMIN,  YMAX-YMIN ,  DGX,  and  DGY  are  equal  for 
the  members  of  the  pair.  Also,  the  maps  to  be  added  should 
obviously  be  logically  addable,  i.e.  one  should  not  attempt 
to  add  doses  to  dose  rates  or  concentrations  to  wafer  counts. 

It  should  be  noted  that  the  addition  program  does 
not  require  that  the  map  tape  pairs  be  produced  with  identical 
map  coordinate  coverage.  While  MULTIB  might  have  been  easily 
written  to  preclude  attempts  to  add  together  maps  covering 
different  grid  points  (but  having  the  same  size  and  shape), 
it  was  felt  that  to  do  so  would  have  been  unduly  restrictive. 
Therefore',  the  researcher  may,  if  he  wishes,  effectively 
add  a  deposition  pattern  to  itself,  offset  to  any  desired 
degree  b"  means  of  separate  Output  Processor  runs ,  without 
rerunning  the  time-consuming  transport  program. 

As  it  was  originally  written,  MULTIB  had  only  one 
purpose  -  to  provide  a  multible  burst  prediction  capability. 
However,  it  was  soon  recognized  that  MULTIB  was  well  situated 
to  do  a  number  of  other  things  of  value  and  so  MULTIB  was 
expanded  and  to  some  extent  generalized.  In  addition  to 
computing  simple  runs  of  corresponding  map  ordinates  (map 
addition) ,  it  was  given  the  ability  to  do  pair-wise  subtractions , 


multiplications,  and  divisions  or  to  sinply  redisplay  a  map 
unmodified.  Also,  room  was  left  for  the  user  to  define  other 
pair-wise  operations  through  either  modifications  to  MULTIB 
or  through  the  use  of  a  special  purpose  subroutine  MBFR0C. 

With  regard  to  the  input  of  maps  for  combination, 
MULTIB  was  arranged  so  that  it  can  receive  its  maps  from 
either  one  tape  or  two  tapes.  In  either  case  the  input  tapes 
may  contain  more  than  one  map  image  -  the  user  must  merely 
identify  which  one  or  ones  he  wishes  to  be  processed  by 
indicating  their  sequential  position  numbers.  This  feature 
greatly  facilitates  the  computation  of  nuclide  ratio  maps 
and  similar  displays  since  a  single  run  of  the  Output 
Processor  can  place  all  of  the  needed  "component"  maps  onto 
one  multiple  burst  tape  which  might  then  be  used  by  MULTIB 
to  produce  all  desired  combination  maps  in  a  single  run. 

Details  of  the  Operation  of  Program  MULTIB.  The 
card  inputs  to  MULTIB  consist  of  (l)  a  run  identifier  card, 
(2)  a  control  integer  array  card,  and  (3)  a  series  of  opera¬ 
tion  request  cards.  Table  2.2  summarizes  the  MULTIB  and 
inputs.  The  first  input  card  is  merely  for  user  convenience 
in  identifying  outputs.  The  second  card  contains  an  array 
of  control  integers  which  the  user  must  use  carefully.  Their 
meanings  are  as  follows: 


TABLE  2.2  CARD  INPUTS  FOR  PROGRAM  MULTIB 


Card 

Number 

Content 

Variable  Names 

Format 

1 

72  character  run 
identifier 

RUNID(12) 

(12A6) 

2 

Control  integer 
array 

IC (18) 

1814 

3 

Request  Card 

C1,ML,N0P,M2,C2, 

F10. 3,315, 

1 

t 

t 

t 

NDIS 

1 

t 

F10.3,10X,1'5 

1 

f 

1 

LAST 

? 

Termination  card  (Blank) 

t 

2k 


IC(l)  =  0  Generate  a  printed  map  only. 

1  Generate  a  binary  tape  image  only. 

2  Generate  both  a  printed  map  and  a  binary 
tape. 

IC(2)  =  Logical  identification  numbers  of  the  tape 
drive  having  "  s  first  multiple  burst  tape. 

If  IC (2 )  is  not  set ,  the  program  will  use 
logical  11. 

IC(3)  =  Logical  identification  number  of  the  tape 

drive  having  the  second  multiple  burst  tape. 
IC(3)  set  negative  is  used  to  indicate  that 
only  one  multiple  burst  tape  is  to  be  used. 

If  IC(3)  is  set  to  zero,  the  program  will 
expect  the  second  multiple  burst  tape  on 
logical  11. 

IC(4)  =  Logical  identification  number  of  a  tape 
available  as  a  scratch  tape. 

The  third  and  subsequent  cards  are  all  the  same  form.  Each 
of  them  (except  the  last)  instructs  MULTIB  to  carry  out  some 
processing  task  in  which  the  parameters  Cl,  Ml,  1$P,  M2,  C2, 
and  NDIS  are  interpreted  as  follows : 

Cl  is  a  constant  to  be  multiplied  by  each  ordinate 
of  the  first  map, 

C2  is  a  constant  to  be  multiplied  by  each  ordinate 
of  the  second  map. 

Ml  identifies  the  sequential  position  of  the  first 
map  on  the  tape  where  it  is  stored. 

I0P  identifies  the  operation  which  is  to  be  performed 
in  accordance  with  the  following  code 

Operation 

Stop 

Map  addition 
Map  subtraction 
Map  multiplication 
Map  division 

No  operation  -  Display  C1*M1 
Not  defined 

Use  special  subroutine  MBff!0C 


N0P 

0 

1 

2 

3 

4 

5 

6-9 
10  up 


M2  identifies  the  sequential  position  of  the  second 
map  (if  any)  on  the  tape  where  it  is  stored. 

NDIS  is  used  to  charge  the  value  of  the  display  con¬ 
trol  integer  if  it  is  desired  to  charge  it  in  the 
midst  of  a  set  of  processing  requests.  If  NDIS 
is  left  blank  (zero)  no  action  occurs  but  if  NDIS 
is  not  zero,  IC(l)  is  set  equal  to  NDIS  -  1. 

Next  MDLTIB  sets  map  tape  identifiers  INI  and  IN2  and 
rewinds  map  tapes  as  appropriate.  Then  a  request  card  is  read 
and  the  exit  condition  test  is  performed.  If  N0P  is  less  than 
one,  the  program  transfers  to  statement  200  to  exit.  Otherwise 
the  request  data  are  printed  and  then  acted  upon.  lC(l)  is 
reset  to  NDIS  -  1  if  NDIS  was  greater  chan  zero.  Then,  on  the 
basis  of  N0P,  an  assignment  is  given  to  NPR0C  to  bring  about 
the  desired  kind  of  map  processing. 

Beginning  at  statement  310 ,  the  program  makes 
errargements  to  position  the  map  tapes  so  that  the  desired 
map;-  may  be  combined.  If  the  two  maps  to  be  combined  are  on 
separate  tapes ,  these  tapes  are  simply  moved  to  the  correct 
positions.  If  both  maps  are  to  come  from  the  same  tape,  the 
physically  first  of  the  two  desired  maps  is  copied  onto  a 
scratch  tape.  The  scratch  tape  is  rewound  and  the  map  input 
tape  is  moved  to  the  position  of  the  second  desired  map  on  it. 
This  is  done  with  the  subroutine  SKIPP(N,M,  IS0UT)  which  has 
the  function  of  skipping  over  M  map  images  on  tape  N.  During 
the  process  of  positioning  t  pes ,  the  values  of  tape  identifica¬ 
tion  parameters  INI  and  IN2  are  changed  so  that  INI  will 
identify  the  tape  with  map  number  one  (Ml)  on  it  and  IN2  map 
number  two  (M2).  Parameters  INTI  and  INT2  are  used  to  restore 
the  original  state  of  INI  and  IN2  at  the  beginning  of  each 
subsequent  pass. 

After  tapes  are  positioned,  the  program  continues 
at  statement  100  by  rending  and  testing  tape  identifiers  and 
map  parameter  records. 

Actual  map  processing  begins  at  statement  109  where 
a  map  strip  title  is  read.  At  110  a  loop  begins  (to  108)  that 
contains  four  subsections.  The  first  of  these  reads  one  line 
of  map  images  on  tape.  The  second  subsection  is  a  loop  to  105 
which  actually  combines  the  two  maps  by  use  of  parameter 
NPR0C  to  select  the  desired  processing  code.  The  end  result 
of  the  processing  of  chis  map  line  is  left  in  the  array  0MAP. 
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The  third  section  optionally  writes  the  information  in  0MA.P 
onto  a  new  binary  tape  identified  by  I0UT.  The  fourth  and 
final  section  optionally  prepares  the  map  line  array  0MAP 
for  printing  (in  a  two  line  E  Format)  and  then  prints  it. 

When  the  program  finally  exits  the  loop  at  108,  it 
is  finished  with  a  whole  printer  strip  and  goes  back  to  103 
where  it  either  begins  on  the  next  printer  strip  or  recognizes 
the  map  termination  condition  (a  zero  line  count  on  the  input 
map).  When  such  a  termination  is  reached,  a  whole  map  has 
been  finished  and  the  program  transfers  to  3021  where  pre¬ 
parations  are  made  to  start  over  again  with  a  new  processing 
request.  As  mentioned  earlier,  a  final  exit  is  made  when 
the  processing  operation  N0P  £  0  is  encountered. 


3.  FILE  unit;' 

Provisions  for  storing  the  enormous  volume  of  output 
generated  by  the  DLIFIC  program  are  made  by  supplementing  core 
memory  with  magnetic  tape  units ,  thus  permitting  the  use  of 
the  overlay  feature  of  the  processor  while  preserving  large 
quantities  of  computed  "e suits.  The  tape  assignments  of  the 
DEIFIC  system  are  listed  in  Table  3.1.  Three  input  file 
names  are  used  in  DELFTC:  IS  IK,  IKTP,  and  KKD.  The  mnemonic 
KRD  is  used  in  two  ways:  In  the  Cloud  Rise  Module  it  is 
always  synonymous  with  ISIK;  in  the  Particle  Activity  Module, 
KRD  designates  the  file  containing  the  soil  composition. 

INTP  is  used  in  the  Particle  Activity  Module  to  designate  the 
file  containing  a  set  of  invariant  particle  activity  data. 

In  the  Particle  Activity  Module ,  a  control  parameter  equates 
KRD  to  either  ISIN  or  IKTP.  A  second  control  parameter  deter¬ 
mines  whether  IKTP  =  ISIN  or  INTP  is  unique.  The  output  file 
name  used  in  DEEFIC  is  IS^UT  which  carries  the  mnemonic  KTR 
in  the  Cloud  Rise  Module  and  K0UT  in  the  Particle  Activity 
Module . 


It  should  be  noted  that  the  tapes  designated  as 
scratch  tapes  [l,  3,  10,  and  I)?1t(J)]  may  be  replaced  by 

disc  or  drum  units  while  the  restart  assignments  (9  and  11 ) 
must  be  magnetic  tape  if  the  restart  features  are  used.  The 
current  version  of  DELFIC  may  be  restarted  in  one  of  the 
three  locations  listed  in  Table  3*2.  The  binary  records  of 
the  three  tapes  listed  in  Table  3*2  are  presented  in  Tables 
3.3 »  3.^,  and  3.5.  Table  3.6  lists  the  contents  of  the 
optional  binary  tape  MBTAPE. 


TAB  IE  3.1  BELEIC  TAH)  ASSIG] 
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TABLE  3.2  DELFIC  RESTART  LOCATIONS 


Location 

Tape  Required 

LINK4 

IRISE  (LOGICAL  9) 

LINK5 

IPARIN  (LOGICAL  11) 

LINK8 

IP0UT  (LOGICAL  9) 
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4.  INPUT  CARD  DECKS 

The  card  inputs  to  DEIFIC  cannot  be  described  as 
an  invariant  sequence  of  rigidly  defined  data  cards  -  the 
data  sets  going  into  a  DELFIC  run  may  vary  in  both  extent 
and  form  deperviing  upon  which  of  the  program  options  are 
being  exercised.  The  user  must  arrange  the  data  deck  so 
that  the  data  cards  required  by  the  programs  and  options 
that  he  is  using  are  in  the  required,  sequence.  The  flow 
chart  (Figure  4.1)  has  been  prepared  to  aid  the  user  in 
constructing  a  DEIFIC  input  data  deck  for  any  given  set 
of  program  options  that  he  may  desirp  to  exercise.  In  that 
figure,  each  small-numbered  square  represents  a  set  of  data 
cards.  The  entire  DELFIC  data  set  consists  of  a  given 
sequence  of  these  "sub-decks"  beginning  with  Deck  Number  1 
in  the  flow  chart.  The  program  options  are  included  in  the 
flow  chart  and  the  user  should  have  no  trouble  in  tracing 
out  the  correct  sequence  of  decks  to  be  used  far  suiy  given 
set  of  options.  A  detailed  description  of  each  of  the 
sub-decks  appears  on  the  pages  following  the  flow  chart. 
Table  4.1  immediately  following  the  flow  chart  gives  the 
number  of  the  last  sub-deck  required  by  DEIFIC  for  values 
of  LTHRU  +  9- 

TABLE  4.1  TERMINAL  DECK  NUMBERS  FOR  TRUNCATED  DELFIC  RUNS 


LBfflU 

Number  of  Last  Data  Deck 

1 

4  or  5 

2 

6 

3,4 

8 

7 

18 

8 

21  unless  IFTAPE(4)  =  TRUE 
then  20. 
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Figure  4.1  Continued. 


38 


Card  Sequence 

Mnemonic 

Format 

1 

ISIN 

(16X,I2) 

2 

IG0,  LTHRU 

(12X,I2,6X,I2) 

ISIN:  The  logical  file  number  to  ha  assigned  to  the  utility 

input  unit.  This  carl  must  always  be  read  on  logical 
5- 

IG0:  The  number  of  the  LINK  at  which  computations  are  to 

begin.  In  the  current  version  of  DELFIC,  IG0  may  be 
assigned  to  values  1,3, 4, 5,  and  8. 

LTHRU:  The  number  of  the  LINK  through  which  computations  will 

proceed. 


Deck  1  is  read  in  the  DEIFIC  executive  program,  M3. 


Card  Sequence 


Mnemonic 


Format 


BETID (J),  J=1 ,12  12A6 

N  15 


DETID(j):  Arbitrary  72-character  identifier  for  the  Initial 
Conditions  Module.  Ihe  72-character  sequence  will 
appear  in  the  printed  output  exactly  as  it  appears 
on  the  input  card. 

N:  The  number  of  data  sets  for  which  initial  conditions 

calculations  are  desired.  If  the  value  of  N  is  zero 
or  negative,  a  single  data  set  will  b^  expected  and 
after  computation  of  its  initial  conditions,  a 
treusfer  will  be  made  to  LINK2. 


Deck  2  is  read  by  LINK1 


Format 


Card  Sequence 


Mnemonic 


1 


IDISTR 


15 


IDISTR j  Preshot  soil  size-frequency  specification  option 
parameter.  A  value  of  0  selects  the  log-normal 
option  whereas  a  value  of  1  selects  the  tabular 
distribution  option. 


Deck  3  is  read  by  LINK1. 


Card  Sequence 

Mnemonic 

Format 

1 

W,X,U  ,DIAM,SD 

5F10.3 

2 

DMUV 

F10.3 

W:  Total  weapon  yield  in  kilotona. 

X:  Height  of  burst  in  meters.  For  subsurface  bux3ts, 

the  depth  of  burst  is  entered  as  a  negative  number. 

U:  Soil  type  (1.0  indicates  siliceous,  2.0  indicates 

calcareous ) . 

DIAM:  Mean  diameter  of  the  log-normal  preshot  particle  size- 

number  frequency  distribution  in  microns. 

SD:  The  standard  deviation  of  the  log-normal  preshot 

particle  size-number  frequency  distribution. 

DMES:  Mid-range  diameter  of  the  smallest  particle  size  class 

to  be  used  in  representing  the  log-normal  distribution 
(microns ) . 


Deck  4  is  read  by  LXHK1. 
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Card  Sequence 

Mnemonic 

Format 

1 

W,X,U 

3F10.3 

2 

DMIN 

F10.3 

3 

NDSTR 

15 

4,5,... 

WHY (i) ,  1=1, NDSTR 

5F10.3 

W:  Total  weapon  yield  in  kilotons. 

X:  Height  of  burst  in  meters.  For  subsurface  bursts, 

the  depth  of  burst  is  entered  as  a  negative  number. 

U:  Soil  type  (1.0  indicates  siliceous,  2.0  indicates 

calcareous ) . 

DMIN:  Mid-range  diameter  of  the  smallest  particle  size 

class  to  be  used  in  the  tabular  representation  of 
ihe  particle  size-mass  frequency  distribution. 

NDSTR:  Number  of  entries  in  the  particle  size-frequency 

table  (NDSTR  £  40). 

WHY (i) :  Particle  size-mass  frequency  table  with  five  entries 
per  card.  Each  entry  represents  a  macs  fraction  as 
discussed  below. 

The  tabular  distribution  must  be  constructed 
and  must  be  input  to  the  program  according  to  the 
following  prescription.  The  table  is  constructed 
so  that  each  successive  mid-range  diameter  and 
boundary  diameter  is  /2  times  its  preceding 
diameter.  Mid-range  diameters  are  geometric  means 
of  the  boundaries.  In  array  WHY(l)  the  mass  frac¬ 
tion  for  each  size  range  is  specified  in  sequence 
of  increasing  diameter.  The  parameter  EMIN  which 
is  specified  is  defined  as 

DMIN  =  Di/(2  b/2)  where  Di  is  the  upper 
boundary  diameter  of  the  first  size  range. 

Deck  5  is  read  by  UNK1. 
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Card  Sequence 

Mnemonic 

Format 

1 

DNID(j) ,  J=1 ,12 

12A6 

2 

NEq,HTVL,KDI,IRAL, 

KCLD  ,KRX  ,KEQ  ,IPAM 

8l4 

3 

ZBRSTZ 

E12.5 

4 

SLDTMP 

E12.5 

j 

FW 

E12.5 

6 

ZTRP 

E12.5 

7 

DNS 

E12.5 

8 

ATID(J),  J=1 ,12 

12A6 

9 

FMT(J),  J=1 ,12 

12A6 

10,11 

SCALE (J),  J=l,10 

(7F10.5/3F10.5) 

12 

KL,N2,N3,N4,R5 

N6,N7,N8 

8l4 

13 

NPVA 

14 

14,15,... 

alt(j),  atp(j), 

FRS(j),  RHZ(J), 

RLHfj),  eta(j), 

GRV(J),  SUi(j), 

J=1 ,NPVA 

9  \ 

(FMT(l) ,  1=1,12) 

DKDD(j):  Arbitrary  72 -character  cloud-rise 

identification. 

Control  Data: 

1Q5Q:  This  is  the  number  of  particle  size  classes  to  be  used  in 
the  CRM  calculations.  Its  maximum  value  is  40.  If  a 
tabular  rather  than  a  log-normal  distribution  has  been 
provided  by  LIKK1.  the  input  value  of  REQ  is  replaced  by 
ND6TH  vsee  Deck  5j  before  entrance  to  subroutine  CRM. 

If  a  lug-normal  distribution  is  used,  but  NEQ  is  not 
specified,  it  is  assigned  a  value  of  40  in  subroutine 
CPV. 
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NTVL: 

KDI: 

IRAD: 

KCID: 

KRX: 

KEQ: 

IPAM: 

ZBRSTZ: 
SID  IMP: 
W : 


This  is  the  number  of  particle  size  classes  to  be 
provided  by  subroutine  GPSD  for  use  by  RSXP  and 
subsequent  DEIFIC  modules.  Its  maximum  value  is 
200.  If  a  tabular  rather  than  log-normal  distribu¬ 
tion  is  provided  by  LINK!,  the  input  value  of  NTVL 
is  ignored.  If  a  log-normal  distribution  is  used, 
but  NTVL  is  not  specified,  a  value  of  10  is  assigned 
to  it  in  subroutine  GPSD. 

This  is  the  number  of  wafer  subdivisions  for  each 
size  class.  It  has  no  upper  limit.  If  its  input 
value  is  0,  it  is  calculated  in  subroutine  DVD. 

This  is  the  wafer  radius  division  factor  to  be  used 
in  subdividing  the  cloud  wafers  into  basic  (square- 
based)  cloud  subdivisions.  It  has  no  upper  limit. 
Careful  attention  should  be  given  to  this  parameter. 

A  large  value  can  cause  a  very  large  amount  of 
transport  computer  time  to  be  required,  while  a 
value  too  small  may  result  in  a  minimum  subdivision 
size  that  is  unrealistically  large  for  stem  sub¬ 
divisions. 

This  controls  the  CBM  debug  printout.  A  value  of  0 
suppresses  the  printout  whereas  a  value  of  1  results 
in  a  detailed  printing  of  cloud  and  particle  pro¬ 
perties  at  intervals  during  the  cloud-rise  computa¬ 
tions. 

This  controls  the  RSXP  debug  printouts.  A  value  of 
1  causes  the  printout  whereas  a  value  of  0  bypasses 
the  printout  option. 

A  value  of  0  suppresses  the  particle  coalescence 
calculations.  A  value  of  1  causes  this  option  to  be 
exercised. 

This  parameter  controls  entrance  to,  or  bypass  of, 
subroutine  PAM.  In  this  version  of  DELFIC,  PAM  is 
a  dummy  subroutine  and  I PAM  is  always  zero. 

Elevation  of  ground  zero  (meters  above  mean-sea- level). 

Soil  solidification  temperature  (degrees  Kelvin). 

Fission  yield  of  weapon  in  kilotons. 


ZTRP: 

Altitude  of  trppopause  (meters  above  mean-sea-level) 

DIB: 

Fallout  particle  density  (g  cm”3). 

ATID(j) : 

72-character  atmosphere  identifier. 

IMT(J) : 

FORMAT  fox  atmosphere  data  cards. 

SCABS  (J): 

Atmosphere  data  'cale  -  transformation  parameters. 

N1-N8: 

Atmosphere  data  sequencing  indices. 

DIVA: 

Dumber  of  altitude  levels  in  the  input  atmosphere 
tables. 

Alff(j): 

Altitude  above  mean-sea- level. 

ATP(J) : 

Temperature . 

JRS(j): 

Pressure. 

RHZ(j) : 

Density. 

RLH(j) : 

Relative  humidity. 

ETA(j) : 

Viscosity 

GRV(j) : 

Acceleration  of  gravity 

SIM(J): 

Mean  free  path 

She  first  eight  cards  of  Deck  6  axe  read  by  subroutine 
ICED  and  should  require  no  further  explanation.  The  balance 
of  Deck  6  is  read  by  subroutine  ATMR.  This  subroutine  has 
been  written  to  provide  the  utmost  flexibility  regarding  input 
of  table  of  atmospheric  properties.  To  provide  this  flexibility 
it  is  necessary  to  require  a  set  of  additional  inputs  that  are 
somewhat  complex.  The  user  is  cautioned  to  employ  unusual 
care  in  the  preparation  of  these  inputs  and  to  study  carefully 
the  tables  of  atmospheric  properties  printed  out  by  subroutine 
ICRD  to  ensure  that  the  quantities  displayed  are  precisely 
thos  required  by  the  Cloud  Rise  Module  calculations.  The 
additional  inputs  referred  to  above  are: 


1.  An  object-time  FORMAT  for  use  in  reading  the  atmosphere 
data  cards  (Card  number  9)* 

2.  A  list  of  terms  and  factors  to  be  used  to  transform 
the  input  data  to  the  proper  units  (Cards  10  and  ll). 

3.  A  list  of  sequencing  numbers  that  tells  the  program 
the  order  in  which  specific  data  quantities  are 
punched  across  the  input  cards  (Card  number  12). 

The  iiocs  of  adjustment  factors  and  sequencing  numbers 
are  closely  related.  First  we  discuss  the  sequencing  numbers. 
There  are  eight  sequence  numbers  punched  on  a  card  —  each  of 
which  is  associated  with  a  particular  one  of  the  eight  atmospheric 
properties  required  by  the  program.  This  association  is  given 
in  Table  4.2.  The  numbers  punched  in  these  fields  range  in 
value  from  1  through  8.  For  a.  particular  field,  for  example 
the  density  field,  the  number  punched  gives  the  actual  read- in 
sequence  number  for  density.  That  is,  if  a  3  is  punched  in 
the  density  field  of  the  sequence  card,  this  specifies  that 
density  will  occupy  the  third  field  from  the  left  (as  defined 
by  the  object-time  FORMAT  card)  on  the  data  input  card.  Suppose 
our  data  input  card  has  the  following  appearance: 


A  suitable  sequencing  card  would  be : 


Column  Number 


Sequence  Number 
Datum  Represented 


1  k  8  12  lb  20 _ 34.-.  ,28. . .12, 

/* « i i »  i*ii 

'  3.  253^678 

t  f  V  I  f  t  f  I  9 

'  ALT  '  ATP  *  HiS  ’  hxE  *  RIH  '  ETA.  •  GRV  '  SIM  ' 


Note  that  quantities  not  specified  by  input  still  must  be  provided 
for  both  in  the  FORMAT  and  on  the  sequence  cards.  Thus  such  quantities 
are  read  in  as  zero  which  indicates  that  they  are  to  be  supplied  by  the 
program.* 


TABLE  4.2  CORRESPONDENCES  OF  SEQUENCE  CARL  FIE  IDS  WITH 
ATMOS  HERE  DATA 


Field 

Number 

Card 

Column 

Numbers 

Datum 

Mnemonic 

Datum  Quantity 

Units  Required 
by  the 
Calculations 

1 

1-4 

AIZT 

altitude  above 
M.S.L. 

m 

2 

5-8 

ATP 

temperature 

°K 

3 

9-12 

IRS 

pressure 

mb 

4 

13  -  16 

RHZ 

density 

-3 

g  cm 

5 

0 

CVJ 

• 

RLH 

relative 

humidity 

% 

6 

21  -  24 

ETA 

viscosity 

g  (cm  s-1 ) 

7 

CO 

CVJ 

« 

ir\ 

CM 

GRV 

acceleration  of 
gravity 

-a 

cm  s 

8 

29  -  32 

SIM 

mean-free-path 

cm 

3flEe  program  most have  altitude,  tenq>erature ,  relative  humidity,  and 
either  density  or  pressure.  Though  not  required,  any  or  all  of  the 
other  quantities  can  be  supplied,  in  which  case  they  are  not  calculated 
by  the  program. 
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As  with  the  sequencing  numbers,  the  fields  on  the  scale  cards  (two 
scale  cards  are  input)  always  correspond  to  specific  data  quantities. 
The  numbers  punched  in  the  scale  cards  are  vised  to  transform  the  input 
data  to  the  units  specified  in  Table  4.2.  The  transformations  are 
performed  as  follows: 


Alff(l) 
AT?(l ) 
PRS(l) 
EHZ(l) 
RIH(l) 
ETA  (I) 
GRV(E ) 
SIM(I) 


=  (ALT (I)  +  SCAIE 
=  (ATP (I)  +  SCALE 
+  FRS  (I)  *  SCAIE 
+  KHZ  (i)  *  SCAIE 
=  RIH  (i)  *  SCAIE 
=  ETA  (I)  *  SCAIE 
=  GRV  (I)  *  SCAIE 
=  SIM  (I)  *  SCAIE 


(1) 

(2) 

(5) 

(6) 

(7) 

(8) 

(9) 

(10) 


SCAIE 

SCAIE 


SCAIE  array  entries  3  through  10  are  replaced  with  1.0  if  they  are 
read  in  as  zero.  If  no  transformations  are  required,  blank  cards  can  be 
used  for  the  scale  cards. 


For  the  input  data  example  shown  on  page  45,  the  following  scale 
cards  would  be  required: 


J 


Card  1 


Column  Numbers 
Content 


1 _ 10 

r rr 


20 


'  1000  * 
•  t 


4o  50  60 

-T - hr - i — 

'  66  1.0-6  100 


t 

I 


Card  2 


|  blank 


The  atmosphere  data  cards  themselves  must  conform  to  the  object¬ 
time  FORMAT  specified  by  the  user  and  they  must  be  ordered  in  sequence 
of  increasing  altitude.  The  altitude  increments  between  cards  is 
arbitrary,  however,  and  there  are  no  restrictions  on  the  specific 
altitude b  supplied  by  input  other  than  that  they  should  lie  in  the 
range  of  1,000  to  50,000  meters  above  mean  sea  level.  The  program 
automatically  will  build  tables  of  256  entries  each  of  atmospheric 
properties  in  the  range  of  altitude  from  1,000  through  50,000  meters 
(relative  to  mean  yea  level)  at  intervals  of  200  meters. 


) 
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Card  sequences  1  through  8  are  read  by  ICKD.  The 
remainder  of  Deck  6  is  read  by  ATMR. 


Card  Sequence 

Mnemonic 

Format 

1 

PSEED(j) ,  J=l,12 

12A6 

2 

IC(J),  J=1,18 

1814 

3 

XGZ  ,YGZ ,TGZ 

3E13.6 

FSEID(J):  Arbitrary  72 -character  identifier  far  the  cloud- 
rise  transpart-interface  module. 


IC(J) : 


XQZ: 

YGZ: 

TGZ: 


Control  indices.  In  the  current  version  of  DEIFIC, 
only  one  ou  the  18  elements  of  this  control  array 
is  in  use.  This  ia  IC(3).  If  IC(3)  =  0,  the  com¬ 
plete  particle  output  will  appear  on  the  system 
output  tape  as  well  as  tapes  JEARIN  and  I  BAR  IN. 

If  IC(3)  >0,  only  tapes  JPARIN  and  I BAR IN  will  be 
written.  An  the  CRTI  pi ogram  output  is  voluminous, 
we  suggest  setting  IC(3)  "  u  to  save  computation 
time. 

X  coordinate  of  ground  zero  (meters) 

Y  coordinate  of  ground  zero  (meters) 
detonation  time  (seconds) 


Deck  7  is  read  by  LINKU. 


U8 


I 


0 

Card.  Sequence  Mnemonic  Format 

i  NH0D0  15 

2,3,...  ZV(j),VX(j),VY(j),  J=1 ,NH0D0  3E13-6 

NH0D0:  lumber  of  altitude  strata  in  the  wind  hodograph. 

ZV(J):  Altitude  of  the  center  of  Jth  wind  hodograph  stratum 
(meters ) 

VX(J):  X  component  of  wind  in  Jth  stratum  (meters/second) 
VY(J):  Y  component  of  wind  in  Jth  stratum  (meters/second) 

Deck  8  is  read  by  UNK4. 


Card  Sequence 


Mnemonic 


Format 


1  MPS,VI,H,COL,COIS  (I5,4E13.6) 

2  ROW, ROWS ,COLX,B  4E13.6 


Seepages  3-24,  DASA-1800-III,  for  details  of  Card  Deck  9. 

In  the  current  version  of  DEIFIC,  MSP  =  1  is  set  at  RSXP 
46  which  exercises  option  A.  To  exercise  option  B,  the  user 
must  supply  a  new  cloud-r.i  se  module  which  sets  EBP  =  0  and 
provides  the  additional.  i:iput  needed  by  the  CRTIM. 


Deck  9  -1s  read  by  LINK4. 
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Card  Sequence 

Mnemonic 

Format 

1 

'.’ID(J),J=1,12 

12A6 

2 

IC(J)  ,J=l,l8 

1814 

3 

TLIMIT 

F12.3 

TID(j) : 


IC(J) : 


J 

1 

2 

3 

4 

5 

6 


7 

8 


TLIMIT : 


Arbitrary  72 -char suiter  identifiers  for  the  Transport 
Module. 

Transport  Control  Array.  Only  8  of  the  IP  elements 
of  the  array  IC  have  been  given  functions  at  this  time 
and  their  uses  are  summarized  below. 

Function 


>  0  suppresses  usage  of  topography  tape,  IHT0P0,  and 
a  plenar  topography  is  assumed. 

>  0  suppresses  usage  of  off-tcpo  secondary  tape, 
I0T0P0. 

>  0  suppresses  usage  of  ouu-of -wind-field  secondary 
tape,  I0WIND. 

>  0  suppresses  usage  of  time-boundary  secondary  tape, 
IPAR0T. 

>  0  suppresses  usage  of  all  secondary  tapes. 

<  1,  no  transport  traces  are  printed. 

-  1,  in-core  particle  arrays  are  printed  following 
read-in  of  each  block  of  particles  from  IPAKIN. 

>  1,  In  ideation,  a  print- out  xs  executed  following 
each  transport  increment. 

=  1,  causes  the  computed  wind  field  to  be  printed 
each  time  it  1b  updated. 

=  0,  causes  a  listing  of  lost  particles  whenever  a 
group  of  lost  particles  are  discarded  by  subroutine 
DUMPP. 

Transport  time  limit,  seconds. 


Deck  10  is  read  by  LINK5. 
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Format 


11 


Card  Sequence  Mnemonic 


1 


TT0P0 


F10. 


5 


TT0P0:  Altitude  of  planar  topography,  meters. 


Deck  11  is  read  by  LINK5. 


Card  Sequence  Mnemonic 


Format 


1 


WID(J),  J=1 ,12 


12A6 


WID(j):  Wind-field  data  set  identifier. 
Deck  12  is  read  by  LINK5. 


liU 

Card  Sequence 

Mnemonic 

Format 

1 

SNDTIM , ALPHA ,BETA 

3F10.3 

2 

NN,NCODE 

214 

o 

j 

BOTHIT(J) SWGRINT(J) ,WLLX(j) , 
WLLY(J)  ,WUHX(j)  ,WUP.'l  (j)  , 

6F10,3 

J  =  1 

4  Same  as  card  3  but  for  J  =  2 
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F10.3 


Last  of  Sub¬ 
division 
Specifications 

First  Data 
Vector 

Second  Bata 
Vector 


The  end  of  the  subdivision 
specifications  is  marked  by 
the  number  999999 *° 

ZS(J)  pCS(j)  ,YS(j)  ,SX(J)  ,SY(j) , 
SZ(j),  J  =  1 

Same  as  first  data  vector  but 
for  J  =  2 


6F12.3 


Last  Vector  The  end  of  the  data  vectors  is  F12.3 
marked  by  the  number  999999*0 


ENDTIM: 

Time  at  which  the  forthcoming  wind  data  set  is  to 
be  updated,  seconds. 

ALPHA, BETA; 

See  page  12,  DASA  1800- IV. 

NN: 

The  number  of  nearest  data  vectors  that  the  user 
wishes  the  program  to  use  in  making  a  vector 
estimate  for  each  grid  point. 

NC0DE : 

The  identification  number  of  the  computation 
method  to  be  used  in  making  grid  point  vector 
estimates . 

NC0DE 

Method 

Value 

1 

Use  preferential  weighting  method  with  the  nearest 
NN  data  vectors. 

2 

Set  NN  =  1  and  use  code  number  1. 

3 

Set  NN  eq'^al  to  the  total  number  of  data  vectors 
available  and  use  code  number  1. 

k 

Use  the  least-squares  method  to  fit  a  linear 
model  of  the  atmosphere.  In  this  case  NN  must 
be  greater  than  3* 
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B^'THIT  ( J ) : 

Altitude  of  the  Jth  stratum  base ,  meters  above 
mean  sea  level. 

WGRIHT(j) : 

Width  of  wind  cells  in  the  Jth  stratum,  meters 

WLLX(j) : 

Coordinate  of  plane  limiting  the  Jth  stratum  on 
the  west. 

WLLY(J) : 

Seme  as  above  but  on  the  south. 

WURX(j) : 

Same  as  above  but  on  the  east. 

WURY(J): 

Same  as  above  but  on  the  north. 

ZS(J): 

Vector  altitude,  meters. 

XS  (j) : 

X  coordinate,  meters. 

YS(J): 

Y  coordinate ,  meters . 

SX(j) : 

X-velocity  component,  meters/second 

SY(j)j 

Y-velocity  component,  meters/second 

SZ(J): 

Z-velocity  component,  meters/second 

A  west  wind  (from  the  west)  has  a  positive  X  component 
a  south  wind  has  a  positive  Y  component;  the  Z  direction  is 
positive  upward. 


Deck  13  is  read  by  subroutine  MKWIND. 


CBMINX(J),  CRMAXX(j) , 
CRMINY(j),  CRMAXY(J), 
NCETYP(J),  J  =  1 

Same  as  card  1  but  for 
«  •  2 


(4E12.5,I3) 


Last  Card 


Blank 


CBMIHX(j):  Coordinate  of  plane  that  bounds  the  Jth  local 
circulation  system  cell  on  the  west. 

CRMAXX(j):  Same  as  above  but  on  the  east. 

CRMINY(j):  Same  as  above  but  on  the  south. 

CRMAXY(j):  Same  as  above  but  on  the  north. 

NCRTYP(j):  Circulation  type  identifier  for  the  Jth  local 

circulation  cell.  The  values  currently  in  use 
are : 

1  -  Mountain  Wind 

2  -  Ridg-  Wind 

3  -  Sea  Breeze 


Deck  14  is  read  by  subroutine  BDCIPS. 


Card  Sequence 


15 

........ 


Mnemonic 

SM(jr)  ,XM(j)  ,H(j)  ,A(j) 

J=1 

Same  a a  card  1  but  for  J=2, 
the  second  mountain. 


Format 


4F10.3 


Last  Card 


Blank 


XM(j) ;  X  coordinate  of  the  Jth  mountain,  meters. 
YM(j) :  Y  coordinate  of  the  Jth  mountain,  meters. 
H(J):  Maximum  height  of  the  Jth  mountain,  meters. 

A(j):  Half  width  of  the  Jth  mountain,  meters. 


Deck  15  is  read  by  subroutine  MTWTJDl. 


Mnemonic 

SM(J),YM(J),H(J),A(J),B(J) 

J  =  1 

Same  as  Card  1  but  for  J  =  2, 
the  second  i idge 


Format 


5F10.  , 


Last  Card 


Biank 
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XM(j) :  X  coordinate  of  a  point  on  the  Jth  ridge  line,  meters 
YM(j) :  Y  coordinate  of  a  point  on  the  Jth  ridge  line,  meters 
H(j):  Height  of  the  Jth  ridge,  meters 

A(j):  Half  width  of  the  Jth  ridge,  meters 

r 

B(J):  Orientation  angle  of  the  Jth  ridge,  radians  clockwise 

from  time  north. 

Deck  16  is  read  by  subroutine  RGWND1. 


Card  Sequence 

1 

2 

3 

k 


Mnemonic 

SNPHI ,  SGMA,  ELX,  THET 

WW  yAKi  ,B  ,GRAD  ,NN 

DELTX(N) ,TAUX(N) ,R*1 

Same  as  Card  3  but  for 

H  '*  2. 


Format 

iiFlO.3 

(lF10.3,I10) 

2F10.3 


Last  card 


Same  as  Card  3  but  for  N  =  NN. 


SNPHI:  Sine  of  the  latitude  of  the  sea-breeze  cell. 
SGMA:  Guldberg  -  Mohn  friction  parameter. 

ELX:  The  total  extent  of  the  sea-breeze 

THET:  Average  ground  temperature 

WW:  Wind-field  extrapolation  attenuation  constant. 
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AKY: 


B: 


GRAD: 


UN: 


DELTX(N) : 
TAUX(n) : 


Thermal  eddy  diffusivity. 

Coastline  orientation  angle. 

Unperturbed  temper ature  gradient. 

Number  of  harmonics  used  in  temperature-time 
description. 

Magnitude  of  the  Nth  temperature  differential. 
Phase  of  the  Nth  temperature  differential. 


Deck  17  is  read  by  subroutine  CBREZ1, 


Card  Sequence 
1 


[18J 

Mnemonic 

RTST 


Format 

12A6 


RTST:  This  card  signals  the  end  of  the  wind  field  data  and 
is  punched,  beginning  in  column  1,  as 

END  0F  WIND  FIELD 
Deck  18  is  read  by  LINK5. 
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Card  Sequence 

Mnemonic 

Format 

1 

0PED(j) , J=1 ,12 

12A6 

2 

I0T(J) ,J=1,18 

1814 

3 

IC(J) , J=1 ,18 

l8l4 

4 

DIFC0N 

F10.3 

5 

IH,IV 

214 

0PID(j):  Artltrary  72-character  output  processor  identifier. 

I0T(j):  List  of  logical  tape  numbers  of  those  tape  units 

available  for  use  in  sorting. 

IC(J):  Overall  control  variables.  Currently,  only  IC(l7) 

and  IC(l8)  have  been  given  functions. 

IC(17):  Controls  entrance  to  the  Output  Processor. 
IC(17)  >  0  causes  the  program  to  stop 
without  entering  the  Output  Processor  proper. 
This  setting  is  used  if  only  a  printing  of 
the  grounded  particles  tape  is  desired. 

IC(17)  =  0  causes  a  normal  entrance  to  the 
main  body  of  the  Output  Processor  regardless 
of  whether  the  grounded  particles  tape  has 
been  printed. 

IC(l8):  Controls  the  option  to  print  the  content  of 
the  grounded  particles  tape.  IC(l8)  >  0 
causes  the  grounded  particles  tape  to  be 
printed.  IC(l8)  =  0  bypasses  the  printing 
of  the  grounded  particles  tape. 

DIFC0N:  Diffusion  constant. 

IH,IV:  Horizontal  and  vertical  character  spacings  of  the 

printer  in  characters  per  inch.  For  the  usual  IBM 
printer,  10  and  6  are  the  appropriate  values  for 
IH  and  IV. 


Deck  19  is  read  by  LINK8. 
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Card  Sequence 


Mnemonic 


Format 


1 

PAMID(J),  J=1 ,12 

12A6 

2 

iftape(j) ,  J=l,10 

10L1 

3 

NPRNT(J),  J=l,15 

15L1 

PMED(j):  Arbitrary  72 -character  particle  activity  module 
identifier . 

IFTAPE(j):  File  control  parameters. 

IFTAPE(l):  If  FALSE,  INTP  =  IS IN. 

If  TRUE  and  ISIN  =  5  ,INTP  =  12. 

If  TRUE  and  ISIN  j  5 ,INTP  =  5. 

IFTAPE(2):  If  FALSE,  KRD  =  ISIN 
If  TRUE,  KRAD  =  INTP 

IFTAPE(3):  If  TRUE,  write  PAM  restart  information  as  a  trailer 
on  the  grounded  particles  file  (logical  9).  Be  sure 
9  has  ring  in. 

IP  TAPE (4):  If  TRUE,  the  PAM  expects  restart  information  on 
logical  9. 

NPRNT(j):  Printout  Control  Parameters.  See  glossary  at  the 
beginning  of  subroutine  PAM1. 


Deck  20  is  read  by  subroutine  PAM1. 

I 


Card  Sequence 

Mnemonic 

Format 

1 

CAFFIS,  EMITN 

2F10.3 

2 

FISSID 

A6 

First  ’Local"  Data  Set 


CAPFIS:  Capture-to-fission  ratio. 

EMXTN:  Number  of  neutrons  emitted  per  fission. 

FISSID:  Tyne  of  fission  (See  DASA-1800-V) . 

Deck  21  is  read  by  subroutine  PAM  1. 


Card  Sequence  Mnemonic  Format 

Thi3  option  allows  the  invariant  PAM  data  (on  distributed 
Reel  B)  to  be  read,  into  the  program  on  cards.  For  a  detailed 
description  of  the  data  deck  required  for  this  option  see 
DAS A- 1800- V. 


Card  Sequence  Mnemonic 


< 


XMAX,  XMIN j  YMAX,  YMIN,  DGX , 
TCx,  GRUFF 

JC(J),  J=1 ,1b 

NREQ,  Tl,  T2,  MASCHN 

Same  as  Card  3  but  for  second 
request 


Format 

7F10.3 

181 4 

(i4,2F10.3,T4) 


Request  Blank 

Termination 

Card 


Next  "Local" 
Data  Set 


Final  Data 
Card 

XMAX,  XMIN, 
XMAX,  YMIN : 

DGX.  DGY : 

GRUFF: 

JC(J): 


Saae  sequence  as  First  Local 
Data  Set 


Blank 


Limiting  coordinates  cf  the  map,  meters. 

Map  grid  intervals ,  meters 

Ground  roughness  correlation  factor. 

Local  control  variables : 

The  following  options  are  currently  in  use. 

JC(l):  A  vp’ue  of  1  results  in  the  printing  of 
the  output  map  in  a  two-line  E  format 
which  has  the  power  of  ten  printed  on 
one  line  and  the  associated  multiplier 
printed  immediately  below. 

A  value  of  2  results  in  the  printing  of 
a  two-line  F11.3  format  which  ha3  the 
six  highest  order  characters  printed  on 
the  first  line  and  the  five  lowest 
characters  on  the  second  line. 

A  value  of  3  causes  the  Output  Processor 
to  write  a  map  image  onto  the  multiple 
burst  tape  (the  unit  identified  in 
parameter  MBTAPE  as  logical  11).  When 
using  the  multiple  burst  option,  care 
should  be  taken  to  see  that  the  tape 
unit  defined  by  parameter  MBTAPE  is  not 
also  specified  as  being  available  for 
use  during  the  sorting  operations  of  the 
Output  Processor. 

JC(l4):  This  parameter  must  be  set  non-zero  to 
obtain  output  maps.  If  the  parameter 
is  set  equal  to  zero,  only  printout 
tables  from  the  PAM  are  obtained. 


JC(15):  A  value  of  0  bypasses  the  diffusion 
model.  A  value  greater  than  zero 
brings  about  the  use  of  the  diffusion 
suorouti'  i  DDUZ1. 

JC(l6):  A  value  of  0  results  in  the  automatic 
adjustment  of  the  grid  interval  DCX  or 
DGY  to  yield  an  undistorted  output  map, 

A  non-zero  value  results  in  no  adjust¬ 
ment  to  the  grid  intervals. 

JC(l8):  A  value  of  0  indicates  the  user's 

permission  for  the  program  to  make  a 
3mall  adjustment  to  the  grid  intervals 
to  achieve  greater  program  efficiency. 

A  positive  value  indicates  the  user's 
wish  to  have  no  adjustment  made  to  the 
grid  intervals.  JC(l8)  >  0  overrides 
JC(16)  =  0,  i.e.,  for  an  automatic 
undistorted  map,  JC(l8)  and  JC(l6)  must 
both  equal  zero. 

NREQ:  Computation  Code  Request. 

NREQ  Description 

0  Termination  of  the  set  of  requests. 

1  Count  of  wafers  covering  each  output  point. 

2  Exposure  rate  normalized  to  H+l  hour. 

3  Exposure  rate  at  H+Tl  hours. 

h  Integrated  exposure,  H+Tl  to  co  accounting  for  time  of 
arrival, 

5  Integrated  exposure ,  H+T1  to  H+T2  accounting  for  time 
of  arrival. 

6  Total  mass  deposited. 

7  Total  mass  deposited  from  time  H+Tl  to  K+T2. 

8  Integrated  exposure,  H+Tl  to  H+T2  assuming  all 

t articles  have  arrived  by  H+Tl  hours. 
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9  Same  as  8  integrated  to  infinity. 

10  Concentration  of  an  individual  mass  chain  in  curies/m3 
if  T1  >  0,  equivalent  fissions/m2  if  T1  *  0. 

11  Time  of  arrival  of  first  fallout  particle. 

12  Time  of  deposit  of  last  fallout  particle, 

13  Smallest  particle  size  deposited. 

14  Largest  particle  size  deposited. 

15  Mass  from  particles  in  size  range  T1  to  T2. 

16  H+l  hour  "normalized"  exposure  rate  resulting  from 
pa-ticles  in  size  range  T1  to  T2  microns. 

T1,T2:  Arguments  used  in  conjunction  with  NREQ. 

MASCHN:  Mass  chair,  number  if  the  output  is  to  be  for  a  single 
mass  chain.  Otherwise,  its  field  may  be  left  blank. 

Deck  23  is  read  by  LINK9. 


o 


5.  FORTRAN  LISTINGS 


5.1  BELFIC 
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oooooo  0000000000  oooooooo 

vji  cx  r\j 


p 


IIFETC  M3  LIST,Dbrw,HV4/2  K3 

15  KfcB  -/  M3 

T.  W.  sCHHf-f.'rt  M3 

MAIN  CONTROL  PROGRAM  C f  THE  POD  FALLOUT  PREDICTION  SYSTEM  M3 

THIRD  VERSION  --  nCLUDES  ROUT  I  NO  CONTROL  AND  t'N-L  I  NE  PRINTING  H3 
REAMS  IN  I.fHj  I  {,  A  L  L  )MBb»  F  OR  DATA  INPUT  TAPE  M3 


M3 


•  **«**•*»*-»**»**»*»»*»*»*#♦#»•( 


M3 


COMMON 

1 

/SFT1/ 

diam 

non?!. 

IRISE 

.  I  EXEC 

.  ISIN 

,  ISOUT 

M3 
,  M3 

2 

sn  , 

SPAR 

SbAM 

,  TMfc 

,  tmpi 

,  TMP2 

,  M3 

3 

T2M  , 

U  t 

VPR 

,  W 

.  X 

,  1 

»  M3 

4 

WHY [ 40  J , 

N  U  S  T  R  . 

I 0  I  SIR 

,  SPA«1 

,  SPAP? 

,  SPAR3 

,  M3 

5 

SPAR4  , 

R  M  I  N  , 

SPARK, 

,  SPAR? 

,  SPARS 

,  SPAP9 

M3 

M3 


»«*»***■*•»*»*»************»*»« 


M3 

IbXbC,  fcxFClJTIVF  CONTROL  WORD  TO  CONTROL  BRANCHING  M3 

RETWEEN  CHAIN  LINK  SUBROUTINES  M3 

I  b !  N  SYSTEM  INPUT  TAPE  NUMBER  M3 

isout  system  output  tape  number  m3 

M3 


****************  #w,***,*w*##*..,****w********„i»,j#***#*,r*#*#***im#«*****|^3 

M3 

FORMA  f  [  14H  ENTERING  LINK, I?]  M3 

FORKATM  ?X,  12, 6X,  I?  J  M3 

FORMAT! /H)X,14H USING  MODULES  1?,6H  TMRU  12)  M3 

FORMAri/10xi6PlSIN  IS  LOGICAL  12/J  M3 

FORMAT  M.6X,I2J  H3 

M3 


*#♦***#*+***1 


tr*6**«**#**ft3 


>**«***< 


M3 

REA!)  THE  NUMBER  OF  THE  TAPE  UNIT  FROM  WHICH  THE  REST  OF  THE  M3 

VARIANT  dele  I C  Data  are  TO  be  READ  M3 

READ  IS, 51  I S I N  M3 

c  M3 

1 H I SE=9  M3 

I SUUT=6  M3 

WRITE  (ISOUT, 41  ! S I N  M3 

C  M3 

C  READ  ROUTING'  INSTRUCTIONS  M3 

PtADI  ISIN.PlLGO.LTHRtJ  M3 

iFtLGO.EO.n)  lGU=l  M3 

inLG0.GT.9J  L  G  0  r  9  M3 

JEILTHRU.EO.OI  L  THRU  =  y  M3 

IF  IuTHRU.GT.91  LTHRU'9  M3 

WRITEi  ISOUT, 3)  I.GO  ,  LTHRU  M3 

PRINT  3,  LOO, LTHRU  M3 

GO  TO  tin, 1D2, 103,104, 105. 106. 107.108, 109), LGO  M3 

101  LNK*1  M3 

WRITE  nsOUT.lJLNK  M3 

PRINT  t.LNK  M3 

call  link;.  m3 

102  LNK=?  M3 

I E (LNK.GT.LTHRUJ  GO  TO  150  M3 

WRITE  (ISOUT,  ULNK  M3 

PRINT  l.LNK  M3 

CALL  L I NK 2  M3 


0 

1 

2 

3 

4 

5 

6 
1 
8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
29 
3  0 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 


I 
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nnnooonfiooooonono 


1  S3 

l5'lLfcS,CT.LTHRU5  to  158 
WRftg  (JS01.V.  iStNK 
PRINT 

CAU  LINKT 
194  l:mk*4 

If  CLNK  .ST  (.lTHSIi  1  GO  TO  150 
WHITE  { ISOUT  <  13LWK 
print  ifLNK 
C*LL  LINK4 
J05  LNK«5 

IF  { LNK  .  GT  .  l„  THRU  )  GO  TO  150 
WRITE  USQyT.lR.NK 
PR[N?  1.1NK 
CALL  LINK5 
C 

C  IS  TRANSPORT  COMPLETED.  YES  TO  107.  NO  TO  106. 

!P{|£XEC-1U06.106,108 

106  LNK»6 

iHLNK.GT  LTHPL  i  GO  TO  160 
WHITE  mOUUiRNK 
PRINT  l.LNK 
CALL  LINK6 

107  LNK»7 

! f I LNK . GT . LtHHU 1  GO  TO  150 
WHITE  USO'JT.UlNK 
PH!*t  l.LNK 
CALL  L ! NK 7 
GO  TO  105 
10<J  LNK»8 

I F  l  LNK  .  GT  .  LTHRIJ  !  GO  TO  150 
WHITE  USOijT.lHNK 
PRINT  i.lNK 
CALL  LINK? 

1CV  LNK=9 

I'"  5 lnK  ,  GT  , L THRU  J  GO  to  160 
WHITE  USOUT.lJLNK 
PRINT  l.LNK 
CALI  L1NK9 
150  STOP 
ENO 

5  1 0FTC  ERRORX  L I  ST , DECK . M94/2 

SUBROUTINE  ERROR  [PRCURM,  IRROR,  ISOUTI 
Ti  4.  SChWENKE  TECHNICAL  OPERATIONS  RESEARCH 
1  MAHCH  1966 

<>•»••***••*•••*»«.>*••**»*»•»*•*»»*»*•*»»**•*******»••*•***•*••*•* 

THIS  PROGRAM  WHITES  A  GENERALIZED  EHRCR  COMMENT  OF  THE  FOLLOWING 
FORM  ON  Tape  Jf)UT  AND  "ntN  returns  if  the  SIGN  OF  IRROR  IS 
POSITIVE  OR  STOPS  IF  IT!  SIGN  IS  NEGATIVE. 

ERROR  SENSED  IN  PROGRAM  IPR0GRM1  AT  OR  NEAR  STATEMENT  NUMBER 
URHORl.  PLEASE  REFER  TO  THE  PROGRAM  LISTING. 

PRIOR  TO  CALLING  ERROR  THE  PARAMETER  PRBGRM  MUST  BE  SET 

WITH  THE  BCD  NAME  OF  THE  CALLING 

PROGRAM  AND  PARAMETER  IRROR  MUST  BE  SET  WITH  THE  NUMBER  OF  THE 
fORTRAN  STATEMENT  WHICH  BEST  IDENTIFIES  THE  ERROR  CONDITION. 


M3  60 

M3  61 

M3  62 
M3  63 
M3  64 
M3  65 

M3  66 

M3  67 

M3  60 

M3  69 

M3  7  C 

M3  71 

M3  72 

M3  73 

M3  74 

M3  f  5 

M3  76 

M3  77 

M3  70 

M3  79 

M3  60 

M3  81 

M3  02 

M3  83 

M3  84 

M3  05 

M3  80 

M3  87 

M3  08 

M3  89 

M3  90 

M3  91 

M3  92 

M3  93 

M3  94 

M3  95 

M3  96 

M3  97 

M3  98 

M3  99 

M3  100 


ERRSGG40 

ERHS0050 

ERRS0060 

ERHS0Q7Q 

ERRS0080 

ERRS0090 


ERRSOU  0 
ERRS0120 
ERRS0130 
ERRSQ140 
ERRS0150 
ERRS0160 
CRRS0170 
ERRS018Q 
ERR30190 


70 


c  ** . ••******ERhS0200 

C  ERRS0210 

1  FORMA T[//?LH  RBRfiR  j b ‘J S 6 D  IN  PROGRAM  A6.30H  AT  OR  NE-'H  $ T AT E KENTERHS 025 0 
1  NUMBER  16.400  PLEASE  REF  FR  TO  THE  PROGRAM  LISTING.)  ERRS0230 

C  ENRS0240 

C  *•«•*»•••*« .*..**...*.*.**.*'*..****.*»•*•*****». »*•**•••*<.•*•*••*««• *ERRSQ?5U 

C  ERRS0260 


IRR=  IAHSIIRR09) 

HRiTE  ( ISOUT.tlPROGHM, !RR 
!ri  I  RHOFs  1 1  'll,  1 U  (1 , 1  0  G 

100  RETURN 

101  STOP 
FNU 

1 1  FMAP  TAP'JA  5 

ENTRY  ,  UN09  . 

. UN  0  9 .  PTE  TAPE09 

T ARE 0 9  FILE  . A (11 . MOUNT . « ! N . BLK=256 , I NOUT , HOLD 

b  NO 

II8MAP  TAP10  b 

Entry  .unio. 

.UMO.  PZE  TAPfcin 

TAPElil  PILE  .0  ( 1  I , MOUNT, B  I  N,BlK  =  25-,  I  NOUT. HOLD 

END 

5IBMAP  TAP11  5 

SNTRT  .UN11. 

•  UM1 .  PZE  TAPE11 

TAPEll  FILE  , A E2J .MOUNT. BIN, BlKs2S6, INOUT.HOLU 

END 

SIPHAR  TAP12  b 

ENTRY  .(INI?. 

.  UM2  .  PZt  TAPE12 

TAPE12  FILE  ,  H I 2  MiOUNT . BCD, &LK  =  14 .  INOUT.HOLU 

END 

T A P E 1 2  FILE  .BI2J .MOUNT .BCD. 8lK=14,  INOUT.HDLO 

SI0FTC  FALRA  LIST » OtOK , M94/2 

C  SUBROUTINE  F AL  ’A? 

C  W./.G-InG  TECHNICAL  OPERATIONS  RESEARCH 

C  DEC  14  i«6b 

SUBROUT  I  ME  FAI.RAT  (  ALT.P3IZE.F  V,  ATEMP.RHO.FROG,  ISOuT) 

C 

£****#*******♦*  *  v  **br***w##*w*i‘»*****#**#******-***w#*****i*i6'**i 

c 


AND  V  T  sens  I TN  have  BEEN  TABULATED  IN  ARRAYS  h  HU  t I j  AND  ATEMP(I) 
RESPECT  I VEL V  « 


.  UNI 1 . 

TAPEll 

» A  E2J .MOUNT ,61N,BlKz2S6, I NOUT, HOLO 
b 

.UNI?. 

TAHE12 

.HI2 J , MOUNT. BCD, &LK=14,  INOUT.HOLU 

,R[?I .M0UNr,HCD,8LK=14,  INOUT.HDLO 
LIST, OtCK . M94/2 


TECHNICAL  OPERATIONS  RESEARCH 


ERRS0290 


DIMENSION  AT6MP(?oO  1  ,RH0(?6ii  I 
REAL  LOGIO 


AIT 

A  TEMP l ! 3 


******  falrat  glossary  '..********<>***♦«**< 

HEIGHT  OF  THE  PARTICLE  ABOVE  H5L  (METERS  I 
DYNAMIC  VISCOSITY  OF  AiR  AT  115-11*2001  METERS 
MSL.  {KJLOGRAM/METER-SECOND! 

THE  DRAG  COEFFICIENT  *  SQUARE  OF  THE  REYNOLD-S 


FALH 

0 

FAI.R 

1 

FALR 

2 

FALR 

3 

FALR 

4 

FALR 

5 

**FALR 

6 

FALR 

7 

FALR 

a 

FALR 

9 

tyfalr 

10 

FALR 

11 

FALR 

12 

FALR 

13 

**F  AI.R 

14 

FALR 

15 

FALR 

16 

FALR 

17 

FALR 

18 

"  *FmLR 

19 

r  ALH 

20 

FAIR 

21 

E  FALR 

22 

FAIR 

23 

FALR 

24 

t 


c 

c 

c 

c 

c 

c 

c 

c 

c«« 


r*>o  G 

rv 

PllZE 
RMO  I Jl 


NUMBER.  FAIR  25 
U/G’.PAP.-JCLE  DEHSlTY*GRAVITr*ICUBiC  METERS/  CUBIC  FAIR  26 
MICRON).  KILOGRAM-MeTER/t |S«R.  SEC, BICUBIC  MICR0NI1FALP  27 
SETTLING  RATE  fMETERC/SECS  FkLR  20 
PARV t CLE  diameter  (MICRONS:  FALR  29 
ATM  DENSITY  AT  (I-l}*200  METfeRS  ABOVE  Hit.  (KILO-  FALR  30 
GRAMS/  CUBIC  METER]  FALR  31 

FALR  32 


».***.*aa*******vp  ALR  33 

FALR  34 

.F12.3.12M  MICROFALR  35 

FALR  36 

C  FALR  3’ 

C  ................................... AIR  30 

C  ...#**.**•****...*... a.FALR  39 


FORMAT ( //3SH  DAVIES  EQUATIONS  ARE  INACCURATE  FOR 
INS  AT  ,Fi2i3,7M  METERS! 


C 

C 

c 

c 

c 

c 

c 

c 


FALR 

I  IS  THE  INDEX  UN  THE  ARRAYS  RM0II1  AND  ATEMPU?)  THAT  !D£NT IF IESFALR 
THE  200  *ER  THICK  LmYER  CONTAINING  THE  HART ICLE .  THE  ADI)  IT  TON  FALR 
OF  6.5  TC  *4E  INDEX  BEFORE  TRUNCATION  INSURES  THAT  PARTICLES  MLR 
BETWEEN  -  :  .!.<•  METERS  ABOVE  MSL  WILL  LIE  IN  THE  SIXTH  LA YERFALR 
WHICH  HAS  I.  OCATEO  AT  MSL.  PARTICLES  BETWEEN  100  *ND  300FALR 
METERS  /SOVE  MsL  WILL  LIE  IN  THE  7-TH  LATER  WHICH  HAS  ITS  CENTERTALR 


160 

C151 

C 

151 

C100 

100 


LOCATED  AT  200  METERS  ABOVg  MSL*  AND  SO  FORTH. 

I«IALT/200;05*6.5 
V0»PSIZE/AT6MP( 1 1 
Vl*PSlZE»V0*FROG 
CDRR«Vi*RHOS l  J*VC 
IFIC9RR-140.0H00.100.150 
IF  t CDRR-4 , 5£.?J20G,151,3.5i 

CDRR  EXCEEDS  THE  UPPER  RANGE  OF  DAVIEpS  EQUATIONS. 

NUMERICAL  RESULT  IS  STJLL  USED. 

WRITE  IISOUT.23PSIZE.ALT 
GO  TO  200 

CDRR  IS  LESS  THAN  OR  EQUAL  TO  140. 

F V*V1* ( 41666 , 7  *CDRR* l -2 . 3363E+2*CDRR* 1 2. 0154  -6 . 91 05E-3-CDRR 1 1  I FALR 

FALR 


HOWEVER.  THE 


FALR 
FALR 
FALR 
FALR 
F  ALR 
FALR 
FALR 
FALR 
FALR 
FALR 
FALR 
FALR 


GO  TO  300 


C200  CDRR  IS  GREATER  Tm.N  140. 

200  Ql.OGA«ALOGlO  t  CDRR  1-20,773 

FV«50657.0  oVl*C  DR  R**HOL0GA*OL  OCA-443, 90 1*0, 0011235) 
C300  DRAG  SLIP  CORRECTED  FALL  RATE 

300  FV-f V*tl.O*2.33fc-l/IPSIZE*RHOI  IH  1 

301  RETURN 

end 

301  RETURN 

SIBFTC  LNK1  LIST, DECK  »  M9A/2 
SUBROUTINE  LINK1 

C  INITIAL  CONDITIONS  I F iREBAuL  I  MODULE 
C  TECHNICAL  OPERATIONS  RESEARCH  22  SEPT  1966 
C 


FALR 
FALR 
FALR 
FALR 
FALR 
FALR 
FALR 
FALR 
LNa  1 
LNK! 
LNK1 
LNK1 
LNKl 


c  .a**.**.****..******. «#**«lnki 

C  LNKl 

C  PROGRAM  TO  DETERMINE  The  initial  CONDITIONS  SPECIFICATIONS  OF  LNKl 

C  TIME.  TEMPERATURE.  TOTAL  SOIL  MASS,  FRACTION  OF  THE  SOIL  BURDEN  INLNK1 

C  the  VAPOR  phase,  and  The  SIZE  FREQUENCY  DISTRIBUTION  OF  THE  LNKl 

C  CONDENSED  PHASE  SOIL  LNKl 

C  LNKl 

C  the  FIRST  CARD  CONTAINS  ANY  ARBITRARY  ALPHANUMERIC  IDENTIFICATION, LNKl 

C  THE  SECOND  CARD  OF  THE  DATA  DECK  CONTAINS  l  HE  NUMBER  OF  CASES  TO  LNKl 

C  BE  RUN,  FORMAT  U5 ! .  LNKl 

c  tm(s  parameter  should  be  left  blank  if  the  user  wishes  the  progranlnki 


43 

41 

42 

<3 

44 

45 

46 

47 
40 

49 

50 

51 

52 

53 

54 

55 

56 

57 
r  3 

59 

60 
61 
62 

63 

64 

65 

66 
67 
66 

0 

1 

2 

3 

4 

5 

6 
7 
0 
9 

10 

11 

12 

13 

14 

15 
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oooooonooooooooooooo 


c 

c 

c 

c 

r 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r> 

u 

c 


TO  CALL  LINK?  a  *  SHOULD  BE  GIVEN  yoM£  POSITIVE  vALUc,  N  "  .<** 

THf  tsrw  WISHES  Tu:  PROGRAM  TO  S T C H  AFTER  COMPUTING  N  'STS  .NKT 

initial  condition',  ‘'',h . 

A  »  '«  1 

OTHER  INPUT  PahAmEtERS  awe  -  TFST  PARAMETER  IIDISTR)  T0  DcTfcH->  ?  '•  L'-*i‘  t 
If  tH£  PARTICLE  S 1 7E  f  REuuFNCT  DISTRIBUTION  IS  LOG-NORMAL  OR  LN*i 

TABULAR,  YIELD  'IN  <  I  i.OTONS ,  HEIGHT  IDEHTHI  of  BURST  IN  METERS,  LNKi 

*  9011  TYPF  I ND I OA  TUP ,  DIAMETER  of  the  smallest  PARTICLE  SIZE  LnKJ 

[MICRONS],  MF  A  N  (MCnONSI  AND  STANDARD  DEVIATION  FOR  A  LOG-NOR-AL  LNK  j 
PARTICLE  SIZE  ff-'FUJENCY  DISTRIRUTION  ,  OR  IF  A  LNKi 

TABULAR  O' STP 1  BUT ’ ON  IS  USED,  THE  MEAN  AND  STANDARD  DEVIATION  ARE  LNKI 
DELETED  AND  RFRLa  D  d Y  THE  NUMBER  OF  ENTRIES  IN  THE  TABLE.  IF  A  LNKi 
LOG-NORMAL  DISTR1MTION  iS  TO  BE  SUPPLIED  BY  ThE  PROGRAM,  the  LNK; 

MFAN  AND  STANLARn  DEVIATION  FIELDS  ARF  LEFT  BLANK.  LNKI 

LNKi 

FOR  UNDERGROUND  RlRSTS  INPUT  DEPTH  OF  BURST  AS  A  NEGATIVE  NUMBER  LNKi 

LNKI 

THF  OUTPUT  UNITS  a Rf  MaSS  IN  KILOGRAMS,  LENGTH  I n  METERS.  TIME  IN  LNKi 
SECONDS,  TFMPERATU=E  IN  DEGREES  KELVIN,  YIELD  IN  K ! LOTONS,  LNKI 

DISTRIBUTION  PARAMETERS  IN  MICRONS  LNKi 

LNKI 


GLOSSARY 


#*****•; i****»*»**LNKl 


DETIDUI 
DlAM 
DM  I  N 
IDISTK 


IS 


I  SIN 

ISOUT 

N 

ndstr 

NN 


PM  I  N 
SD 

SS  AM 

TME 

TMP1 

TMP? 

T2M 

U 


VPR 

w 

why  i  i  j 
X 


LNKI 

INITIAL  CONDITIONS  IDENTIFICATION  ARRAY  LNKI 

MEAN  DIAMETER  OF  PARTICLE  SIZE  DISTRIBUTION  ! M I  CRONS  )  LNK 1 

liameter  of  smallest  particle  size  i m i crons i  lnki 

control  integer  for  particle  SIZE  DISTRIBUTION  LNK i 

r  -  LOGNORMAL  DISTRIBUTION  LNKI 

1  -  TABULAR  DISTRIBUTION  READ  IN  ON  CARDS  (ARRAY  WHY  J LNKI 
CONTROL  INTEGER  SPECIFIES  WHFTHER  LOGNORMAL  LNKI 

DISTRIBUTION  is  SPECIFIED  BY  the  USf-R  OP  BY  THE  LNKI 

PROGRA-"  LNKI 

n  -  PROGRAM  SPECIFIED  LOG-NORMAL  DISTRIBUTION  LNK  1 

1  -  USER  SPECIFIED  I  OG-NORMAL  DISTRIBUTION  LNKI 

SYSTEM  INPUT  TAPE  LNKI 

SYSTEM  OUTPUT  TAPE  LNKI 

CONTROL  INTEGER  -  NUMBER  OF  INPUT  SURSiG  LNKI 

LENGTH  OF  ARRAY  why  LNKI 

INTEGER  -  TESTS  NUMBER  OF  BURSTS  RUN  AGAINST  THE  LNKI 

NUMBER  OF  BURSTS  TO  BE  RUN  LNKI 

RADIUS  OF  SMALLEST  PARTICLE  SIZE  I K  I  CRONS  I  LNK  1 

STANDARD  DEVIATION  OF  PARTICLE  S17E  DISTRIBUTION  LNK i 

MASS  OF  CONDENSED  PHASE  MATERIAL  AT  SPECIFICATION  LNKI 
TIME  LNKI 

TIME  OF  INITIAL  CONDITIONS  SPECIFICATION  LNKI 

AVERAGE  TEMPERATURE  UF  GAS  IN  Cl  QUD  uNt-l 

AVERAGE  TEMPERATURE  OF  CONDENSED  PHASE  MATERIAL  IN  LNKI 
CLOuD  LNKI 

TEMPORARY  STORaGE  LNKI 

SOIL  CLASS  INDICATOR  LNK] 

1.0  FOR  SILICEOUS  LNK i 

n.o  fir  calcareous  lnki 

MASS  OF  VAPOR  IN  CLOUD  AT  SPECIFICATION  TIME  LNKI 

WEAPON  Y1FLD  (KT!  LNK 1 

ARRAY  OF  FRACTION  OF  TOTAL  PARTICULATE  MASS  IN  1-TH  iNKi 
PARTICLE  SIZE  CLAPS,  MAXIMUM  LENGTH  OF  ARRAY  ;  40  LNKj 
HEIGHT  OF  BURST  IMETRRSI  LNKI 

SCALED  HEIGHT  OF  BURST  LNK i 

LNKI 


************<  **************  ***•**- 


*******  *****  **********#&**LtyK3 


6 
1 9 

C  0 

r.  1 
22 
?  J 
2  A 

2  J 

?  fc 
?  7 
36 
29 

3  G 
31 
12 

33 

34 

35 

36 

37 

38 

39 

40 
«1 

42 

43 

44 

45 

46 

47 

48 

49 

50 
61 

52 

53 

54 

55 

56 

57 
66 
59 
6  0 
61 
62 

63 

64 

65 
t  u 
6  7 
68 
69 
7(1 
/ 1 

72 

73 

74 

75 


'3 


c 


8 

9 

10 
11 

12 

13 


14 

15 

16 


LNKI 

76 

COMMON 

/SET1/ 

LNKI 

77 

1 

D  I  AM 

, PET  1 D 1 12 ) • I R I SE 

9 

I  EXEC 

9 

I  SIN 

9 

ISOUT 

,  LNKi 

78 

2 

SD 

,  S°AR  ,  SSAM 

1 

THE 

f 

TMPl 

9 

TMP2 

,  LNKI 

79 

3 

T2M 

,  U  ,  VPR 

• 

W 

9 

X 

9 

Z 

.  LNKI 

80 

4 

WH Y ( 4  0 1 

.  ISOSTR  ,  IDISTR 

9 

SPAR1 

9 

SPAR2 

9 

SPAR3 

,  LNKI 

81 

b 

SPAR4 

,  RW I N  ,  SPAR6 

1 

SPAR7 

9 

SPARC 

9 

SPAR9 

LNKI 

82 

LNKI 

33 

Hi 

+  G  i 

64 

LNKI 

85 

FORMAT [ 12 A6 ) 

LNKJ 

86 

SPECIFIED  standard  deviation  is  NEGATIVE  HENCE  ILNK1 

LNKi 

LNK1 

INPUT  PARAMETERS  ****/20X.5HYlELD,40X,El2.5LNKl 


17 

16 

19 


191 

192 

193 

194 


FORMAT[/3X,60HTHF 
INCORRECT///! 

FORMATl5nn.3) 

FORMAT  I ///?5X28H**** 
l*2x»2HKT/2nX*  24HHE I GHT  OR  DEPTH  OF  BURST , 21X. El2 . 5, 2X» 6HMETERS/20XLNK l 
2.13HSOIL  CATEGORY  1  LNKI 

F0RMAT[1H*,65X.9HSILICE0US]  LNKI 

FORMAT  I 1H*,65X,10HCALCARE0US J  LNKi 

FORMAT I//20X50HPRE-SHOT  SOIL  PARTICLE  SIZE  FREQUENCY  DISTRIBUTION/LNKi 
125X32HA  LOG-NORMAL  DISTRIBUTION  WITH  -/30X , 4HME AN, 31X , E12 . 5. 2X, 7HMLNK1 
2ICRONS/30X,18HSTANDARD  DE V  I  AT  I  ON , 1 7X ,E12 . 5  /25X.34HTHILNK1 

3S  DISTRIBUTION  WAS  SPEC1FIEU  BY]  LNKI 

F0RHATtlH*,6t>X»UHTHE  PROGRAM)  LNKI 

F0RMATllH-,65X.f HTHE  USER)  LNKI 

FORMAT  f  *  3 1  LNKI 

F0RMATI/JX.58HTHF  SCALED  DEPTH  Of  BURST  IS  BEYOND  THE  SCOPE  OF  THELNKl 
1  MODEL///)  LNKI 

F0RMAT[/3X.111HT,-(E  SCALED  HEIGHT  OF  BURST  IS  SUCH  THAT  THERE  IS  NOLNK1 

1  SOIL  MASS  ENTRAINED  IN  THE  CLOUD  AND  HENCE  NO  LOCAu  FALLOUT///]  LNKI 
FORHAT[///?5X37i:»***  INITIAL  CLOUD  PROPERTIES  AT  H  tc12.5,14H  SECLNK1 

lONDT  -••*//20X.?3HAvERAGE  GAS  TEHPERATUREJ8X*E12.5k?X#14HDE GHEES  LNKI 
2kELV1N//?0X,56HAVERaGE  TEMPERATURE  OF  CONDENSED  PHASE  MATERIAL  IN  LNKI 
3CL0UD,5X.E12.5.2X.14HDEGREES  KELV IN//20X, 31HMASS  OF  VAPORIZED  SOILLNK1 
4  IN  CLOUD.30X,El2.5.2X,9HKILOGRAMS//2f'X41HMASS  OF  CONDENSED  PHASE  LNKI 
SKATER l AL  IN  CL0Uil,2OX.cl2.5.2X,9HKlLOGRAHS//2OX,84MrARTJCLE  SIZE  FLNK1 
oREQUENC v  DISTRIBUTION  AT  THE  TIME  OF  INITIAL  CONDITIONS  SPECIFICATLNK1 
’’ION)  LNKi 

FORMAT (1H1///51X»14H****  DATA  SET  12»6H  ****///)  LNKI 

F0RMATUX.14HLEAVING  LINK  1)  LNKI 

FORMAT (1H1///51X19H*  «***♦.#*  *//l2X101HT  HE  D  E  P  A  R  TLNK1 
1MENT  OF  DEFENSE  FALLOUT  PREDICTI  OLNK1 

2  N  S  V  s  T  F  H..//S1X.19H*  ***••»**  *////43X <3 6H INITIAL  COLNK1 

3ND I T I QNS  [FIREBALL)  M0DULE///55X , UHPREPARGD  BT/43X#34HTECHNICAL  OLNK 1 
4PEHAT10NS  RESEARCH . I NC . /52X. 1 7HRHRL I NGTON#  MASS . ////25X, 45H****  ILNK1 
INITIAL  CCNDITIOMr,,  IDENTIFICATION  **«*/25X.  12A6 1  LNKI 

FORMAT  t /3X . 60HTHE  SP6CIFIE0  MEAN  PARTICLE  SIZE  IS  NEGATIVE  HENCE  ILNKt 
INCORRECT///)  LNKI 

FORMAT {//20X50HPRE -SHOT  SOIL  PARTICLE  SIZE  FREQUENCY  DISTRIBUTION/LNKI 
125x<'iHA  TABULATED  EMPIRICAL  DISTRIBUTION  WITH  -/3!>X  I  2, 2X .  21HPART  I CLNK 1 
2LE  SIZE  C|.ASSES/30X»?5HM I NI MUM  PARTICLE  DI AMF TER, 10X.E1S . 5. 2X, 7HMILNK1 
3CRONS/25X.43HTHIS  DISTRIBUTION  WAS  SPECIFIED  BY  THE  USER)  LNKI 

F0RMATI25X.37HTHF  DISTRIBUTION  IS  LOG-NORNAL  WITH  -/30X, 4HMEAN, 31XLNK1 

LNKI 
LNKI 
LNKi 
LNKi 
LNKI 
LNKI 
LNKI 


1,E12.5,2X,7MMICRONS/3QX,18HSTANDARO  DE V I  AT  I  ON , 1 7X , E12 . 5 
2  /30X.25HMJNIMUM  PARTICLE  U I AHETER. 10X , E12 ,5, 2X , 7HH I  CRONS ) 
F0RMATI25X.A8HTKF  DISTRIBUTION  IS  THE  SAME  AS  THAT  GIVEN  ABOVE) 
FORMAT!. //5lX,l9H*  ♦  *••**«*  •//) 

FORMAT I//31X, 19HP ART l CLE  SIZE  CL ASS# 20X , lJHMASS  FRACTION/) 
F0RMATI40X. I2,29X,E12.5J 


87 

68 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 
127 
126 

129 

130 

131 

132 

133 

134 

135 


7l* 
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c 
c 
c 

NN  =  1 

c  reap  initial  conditions  run  identifier 

READ  lISIN*lKPbTl0tjJ*J=l»i21 
C  READ  CONTROL  ! NTFGER 

READ  USIN.10IN 
C 

C  WRITE  OVERALL  TITLE 

WRITE  I  IS0IIT.16I  !D£TID(J)»J  =  1,12) 

20  READIISIN.30JIDISTR 
IFI IDISTRJ2lO.2lO.211 

C  2in  test  for  particle  size  frequency  SPECIFICATION  OPTION 
210  READ!  I.'  I  N  >  3  1  W »  X  >  (l»  D  I  AM*  SD 
READIISIN.3IDMIN 
RMIN=0.5*DMIN 

C  WAS  A  PPESHOT  PARTICLE  LOG-NORMAL  DISTRIBUTION  SPECIFIED  BY 
C  THF  USER  YES  TO  2? 

IFIDIAMJ21.21.22 

21  I S=0 

00  TO  23 

22  !S=1 

GO  TO  23 


136 

137 
LNK1  138 
LNivl  139 
LNKl  1 A  0 
LNKl  141 
LNK1  142 
LNKl  143 
I.NK1  144 
LNKl  145 
LNKl  146 
LNKl  14/ 
LNKl  148 
LNKl  1*9 
LNKl  15 P 
LNKl  151 
LNKl  152 
LNKl  153 
LNKl  154 
LNKl  155 
LNKl  156 
LNKl  157 
LNKl  158 
LNKl  15? 


211  READ!  ISIN.3IW.X.  I) 

READl ISIN.3JDMIN 

RMINsU.5*DMIN 

READl ISlN.lOINDSTR 

READl 1SIN.3) { WHY  I  I ] . lil .NDSTfi) 

C 

C  23  CONVERT  NOR  -  DOR  PROM  METERS  TO  FEET 
23  x=X/0T3046 

c  7  is  the  staled  non  -  dob 

60  7  =  X/t ( W J** 1 1 . u/3.4  )  1 

test  The  data  to  see  if  the  model  IS  appropriate 

IFIXI66.63.63 
63  IFIZ-1P0. 0  1  70.70, 150 
66  lF[7*20.im«3,70,70 

70  CALL  TIME 
CALL  TFMP 
CALL  MASS 
CALL  VAPOR 
I F [ I  0 1 STP ) OO . 90 . 96 

TEST  FOR  ACCEPTABLE  SPECIFICATIONS  OF  PRE-SHOT  PARTICLE  SIZE 
FREQUENCY  distribution. 

90  JF( SDI91.92.92 

91  WRITE  tISOilT.2) 

GO  TO  93 

92  IF  f  D  J  AM ) 94 , 95 » 96 

94  WRITE  { I °OUT , 1 7  J 

C  93  SHOULD  I  HE  RUN  HE  HALTED,  YFS  TO  190 

93  IFINI190.190.170 
C 

95  CALL  DSTRN 
C 

C  CONVERT  HOR  -  DOB  BACK  TO  METERS  FROM  FEET 

96  XSX*0.3048 
C 


LNKl  160 
LNKl  161 
LNKl  162 
LNKl  163 
LNKl  164 
LNKl  165 
LNKl  166 
LNKl  167 
LNKl  168 
LNKl  169 
LNKl  170 
LNKl  171 
LNKl  172 
LNKl  173 
LNKl  174 
LNKl  175 
LNKl  176 
LNKl  177 
LNKl  178 
LNKl  179 
LNKl  180 
LNKl  161 
LNKl  182 
LNKl  183 
LNKl  164 
LNKl  165 
LNKl  186 
LNKl  18 7 
LNKl  188 
LNKl  189 
LNKl  190 
LNKl  191 
LNKl  192 
LNKl  193 
LNKl  194 
LNKl  195 


c 

CONVERT  VPR  AND  SSAM  FROM  GRAMS  TO  KILOGRAMS 

LNK1 

196 

VPR»VPR/1000«t) 

LNK1 

197 

c 

DURING  COMPUTATION  SSAM  CONTAINS  THE  VALUE  Of  THE 

TOTAL  MASS 

OF  LNKi 

198 

c 

GAS  AND  CONDENSED  »HASE  MATERIAL  IN  THE  CLOUD. 

LNK1 

199 

SSAM*SSAM/100fl.0-VPR 

LNKI 

200 

c 

LNKI 

201 

c 

WRITE  INI  I At  CONDITIONS  RESULTS 

LNKI 

202 

WRITE  lISOUT.WlH.X 

LNKI 

203 

inu-1. 0)301. 301. 302 

LNKI 

204 

301 

WRITE  IISOUT.61 

LNKI 

205 

GO  TO  305 

LNKI 

206 

302 

WHITE  ( I SOUT » 6 1 

LNKI 

207 

305 

iniDISTRJ3lO.3lO.3ll 

LNKI 

208 

310 

WRITEIIS0UT.7JDIAM.SD 

LNKI 

209 

IF  tISI102.103.102 

LNKI 

210 

311 

WRITEIIS0UT.16JNDSTH.DMIN 

LNKI 

211 

WR I TE  M  SOUT . 193  J 

LNKI 

212 

WRITE  II  SOUT.  194  5  II  ,  WHY  NJ .  I  *1 .  NDSTR  1 

LNKI 

213 

GO  TO  116 

LNKI 

214 

103 

WRITE  USOtlT.bJ 

LNKI 

215 

GO  TO  106 

LNKI 

216 

102 

WRITE  t I SOUf, 9 1 

LNKI 

217 

106 

WRITE  II S0UT.13JTME.TMP1.TMP2.VPR, SSAM 

LNKI 

218 

JFI ID1STR1116.116.117 

LNKI 

219 

116 

WRITEIIS0UT.19IDIAM.SD.DMIN 

I.NK1 

220 

GO  TO  116 

LNKI 

221 

117 

WRITE!! SOUT . 191 I 

LNKI 

222 

11« 

WRITE! ISOUT. 1521 

LNKI 

223 

GO  TO  171 

LNKI 

224 

143 

WRITE  IIS0IIT.11 1 

LNKI 

225 

GO  TO  171 

LNKI 

226 

150 

WRITE  [IS0UT.12J 

LNKI 

227 

C 

LNKi 

228 

L. 

TEST  TO  DETERMINE  WHETHER  to  CALI  LINK  2,  RETURN 

TO  COMPUTE 

LNKI 

229 

C 

ANOTHER  SET  Of  INITIAL  CONDITIONS  .  OR  EXIT. 

LNKI 

230 

1/1 

IFIN-1I200.20P.170 

LNKi 

231 

179 

IFIN-NN1190.190.180 

LNKI 

232 

160 

NN*NN«-1 

LNKI 

233 

WRITE  IIS0UT.14INN 

LNKI 

234 

GO  TO  20 

LNKI 

235 

200 

WRITE  IIS0UT.153 

LNKI 

236 

RETURN 

LNKI 

237 

190 

SIOP 

LNKI 

238 

END 

LNKI 

239 

JIPFTC  DSTB  •  L I  ST , DECK . M94/2 

DSTB 

0 

SUBROUTINE  USTPN 

DSTB 

1 

C 

DSTB 

2 

C  **< 

>**#**DST0 

3 

c 

DSTB 

4 

COMMON  /SET1/ 

DSTB 

5 

1  D 1  AM  ,  FID  .  IRISE  .  IEXEC  .  tSIN 

,  JSOUT 

,  DSTB 

6 

2  SD  .  SPAR  ,  SSAM  ,  TME  ,  TMPi 

,  TMP2 

.  DSTB 

7 

3  T2M  ,  U  .  VPR  .  W  «  X 

,  Z 

,  DSTB 

8 

4  WHY  .  NDSTR  .  IDJSTR  ,  SPAR1  .  SPAR? 

,  SPAR3 

.  DSTB 

9 

5  SPAR4  ,  RMIN  .  SPAR6  ,  SPAR7  .  SPARS 

,  SPAR9 

DSTB 

10 

DIMENSION  F  I  D 1 12  5 

DSTB 

11 

DIMENSION  WHY ! 40  J 

DSTB 

12 

c 

DSTB 

13 

C  *•**«••***•***********«***#**••»»••** #*»***»#*»*,*«*t#************#«****DST 8 

14 

C  •*•*••«****»•**•***•»•»**»****»***•*♦•«««***#•*******» ##***«®*********«DSTB 

15 

76 


i 


O  O  O  OOOW  O  O  O  O  O  ooo 


DI  AMs0,407 
SD=4.00 
RETURN 
END 

SlfiFTC  MAS  LIST, DECK. M94/2 
SUBROUTINE  MASS 


DSTB  16 
DSTB  17 
DSTB  18 
DSTB  19 
DSTB  20 
MAS  0 
MAS  1 
MAS  2 


COMMON  /SET1/ 


1 

DIAM 

.  FID 

,  I R I SE 

1 

I  EXEC 

0 

1SIN 

0 

ISOUT 

,  MAS 

6 

2 

SD 

,  SPAR 

,  SS  AM 

0 

THE 

0 

TMP1 

0 

TMP2 

.  MAS 

7 

3 

T2M 

,  U 

,  VPR 

0 

W 

t 

X 

0 

Z 

,  MAS 

8 

A 

WHY 

,  NDSTR 

,  IUISTR 

1 

SPAR1 

0 

SPAR2 

0 

SPAR3 

.  MAS 

9 

5 

SPAP4 

,  RM  I  N 

,  SPAR6 

0 

SPAR7 

0 

SPAR* 

0 

SPAR9 

MAS 

10 

DIMENSION  F I D [ 1?  J 
DIMENSION  WHY l *0 ) 


MAS  11 
MAS  12 

MAS  13 


HOB  OP  DOB 

IF  f  X  J 230 , 240  *  240 

D*?181.595 
G  =  -Z 

R*1.125E*0?*[7.55E-Ull*0-(9.6E-06)*(Q**3. 
Ss3.27F*01* 18. 51F-01 1*0- (2.52E-0SJ *|Q**3. 


*' •**********************MAS  IS 

MAS  16 
MAS  17 
MAS  18 
MAS  19 
MAS  20 

01-19.116-121*10**5.01  MAS  21 
01*11. 78E-101*IQ**5. 01  MAS  22 


SSAMs 

0*1 (Wj**(3. 0/3.4] J*lR**2.0J  *S 

MAS 

23 

GO  TO 

250 

MAS 

24 

F*77.*0685 

MAS 

25 

SSAMs 

F* II W 1**13 

.0/3.4]  I* 

(1180.0 

-Zi**2. 01*1360, 0*Z) 

MAS 

26 

RETURN 

MAS 

27 

FND 

MAS 

28 

rc  TEM 

LIST, DECK, M94/2 

TEM 

0 

SUBROUTINE  TEMP 

TEM 

1 

TEM 

2 

+*#•***#* 

3 

TEM 

4 

COMMON 

/SET1/ 

TEM 

5 

1 

DIAM  , 

FID 

IRISE 

,  I  EXEC 

0 

I  S I N 

ISOUT 

,  TEM 

6 

2 

SD  , 

S»AR 

SS  AM’ 

,  THE 

0 

TMP1  , 

TMP2 

.  TEM 

7 

3 

T?M 

0 

VPR 

0  W 

0 

X  , 

Z 

,  TEM 

8 

4 

WHY  , 

N0STH  , 

IUISTR 

,  SPARl 

0 

SPAR?  , 

SPAR3 

,  TEM 

9 

5 

SPt R4  , 

RMIN 

SPAR* 

,  SPAR7 

0 

SPARrt  , 

SPAR9 

TEM 

10 

DIMENSION  F 1 D 1 1? 1 
DIMENSION  WH Y { 4 0 ] 


COMPUTE  VAPOR  TEMPERATURE 
G*Z*W**(..  03921  I 

A *5980.* I f 1.1 45)** I Q/180. 11* II W) **1-0.03948*0. 02*37*0/180.0  I  I 
P*-0.*473*IW**(0. 04360) I 
TMPlsA*t(TME/T?M]**B 1*1500.0 


COMPUTE  CONDENSED  dHASE  MATERIAL  TEMPERATURE 

TMP2*50. 0*ALON10 { W 1*1400,0 

RETURN 


77 


TEH  26 


S IBFTC  TIM 

LIST, DECK, M94/^2 

0 

SUBROUTINE  TIME 

TIM 

1 

C 

TIM 

2 

HM 

#*1 

i****«T I h 

3 

c 

TIM 

4 

1 

COMMON 

/SET1/ 

TIM 

5 

\ 

1 

DIAM  , 

no  , 

IRISE 

I 

IEXEC 

,  IS1N 

1 

ISOUT 

,  TIM 

6 

2 

SD  * 

S°AR 

SSAM 

9 

TME 

,  TMPi 

0 

TMP2 

,  TIM 

7 

l 

3 

T2M 

U  , 

VPR 

0 

W 

,  X 

9 

Z 

,  TIM 

6 

4 

WHY  » 

N0S7.?  . 

IDISTR 

0 

SPARl 

,  SPAR2 

9 

SPAR3 

,  TIM 

9 

5 

SPAR4  , 

RMlN  . 

SPAR6 

0 

SPAR7 

.  SPARS 

9 

SPAR9 

TIM 

10 

■4 

DIMENSION  r  1 D ( 12 1 
DIMENSION  WHY  I  40  J 


TIM  11 
TIM  12 
TIM  13 


c  **< 

»*"*+•+** 

•  TIM 

14 

15 

C 

TIM 

16 

GaZ*W** l - . 03921 I 

TIM 

17 

T2M*or037*II0.045/n.037J**{O/lfl0. I  !*U‘**l 0,49-1 0. 

07*0/180, .11 

TIM 

IB 

TME»I56.0*T2M)/IW**I0.3J I 

TIM 

19 

RETURN 

TIM 

20 

END 

TIM 

21 

SlBFTC  VAPO  LIST, DECK. M94/2 

VAPO 

0 

SUBROUTINE  VAPOR 

VAPO 

1 

C 

VAPO 

2 

C  **•••***#***»****'****************•**•*  •••••a#*****#****#****’#*********  VAPO 

3 

C 

VAPO 

4 

COMMON  /SET1/ 

VAPO 

5 

1  DIAM  ,  FID  ,  IHISF  »  IEXEC 

,  ISIN 

.  ISOUT 

VAPO 

6 

2  SD  #  SPAR  ,  SSAM  ,  TME 

,  TMPl 

,  TMP2 

V«,PO 

7 

3  T2M  ,  U  .  VPR  ,  W 

*  X 

,  Z 

VAPO 

8 

4  WHY  ,  NDSTR  ,  IDISTR  ,  SPARl 

,  SPAR? 

,  SPARS 

VAPO 

9 

5  SPAR4  ,  RUN  .  SPAH6  ,  SPAH7 

.  SPARB 

.  SPAR9 

VAPO 

10 

DIMENSION  FIDU2J 

VAPO 

11 

DIMENSION  WHY  1 40  J 

VAPO 

12 

C 

VAPO 

13 

c  •  *< 

•  VAPO 

14 

0  **< 

•  VAPO 

15 

c 

VAPO 

16 

c 

BRANCH  ON  THE  BASIS  OF  SOIL  CATEGORY  -SILICEOUS 

TO  100, 

VAPO 

17 

c 

CALCAREOUS  TO  200 

VAPO 

18 

IFIU-1. 0)100, 100,200 

VAPO 

19 

c 

VAPO 

20 

c 

IS  THE  computed  vapor  temperature  higher 

than  THE 

SILICEOUS  SOIL 

VAPO 

21 

c 

801,. INC  TEMPtRATuRE 

VAPO 

22 

100 

lFITMPl-3000. 01120, 120, 110 

VAPO 

23 

110 

VPR«SSAM*0.00015^ITMP1-3000.0 J 

VAPO 

24 

GO  TO  130 

VAPO 

25 

c 

VAPO 

?« 

c 

IS  THE  COMPUTED  VAPOR  TEMPERATURE  HIGHER 

THAN  THE 

CALCAREOUS  SOIL 

VAPO 

27 

c 

BOILING  TEMPERATURE 

V/PO 

28 

200 

iriTMri-3100.01120,120,115 

VAPO 

29 

>15 

VPR*SSAM*0 ;000?5*ITMP 1-3100. 01 

VAPO 

30 

CO  TO  130 

VAPO 

31 

120 

VPR«0l0 

VAPO 

32 

130 

RETURN 

VAPO 

33 

*NP 

VAPO 

34 

130 

RETURN 

VAPO 

33 

SlBFTC  LNK2  LIST, DECK, M94/2 

LNK2 

0 

SUBROUTINE  LINKk  LNK2  1 


c 

LNK  2 

* 

c 

23 

MARCH  1967 

LNK2 

3 

c 

LNK2 

4 

c 

******* 

•  *  1 

**LNK2 

5 

c 

LNK2 

6 

c 

CLOUD  RISE  MODULE  GLOSSARY 

INK? 

7 

c 

LNK2 

8 

c 

LNK2 

9 

c 

UNITS  ARE  MKS  FXCEPI  WHERE  NOTED, 

LNK2 

10 

c 

LNK2 

11 

c 

LNK2 

12 

c 

ALT 

- 

ARRAY (260  J  »  ATMOSPHERE  ALTITUDE  IN  METERSIMSL!  CORRESPOND  I NGLNK2 

13 

c 

TO  ATP.  ETA,  GRV,  PRS,  PV,  RHZ,  RLH,  SLM 

LNK2 

14 

c 

GRV,  PRS,  RH7,  RLH,  AND  SLM 

LNK2 

1? 

c 

!  SEE  I  CRD  J 

LNK2 

16 

c 

AMSS 

• 

CUMUL  A  T I Vfc [ P  OH  ALL  PARTICLE  SIZE  CLASSES)  TOTAL IPOR  BOTH 

LNK2 

17 

c 

IN-CLOUD  AND  PELOW-CLOUDIMASS  TRACTION  OF  SOIL 

LNK2 

18 

c 

(USED  AS  A  DEBUG  DIAGNOSTIC  -  SHOULD  ALHAYS  EQUAL  ONE) 

LNK  2 

19 

c 

A  P 

ARRAY  1 6 )  ,  TEMPGRY  STORAGE  USED  IN  ATHR 

LNK2 

20 

c 

ATHR 

SUBROUTINE,  READS  IN  TABLES  uF  ALT,  ATP,  ETA, 

LNK2 

21 

r 

ATEMP 

» 

(SEE  DEE INJTION  OF  ETAJ 

LNK? 

22 

c 

ATID 

• 

ARRAY  M2),  72  ALPHANUMERIC  CHARACTER  FOR 

LNK2 

23 

c 

ATMOSPHERE  IDENTIFICATION 

LNK? 

24 

c 

ATP 

• 

ARRAY  1 260 )  ATMOSPHERE  TEMPERATURE  IN)  MATCHES  ALT 

LNK2 

25 

c 

BARM  J 

• 

MEAN  OF  THE  LOG  NORMAL  (BASE  10)  PARTICLE  SIZE  VS. 

LNK2 

?6 

c 

MASS  distribution 

LNK2 

27 

c 

BZ 

m 

DEPOSIT  INCREMENT  LINEAR  DIMENSION 

LNK2 

28 

c 

80 

COEFFICIENT  OF  QUADRATIC  IN  T  FOR  C  SUB  PA 

LNK? 

29 

c 

B1 

• 

SEE  DEFINITION  OF  BO 

LNK2 

30 

c 

B2 

m 

SEP  definition  OF  BO 

LNK? 

31 

c 

CG 

m 

array  [*0J,  PALLING  speeds  of  particles  in  the  cloud 

LNh< 

32 

c 

CP 

m 

ARRAY!  *0  .AO  ),  USED  FOR  STORAGE  OF  COLLISION  FUNCTIONS 

LNK? 

33 

c 

USFD  IN  PARTICLE  GROWTH  CALCULATIONS 

LNK2 

34 

c 

CHANGE 

• 

CLOUD  TIME  APTER  WHICH  STEP  LENGTH  BECOMES  DST? 

LNK? 

35 

c 

cmean 

m 

GEOMETRIC  MEAN  OF  THE  LOG  NORMAL  PARTICLE  SIZE  VS.  MASS 

LNK2 

36 

c 

DISTRIBUTION  COMPUTED  IN  CRM 

LNK2 

37 

c 

CMLR 

TOTAL  CLOUD  MASS  LOSS  RATE 

LNK? 

38 

c 

COLL  I S 

SUBROUTINE,  COMPUTES  COLLISION  FUNCTION  VALUES  FOR  USE  IN 

LNK? 

39 

r 

PARTICLE  COALESCENSE  CALCULATIONS 

LNK2 

40 

c 

CPPR 

SUBROUTINE,  COMPUTES  PARTICLE  FALLOUT  RATE  DURING  CLOUD 

LNK2 

41 

c 

RISE  CALCULATIONS 

LNK2 

42 

c 

CPV 

SUBROUTINE,  COMPUTES  INITIAL  CRM  VARIABLES 

LNK2 

43 

c 

{ SEE  CRM) 

LNK? 

44 

c 

CRID 

I  SEE  DEFINITION  OF  DNlOJ 

LNK? 

45 

c 

CRM 

SUBROUTINE,  COMMUTES  CLOUD  RISE  AND  EXPANSION  VAR I BLES 

LNK2 

46 

c 

CRMW 

SUBROUTINE,  °R  I  NT  CRM  OUTPUT 

LNK2 

47 

c 

(SEE  C:'M  ) 

LNK2 

48 

c 

CSIGMA 

GEOMETRIC  STANDARD  DEVIATION.  SEE  CMEAN 

LNK? 

49 

c 

cx 

ARRAY  MO,  9  0  1,  CLOUD  DIMENSIONS  VS.  TIME 

LNK2 

50 

c 

11,  J)  -  TIME  I  SEC  J  AFTER  BURST 

LNK  2 

51 

c 

THfc  MNEMONIC  CXtl.J)  IS  CHANGED  TO  TC  IN  LINK  4 

LNK2 

52 

c 

1 2 ,  J)  -  CLOUD  TIME  INTERVAL  (SEC!  BEGINNING  AT  CX  ( J,  J) 

LNK? 

53 

c 

13,  J)  -  CLOUD  BASE  (Ml  AT  CX  11,  Jl 

LNK? 

54 

c 

THE  MNFMONIC  CX ( 3 , J  i  IS  CHANGED  TO  ZB  IN  LINK  4 

LNK2 

55 

c 

(«*.  J)  -  CLOUD  TOP  i  M )  AT  CX  11,  J) 

LNK2 

56 

c 

THE  MNEMONIC  CXU.JJ  IS  CHANGED  TO  ZB  IN  LINK  4 

LNK? 

57 

c 

is,  j)  -  cloud  radius  imj  at  cx  ii,  ji 

LNK2 

58 

c 

(6,  J)  -  CLOUD  BASE  RATE  Im/SEC)  DURING  CX  12,  J) 

LNK2 

59 

c 

THf  MNEMONIC  CXI6.JJ  IS  CHANGED  TO  VB  IN  LINK  4 

LNK2 

60 

79 


nooonoriooonooonononononononnoononoononooonnoofiooonnoooof'oooo 


17.  jj  -  cloud  top  rate  ih/secj  during  cx  12,  ji 

LNK2 

61 

THE  MNEMONIC  CX(7.Jt  IS  CHANGED  TO  VT  IN  LINK  4 

LNK2 

62 

(6.  Jj  -  CLOUD  RADIAL  RATE  [M/S5C1  DURING  CX  (?»  JJ 

INKS 

63 

(9*  jj  -  cloud  temperature  ikj  at  cx  u,  ji 

LNK2 

64 

(in,  JJ  -  IN-CLOUD  GAS  DENSITY IKG/M**3)  AT  CXll.JJ 

LNK2 

65 

CXPN 

• 

SUBROUT  I  NS: ,  TABULATES  CX 

LNK2 

66 

(SEE  CRM) 

LNK2 

6? 

C3 

• 

EMPIRICAL  CONSTANT  (N  KINETIC  ENERGY  DISSIPATION  RATE 

LNK2 

69 

DEK 

«# 

DERIVATIVE  OF  EK 

LNK2 

69 

DENT 

- 

DATA  STATEMENT  USED  TOR  IDENTIFICATION  OF  (RISE  TAPE 

LNK2 

70 

DERI  V 

- 

SUBROUTINE,  EVALUATES  DERIVATIVES  OF  CLOUD  RISE  VARIABLES 

LNK2 

71 

(SEE  CRM  1 

LNK2 

72 

DETID 

• 

ARRAY (12 1 «  DETONATION  IDENTIFICATION  CARD 

LNK? 

73 

DIAH 

m 

PARTICLE  GEOMETRIC  MEAN  SIZE  (MICRONS!  OF  LOG  NORMAL 

LNK2 

74 

PARTICLE  SIZE  FREQUENCY  FUNCTION  SUPPLIED  BY  LINK1. 

LNK2 

75 

IF  NOT  PUNCHED  D I AH»0 .407 

LNK2 

76 

DMLR 

m 

INTEGRATED  REFRACTORY  HASS  FALLOUT  (FRACTION  OF  TOTAL! 

LNK2 

77 

DNID 

m 

ARRAY  (12).  72  ALPHANUMERIC  RUN  IDENTIFICATION  FOR  WHICH 

LNX2 

78 

EACH  BRSTID  !S  A  RUN  CYCLE 

LNK  2 

79 

THE  MNEMONIC  DNIO  IS  CHANGED  TO  CRID  IN  LINK  4 

LNK2 

80 

DNS 

m 

SOIL  DENSITY  I Gh/CM**3 J  AT  GROUND  ZERO 

LNK2 

81 

IF  NOT  PUNCHED,  DNS  «  2.6 

LNK2 

82 

DNSTV 

• 

particle  density 

LNK2 

63 

DPST 

* 

ARRAY  (12),  DEPOSIT  INCREMENT  VARIABLES,  COMPILED  IN 

LNK2 

84 

ARRAY  GDPST 

LNK2 

85 

(1)  -  X  COORDINATE  (RESERVED  FORI  OF  INCREMENT  CENTER 

LNK2 

26 

( 2 J  -  Y  COORDINATE  (RESERVED  FOR)  OF  INCREMENT  CENTER 

LNK2 

87 

(31  •  SPARF 

LNK2 

88 

(4)  .  TIME  I SEC  1  COORDINATE 

LNK2 

89 

(51  .  INCREMENT  RADJU5  (M)  AT  TIME  DPX  (4) 

LNK2 

90 

(6]  •  INCREMENT  P.S.C.  MIDPOINT  IMICR0NS1 

LNK2 

91 

( 7 |  »  SPARE 

LNK2 

92 

(»]  -  INCREMENT  NUMBER  ASSIGNED  IN  ORDER  COMPUTED 

LNK2 

93 

1 9  J  -  TBRSTZ 

LNK2 

94 

1101  -  spare 

LNK? 

95 

til]  -  MASS  PER  UNIT  AREA 

LNK2 

96 

(121  •  INCREMENT  ALTITUDE  IM,  HSU 

LNK2 

97 

DPSTK 

* 

NUMBER  OF  DPST  PER  P.S.C. 

LNK2 

58 

DPSTZ 

• 

ARRAY  (l?!,  DPST  VARIABLES  USED  TO  COMPUTE  INITIAL 

LNK2 

99 

ALTITUDE  OF  A  DEPOSIT  INCREMENT  CENTER 

LNK? 

100 

flJ  -  DPST  THICKNESS  IHJ 

INK? 

101 

I2J  -  DPST  ALTITUDE  [Ml 

LNK2 

102 

13-12)  -  Empty 

LNK? 

103 

DPVOl 

a 

DERIVATIVE  OF  PVOL 

LN*2 

104 

DPX 

m 

ARRAY  13,  90).  DEPOSIT  INCREMENT  RISE  AND  EXPANSION  VARJ A8LLNK2 

103 

ix.  JJ  -  LIFT  RATE  FACTOR  AT  /  ABOVE  CLOUD  BASE  (1/SEC! 

LNK? 

106 

(2,  Jj  -  LIFT  RATE  FACTOR  BELOW  CLOUD  BASE  (1/S6C! 

LNK2 

107 

(3,  ji  -  empty 

LNK2 

108 

ORM 

- 

DERIVATIVE  OF  KM 

LNK2 

109 

DS 

a 

DERIVATIVE  OF  S 

LNK? 

no 

OST 

• 

INITIAL  INTEGRATION  STEP  LENGTH 

LNK? 

ill 

dstr 

«* 

SUBROUTINE,  COMPUTES  P ART J CLE-S I  ZE  DISTRIBUTION  PARAMETERS. 

LNK? 

112 

CMEAN  AND  CSIGMA 

LNK  2 

113 

(SEE  CRM! 

LNK? 

114 

DSTl 

• 

STEP  LENGTH  FOR  1  LESa  THAN  TIME  LESS  THAN  CHANGE 

LNK? 

115 

DST2 

• 

INTEGRATION  STEP  LENGTH  AFTER  TIME  6MAN8E 

LNK2 

116 

OT 

• 

DERIVATIVE  OF  T 

LNK? 

117 

DU 

» 

DERIVATIVE  OF  U 

LNK? 

lid 

OV 

• 

derivative  of  V 

LNK2 

119 

ovat 

• 

ARRAY  (601,  FOR  TRANSMISSION  OF  VARIABLE  DERIVATIVES 

LNK? 

120 

So 


c 

DVD 

- 

SUBROUTINE,  COMPUTES  DPSTK  AND  KDPST 

LNK2 

121 

c 

(SEE  RSXP1 

LNK? 

122 

c 

DWT 

m 

DERIVATIVE  0^  WT 

LNK2 

123 

c 

DX 

» 

DERI  VAT  I Vt  OF  X 

LNK2 

124 

c 

D  Y 

• 

ARRAY  [*>01,  DERIVATIVES  OF  Y 

lNK2 

125 

c 

D7 

m 

DERIVATIVE  OF  z 

LNK2 

126 

c 

Dll 

m 

coefficient  of  quadratic  in  t  for  c  SUB  pw 

LNK2 

127 

c 

D1 

m 

SEE  definition  of  do 

LNK2 

128 

c 

02 

m 

SEC  DEFINITION  OF  DO 

LNK2 

129 

c 

ED 

•» 

EDDY  VISCOSITY  LOSS  RATE  OF  KINETIC  ENERGY  OF  RISE 

LNK2 

130 

c 

EK 

w 

KINETIC  ENERGY  DENSITY 

LNK2 

131 

c 

EPS 

V 

KINETIC  ENERGY  LOSS  RATE 

LNK2 

132 

c 

ERROR 

• 

SUBROUTINE,  FOR  GENERAL  UTILITY  ERROR  INDICATION 

LNK2 

133 

c 

l SEE  DASA-1B00-V) 1 1 

LNK  2 

134 

c 

ES 

• 

saturation  pressure  of  water  vapor  (Invalid  fop  temperature  lnk? 

115 

c 

above  soiling  point  of  wateri 

LNK2 

136 

c 

ETA 

• 

ARRAY  1 26(1 1  ATMOSPHERE  AIR  COEFFICIENT  OF  VISCOSITY 

LNK2 

137 

c 

f  gm/cm/sec  j  matches  alt 

LNK2 

138 

c 

THF  MNEMONIC  ETA  IS  CHANGED  TO  ATEMP  JN  LINK  4.  THE  UNITS 

OFLNK2 

139 

c 

ATEMP  ARE  KGM/M/SEC 

LNK2 

140 

c 

F 

• 

FRACTION  OF  W  IN  FIREBALL  AT  START  OF  PISE 

LNK2 

141 

r. 

falrat 

a. 

SUBROUTINE,  COMPUTES  PARTICLE  SETTLING  RATE  IN  RSXP 

LNK2 

142 

c 

tSEE  DASA-18nO-IV] 

LNK2 

143 

c 

,'LAMDA 

«■ 

KOLMOGOROV  MICROSCALE 

LNK2 

144 

c 

FMAS 

• 

(SEE  DEFINITION  OF  GdPST(5,JIJ 

LNK2 

145 

n 

r  MASS 

• 

ARPAYC200I, PARTICLE  SIZE  CLASS  FRACTION  OF  TOTAL  MASS  LIFTEDLNK2 

146 

C 

FMT 

• 

O&JECT-TIME  FORMAT  USED  TO  READ  ATMOSPHERE  TABLES 

LNK2 

147 

c 

FMU 

• 

SUTHERLAND  EXPRESSION  FOR  THE  VISCOSITY  OF  AIR 

LNK2 

148 

c 

FNU 

* 

FMU/PA (EQUALS  KINEMATIC  VISCOSITY) 

LNK  2 

149 

c 

FRAC 

• 

FRACTION  OF  MASS  WHICH  HAS  EITHER  FALLEN  OUT  OF  THE  CLOUD 

LNK2 

150 

c. 

OR  IS  STILL  CONTAINED  IN  THE  CLOUD 

LNK2 

151 

c 

F  SPEED 

SUBROUTINE,  GENERATES  THE  PARTICLE  FALLING  SPEEDS 

LNK2 

152 

c 

f SEE  CRM) 

LNK2 

153 

c 

FH 

• 

FISSION  YIELD  IN  -  ILOTONS 

LNK2 

154 

c 

GAL'SSP 

m 

SUBROUTINE,  EVALUATES  THE  GAUSSIAN  PROBABILITY  INTEGRAL 

LNK2 

155 

r 

(SEE  CRM  1 

LNK2 

156 

c 

GDPST 

m 

APRAYl6,lUnJ,  DEPOSIT  INCREMENT  VARIABLES 

LNK2 

157 

c 

11,  Jl 

• 

PARTICLE  X  COORDINATE 

LNK2 

158 

c 

(2.  jl 

particle  y  coordinate 

LNK2 

159 

c 

13.  Jl 

TIME  COORDINATE 

LNK2 

160 

c 

( 4 »  J  1 

PARTICLE  DIAMETER  (MICRONS) 

LNh2 

161 

c 

lb,  J) 

M aS5  PEP  UNIT  AHEA 

LNK2 

162 

c 

lt>.  Jl 

PARTICLE  2  coordinate 

LNK? 

163 

c 

GRASS 

FPACT I ON  OF  THE  TOTAL  NON-WATER  MASS  WHICH  HAS  FALLEN  OUT 

OFLNK2 

164 

c 

TEE  CLOUD  TO  THE  STATED  TIME  EXCEPT  LAST  STEP  WHEN  IT 

LNK2 

165 

c 

DENOTES  THE  FRACTION  OF  THF  ORIGINAL  NON-WATER  HASS  STILL 

LNK2 

166 

c 

CONTAINED  IN  ThE  CLOUD, 

LNK2 

167 

c 

GPSD 

* 

SUBROUTINE,  COMPUTES  P.S.C.  MIDPOINTS  FUR 

LNK  2 

168 

c 

P*RT!CLF  SIZE  VS.  MASS  DISTRIBUTION 

LNK2 

169 

c 

URV 

- 

ARRAY ( 26G  J  ACCELERATION  DUF  TO  GRAVITY 

LNK  2 

170 

c 

ICM/SEC/SEC3  MATCHES  ALT 

LNK2 

171 

** 

HEIGHT 

• 

HEIGHT  OF  BURST  (METPRSJ 

LNK2 

172 

c 

HOB 

- 

HEIGHT  (FT)  OF  BURST  ABOVE  BURST  GROUND  ZERO  ZBRSTZ) 

LNK2 

173 

c 

HSCl 

- 

SCALED  HEIGHT  OF  BURST  (FTJ 

LNK2 

174 

c 

10RD 

«• 

SUBROUTINE,  READS  LINK  2  INPUT  CARDS 

LNK? 

175 

c 

idistr 

* 

PART  I CLF  DISTRIBUTION  CONTROL  PARAMETER 

LNK2 

176 

c 

0  -  A  LOGNORMAL  DISTRIBUTION  IS  SPECIFIED 

LNK2 

177 

c 

i  -  A  TABULAR  D I STH I  BUT  PSA  IS  SPECFIED 

LNK? 

178 

c 

1FXEC 

- 

CONTROL  INTEGER  FOR  CALLIW  PROGRAM  LINKS 

LNK? 

179 

c 

INTR 

- 

NUMBER  OF  0.5  PERCENT  INTERVALS  IN  A  P.S.C. 

LNK2 

180 

Cl 
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11  THRU  ?om 

LNK2 

iei 

If'AM 

- 

CONTROL  INTEGER  FOR  P*M  OPTION 

LNK2 

162 

0  -  NO  PAM  C‘LL 

LNK2 

163 

l  -  call  pam 

LN«2 

184 

IRAD 

• 

NUM0FR  OF  DEPOSIT  INCREMENT  AREA  SUBDIVISIONS 

LNK2 

195 

{RISE 

• 

logical  designation  for  tape  USED  FOR  TEMPORY  STORAGE  IN 

LNK2 

186 

ATMR  AND  FOR  RSXP  OUTPUT 

LNK2 

187 

itab 

- 

NUMBER  OF  PARTICLE  SIZE  CLASSES  COMPUTED  IN  GPSD 

LNK2 

188 

THE  MNEMONIC  ITAB  IS  CHANGED  TO  NPC  IN  LINK  4 

LNK2 

189 

JBASE 

•A 

COMPUTED  GO  TO  INDEX 

LNK2 

190 

1  -  CONTINUE  DPST  TRAJECTORY  COMPUTATION 

LNK2 

191 

2  *  DPST  TRAJECTORY  COMPLETE 

LNK2 

192 

JPSC 

• 

PARTICLE  SIZE  CLASS  SELECTOR 

LNK2 

193 

kbase 

• 

computed  go  TO  INDEX 

LNK2 

194 

1  -  ADJUST  DPST  RADIUS  AND  ACTIVITY  FOR  LEAVING  CLOUD 

LNK2 

195 

2  -  ADJUSTMENT  OF  1  HAS  BEEN  MADE 

LNK2 

196 

KCLD 

• 

CONTROL  INDEX  FOR  CRM  DEBUG  PRINTOUT « 

LNK2 

197 

0  •  NO  DEBUG  PRINT  OUT 

LNK2 

198 

1  -  DEBUG  PRINT  OUT 

LNK2 

199 

KCX 

w> 

NUMBER  OF  DPST  RISE  AND  EXPANSION  INTERVALS 

LNK2 

200 

KOI 

m 

numbfr  of  deposit  increment  PER  psc 

LNK2 

201 

IF  NOT  PUNCHED,  IT  Is  COMPUTED  BY  PROGRAM 

LNK2 

202 

(SEE  RSXPI 

LNK2 

203 

KDPST 

m 

SEE  PPSTK 

LNK2 

204 

KEQ 

- 

COMPUTATION  CONTROL  INDEX 

LNK2 

205 

0  -  OMIT  COAGULATION  COMPUTATION  IN  CRM 

LNK2 

206 

1  -  PERFORM  COAGULATION  COMPUTATION  IN  CRM 

LNK  2 

207 

THESE  DESIGNATIONS  ARE  CHANGED  IN  CPV 

LNK2 

208 

KRD 

- 

'.MIT  MUMPER  OF  TAPE  CONTAINING  INPUT  CARDS 

LNK  2 

209 

f  ROM  OFF-LINE  CARD  READER 

LNK2 

210 

KRX 

m 

CONTROL  INDEX  FOR  RSXP  DEBUG  PRINTOUT , 

LNK2 

211 

0  -  NO  DEBUG  PRINT  OUT 

LNK2 

212 

1  -  DEBUG  PRINT  OUT 

LNK2 

213 

KSV 

m 

INDEX  WHICH  DETERMINES  FUNCTION  OF  NSTR 

LNK2 

214 

1  -  PRESERVE  VARiABLES  AT  START  OF  TIME  STEP 

LNK2 

215 

2  -  RESTORE  VARIABLES  TO  THOSE  AT  SI  ART  OF  TIME  STEP 

LMK2 

216 

KTR 

m 

UNIT  NUMBER  OF  TAPE  CONTAINING  OUTPUT  FOR  OFF-LINE 

PRINTER 

LNK? 

217 

KXT 

- 

1-THFRE  IS  LOCAL  FALLOUT 

LNK  2 

218 

2-THERE  IS  NO  LOCAL  FALLOUT 

LNK2 

219 

LDZERO 

• 

flamda 

LNK2 

220 

LODO 

m 

LENGTH  OF  PARTICLE  DESCRIPTION  DATA  BLOCK 

LNK2 

221 

MCX 

« 

NUMBER  OF  TIME  POINTS  ( ROWS  1  OF  ARRAY  r Y 

LNK2 

222 

THE  MNEMONIC  MCX  IS  CHANGED  TO  NPOSIT  IN  RSXP 

LNK2 

223 

MU 

• 

FMU 

LNK2 

224 

MNYA 

• 

1,  INITIAL  ENTRY  INTO  CXPN 

LNK2 

225 

2,  REGULAR  ENTRY 

LNK2 

226 

3,  F  INAL  ENTRY 

LNK2 

227 

N 

• 

CLOUD  MODE  SWITCH 

LNK2 

228 

NAT 

• 

(SEE  DEFINITION  OF  NPVA) 

LNK2 

229 

NDST* 

• 

NUMBER  OF  ENTRIES  IN  TABLE  OF  Y 

LNK2 

230 

NEO 

• 

NUMBER  OF  PARTICLE  3JZE  CLASSES  IN  CRM, 

LNK2 

231 

IF  NOT  PUNCHED,  NEO  ■  40 

LNK  2 

232 

LIMITS  0?  NfcO  ■  1.  4fl 

LNK2 

233 

• 

IF  THE  EMPfR'CAL  TABULAR  DISTRIBUTION  JS  USED,  THE 

PROGRAM 

LNK2 

234 

SITS  ’HE  VALUE  OF  NEO  AT  NOSTR 

LNK2 

235 

NNN 

• 

TOTAL  NUMBER  OF  EQUATIONS  BEING  INTEGRATED 

LNK2 

236 

NP 

• 

(SEE  DEFINITION  OF  LODDJ 

LNK? 

237 

NPOIIT 

• 

(SEE  DEFINITION  OF  MCXJ 

LNK2 

238 

NPS 

• 

(SEE  DEFINITION  OF  J TAB ) 

LNK2 

239 

npva 

m 

NUMBER  OF  ELEMENTS  IN  ALT  AND  CORRESPONDING  ARRAYS 

LNK  2 

240 

as 
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PAM 

PARDIS  - 
PARTfiO  - 


PHI 
PRBT 
PRIM 
PRS 
PS 

PS  I  z 

PV 
'J  P  VOL 
C  PW 
C  PO 
C  PV 
C  PVI 
C  Q 

c 

C  00 
C  Q I 
C  R 
C  RA 
C  RAI) 

C  RADIUS 
C  RFD 
C  RFM 
C  RFO 
C  RF1 
C  RF2 
C  R’iJ 
C  RHCPS 
C  RHZ 


C  HKGJLL 
C 

C  RK2 
C  RK3 
C  RL 


LIMITS  OF  NPVA  s  1,260 

TH£-  MNEMONIC  NPVA  IS  CHANGED  TO  NAT  IN  LINK  4 
CONTROL  INTEGER  INDICATING  f Y PE  OF  DEBRIS  DISTRIBUTION 
OUTPUT  BY  THC  CLOUD  RISE  CALCl-ATIONS 
0  -  HORIZONTALLY  NONUNIFORM 
1  -  HORIZONTALLY  UNIFORM 

THIS  CLOUD  RISE  MODEL  PRODUCES  ONLY  A  HORIZONTALLY 
UNIFORM  DISTRIBUTION 

NUMBER  OF  EQUAL  MASS  P.S.C.  IN  OUTPUT  DISTRIBUTION 
IF  NOT  PUNCHED,  I  CRD  SETS  NT VL  a  10 
LIMITS  OF  NT  VL  =  1,  ?00 

if  the  empirical  tabular  distribution  option  is  exercised, 

AND  NT VL  IS  NOT  SPECIFIED  BY  THE  USER,  THE  PROGRAM  SETS 

THE  VALUE  OF  NTVL  AT  NDSTR 

FN'J 

ATMOSPHERIC  PRESSURE  AT  CLOUD  CENTER  ALTITUDE 

ARRAY (2001,  PARTICLE  SIZE  THAT  INDICATES  THE  LOWER  BOUND  OF 

A  PARTICLE  SIZE  CLASSISEE  GPSD) 

DUMMY  SUBROUTINE,  PARTICLE  ACTIVITY  MODULE 

subroutine,  gfnerate  initial  mass  distribution 

I  SEE  CRM  I 

SUBRO',.  !  NE ,  EVALUATES  THE  PARTICLE 
NUMBFR  DISTRIBUTION  DERIVATIVES 
(SEE  CRM] 

FRACTION  OP  F*W  USED  TO  HEAT  AIR 

ARRAY  (201J,  FRACTILES  PER  0.5  PERCENT  INTERVAL 

END  TIME  OF  COMPUTATION 

APRA Y 1260  )  ATMOSPHERIC  PRESSURE  IMBI  MATCHES  ALT 
ARRAY  1 200  1  ,  PARTICLE  SIZE  CLASS  MIDPOINT  IN  MICRONS 
:  SEE  DEF  INI  T  0  OF  GOPSTH.JI) 

ARRAY l 260 1 ,  PARTICLE  FALLING  SPEEDS  .M/SEC)  PER  ALT 
MINIMUM  PARTICLE  VOLUME 

PARTIAL  PRESSURE  0"  ''ATER  VAPOR  IN  THE  CLOUD 
GROUND  LEVEL  PRESSURE 

ARRAY  ( 260  1  -  O'JTSIDE-CLOUD  PARTICLE  FALL  RATE  (SEE  HSXPJ 
ARRAY  I  90)  -  INSIDE-CLOUD  PARTICLE  FALL  RATE  (SEE  RSXPI 
CONVERSION  FACTOR  FOR  FRACTION  MASS  TO  NUMBER  OF  PARTICLES 
PFR  M**3 
DUMMY  VARIABLE 
VIRTUAL  MASS  TERM 
CLOUD  HORIZONTAL  RADIUS 
GAS  DENSITY  OF  CLOUD 
ARRAY  [40),  RADII  OF  PARTICLE  CLASSES 
DEPOSIT  INCREMENT  RADIUS 

density  of  extra  material  IN  CLOUDIMKSMEOUALS  DNSnOOO.j 

MASS  OF  EXTRA  MATERIAL  IN  CLOUDIEOUALS  SSAMl 

COEFFICIENTS  OF  QUADRATIC  IN  T  FOR  C  SUB  PR 

SEE  DEFINITION  OF  RF 0 

SEE  DEFINITION  OF  RFo 

(SEE  DEFINITION  OF  RhZ) 

ARRAY (  90 ]  -  IN-CLOUD  GAS  DENSITY  [ SEE  RSXP) 

ARRAY l 260 I  ATMOSPHERE  *JR  DENSITY  (GM/CM**3I  HATCHES  ALT, 
THE  MNEMONIC  RHZ  IS  CHANGED  TO  RHO  IN  LINK  4.  THE  UNITS  OF 
HHO  ARE  KGM/M»*3 

subroutine,  USES  runge-kutta  METHOD  TO  INTEGRATE 
DIFFFNTJAL  EQUATIONS  OF  CLOUD 
ISEE  CRM] 

EMPIRICAL  QNSTANT  In  EDDY  VISCOSITY 
VIRTUAL  MASS  FACTOR  OPTION 
EMPIRICAL  CONSTANT  IN  ENTRAINMENT  RATE 


LNK2  241 
lNK2  242 
LNK2  243 
LNK*  244 
LNK2  245 
LNK2  246 
INK?  247 
LNK2  248 
LNK2  249 
LWK2  250 
LNK2  251 
INK2  252 
LMK2  253 
LNK2  254 
LNK2  255 
LNK2  256 
LNK2  257 
LNK2  258 
LNK2  259 
LNK2  260 
LNK2  261 
LNK2  262 
LNK2  263 
LNK2  2*4 
LNX2  265 
LNK2  266 
LNK2  267 
LNK2  268 
LNK2  269 
LNK2  270 
LNK2  271 
LNK2  272 
LNK2  273 
LNK2  274 
LNK2  275 
LNK2  276 
LNK2  T  7 
LNK?  278 
LNK2  279 
LNK2  280 
LNK2  281 
LNK2  282 
INK?  283 
LNK 2  204 
LNK2  285 
LNF  2  286 
LNL 2  287 
LNK2  288 
LNK2  289 
LNK2  250 
LNK2  291 
LNK2  292 
LNK2  293 
LNK2  294 
LNK2  20? 
LNK2  296 
LNK i  297 
LNK 2  298 
LNK 2  299 
LNK 2  300 


uoouuuuuuuuuu uuuuuuuuuoi 


C  RLM 
C  RU 

RM 

RHAO 
RMlN 

RNWfl 
RSTR 
RSXP 

RZT 
S 

SA 

SCALE 
SCTN 


SD 

sigh# 

SIZE 
SLDTMP 
SLH 

SKALLT 
C  SMSS 
C 

C  SSAM 
C  SPAREl 
C  SPARE3 
C  SV 
C  SYSTEM 
C 

C  57R0 
C  T 
C  TC 
C  TE 
C  TP 
C  TIMCX 
C  TIME 
C  THE 
C  TMPl 
C  TMP2 
C 

c  tmsd 

C  TMZR 
C  TP 
C  TR 
C  TRPL 
C 
C 
C 

C  TRQ 
C  tsalt 

C  TW 
C  TZR 
C 

C  U 
C 


ARRAY ( ?60  j  atmosphere  relative  humidity  matches  alt 
RADIUS  USED  TO  CALCULATE  DISSIPATION  RATE 
CLOUD  MASS 

INITIAL  AIR  MASS  OF  CLOUD 

MINIMUM  PARTICLE  RADIUS.  IF  NOT  PUNCHED#  RM I N  IS  COMPUTED 
IN  CPV. 

INITIAL  HATER  MASS  OF  CLOUD 

SUBROUTINE  WHICH  PRESERVES  AND/OR  RESTORES  CRH  VARIABLES 
SUBROUTINE,  RISE  AND  EXPANSION  MODEL  WHICH  COMPUTES 
DEFOSIT  INCREMENT  P8SITI0NS  AT  END  OF  CLOUD  INFLUENCE 
VERTICAL  CLOUD  RADIUS  AFTER  R  ♦  Z  «  ZT 
CONDENSED  SOIL  AND  SALT  MIXING  RATIO 
RESERVED  FOR  SOIL  PARAMETERS,  NOT  USED 
ARRAY ( 10  J  ,  ATMOSPHERE  T  ABLE  ADJUSTMENT  FACTORS 
SUBROUTINE,  COMPUTES  AND  TABULATES  DEPOSIT  INCREMENT 
2SE  AND  EXPANSION  VARIARLFS 
SEE  RSXP1 

PAPTICLE  GEOMETRIC  STANDARD  DEVIATION  SUPPLIED  BY  LlNKl 
SFr  0 1  AM .  IF  NOT  PUNCHED.  SD  ■  4.0 

STANDARD  DEVIATION  OF  LOG-NORMAL  STARTING  DISTRIBUTION  OF 
FRACTION  MASS  VS.  DIAMETER.  SEE  CRM 
PERCENT  OF  TOTAL  MASS  IN  A  PARTICLE  SIZE  CLASS 
PARTICLE  SOLIDIFICATION  TEMPERATURE  IK1 

ARRAY  I  260  I  ATMOSPHERE  MEAN  FREE  PATH  OF  AIR  MOLECULES  I  CM ] 
MATCHES  alt 

T I  Mi  AFTER  START  OF  COMPUTATION 

AR.-I/t  1 4  0  J »  MASS  OF  TOTAL  SOIL  FALLOUT 

CORRESPONDING  WITH  PARTICLE  RADIUS  ARRAY  RAO [401 

TOTAL  SOIL  MASS  IKGJ 

SPARE  VARIABLE 

SPARF  VARIABLE 

ARRAY  12001.  SURFACE  TO  VOLUME  RATIO  OF  I-TH  PARTICLE  SIZE 

SUBROUTINE,  GENERATES  PARTICLE  NUMBER  DENSITY 

(SFE  CRM  J 

S  AT  INITIAL  TIME 

CLOUD  TEMPERATURE  IKJ 

(SEE  DEFINITION  OF  CXll.JU 

ATMOSPHERIC  TEMPERATURE  AT  CLOUD  CENTER  ALTITUDE 
FREEZING  TEMPERATURE  USEO  TO  SELECT  VALUE  OF  L 
ARRAY!  901  *  CORRESPONDS  TO  CXll.Jl  [SEE  RSXPI 
TIME  THE  CLOUD  HAS  LEFT  AN  ALTITUDE  LAYER.  SEE  CRM 
INITIAL  TIME  I  SEC  1  SUPPLIED  BY  LlNKl 
INITIAL  VAPOR  TEMPERATURE  IK)  SUPPLIED  BY  LlNKl 
INITIAL  TEMPERATURE  OF  CONDENSED  PHASE  MATERIAL  IN  CLOUD 
SUPPLIED  BY  L ! NK1 { NOT  USED) 

TIME  or  PARTICLE  SOLIDIFICATION  t  SEC  I  WITHIN  CLOUD 

CLOUD  RISE  START  TIME  I  SEC ]  SUPPLIED  BY  LlNKl 

(SFE  DEFINITION  OF  G0PST(3,J11 

BOILING  TEMPERATURE  OF  EXTRA  MATERIAL  IN  CLOUD 

SUBROUTINE,  USES  LINEAR  INTERPOLATION  TO  COMPUTE  VARIABLE 

CORRESPONDING  TO  ARGUMENT 

(SEE  CRM  I 

(SEE  RSXPI 

MAXIMUM  TEMPERATURE  TO  WHICH  EXTRA  MATERIAL  HAS  BEEN  HEATED 
BOILING  TEMPERATURE  OF  SALT  IK) 

total  yield  in  kilotons 

INITIAL  CLOUO  GAS  TEMPERATURE  SUPPLIED  BY  LlNKl 
(EQUALS  TMPl) 

CLOUD  VERTICAL  VEt DC  I T Y 
t SEE  CRM) 


LNK2  301 
LNK2  302 
LNK2  303 
LNK2  304 
LNK2  305 
INK2  306 
LNK2  307 
LNK2  308 
LNK2  309 
LNK2  310 
LNK2  3U 
LNK2  3t2 
LNK2  313 
LNK2  314 
LNK  2  315 
LNK2  316 
LNK2  317 
LNK2  318 
LNK2  319 
LNK2  320 
LNK2  321 
LNK2  3?2 
LNK2  323 
LNK2  324 
LNK 2  325 
LNK2  326 
LNK2  327 
LNK2  328 
LNK2  329 
LNK2  330 
LNK2  331 
LNK2  332 
LNK2  333 
LNK?  334 
LNK  £  335 
LNK2  336 
LNK?  337 
LNK2  338 
LNK2  339 
LNK 2  340 
LNK2  341 
LNK2  341 
LNK2  343 
LNK2  344 
LNK2  345 
LNK2  346 
LNK2  347 
LNK2  348 
LNK 2  349 
LNK2  350 
LMK2  351 
LNK2  352 
LNK2  353 
LNK2  354 
LNK2  355 
LNK2  356 
LNK 2  357 
LNK2  358 
LNK?  359 
LNK2  36C 


8U 


A 


C  UPVcS 

c 

C  USOIL 


C  UNITS 
C 

C  V 
C  VB 
C  VISPS 
C  VPR 
C  VT 
C  W 
C  WT 


C  XPAB 

c  r 


C  YPAR 
C  Z 
C  ZP 

c  zbfr 

C  ZBRSTM 
C  ZBRSTZ 
C  ZHSS 

c 

C  ZMZ7 
C 

c 

C  ZPAR 

c  zrfr 
C  ZT 

r 

C  ZTRP 
C  7  VSB 


SUfiROUT I NE ,  JPQATES  PARTICLE  VOLUME  FROM  THE 
OONDFNSA1 ION  OF  SALT 
SOIL  TYPE,  1.0  =  SILICEOUS 
2.0  =  CALCAREOUS 
IF  NOT  PUNCHED.  USOlL  =  1.0 

RESERVED  FOR  INDICES  WHICH  WILL  ALLOW  PROGRAM  TO  RECOGNIZE 
AND  ADJUST  INPUT  BURST  COORDINATES 
CLOUD  VOLUME 

(SEE  DEFINITION  OF  CX(S, J) ! 

ARRAY!  90)  -  IN-CLOUD  AIR  VISCOSITY  (SEE  RSXP) 

MASS  OF  VAPOR  (KG]  SUPPLIED  9Y  LINK1 
(SEE  DEFINITION  OF  Cx  !  7 #  J ] 1 
TOTAL  YIELD  tKT] 

SOLID  AND  LIOUIU  WATER  MIXING  RATIO 
WATER  VAPOP  MIXING  RATIO 

ALSO  USED  AS  A' ^GIPARTICLE  RADIUS)  IN  PARDIS 
(SEE  DEFINITION  OF  G.iPSTCl.Jli 

array  (401,  particle  mass  distribution  table 

CORRESPONDING  WITH  PARTICLE  RADIUS  ARRAY  MAD  14  0) 

ALSO  USED  IN  TERMS  OE  NUMBER  OF  IN-CLOUD  PARTICLES/UNIT 

VOLUME  OF  CLOUD 

(SEE  DEFINITION  OF  U0PSTr2,J)i 

CLOUD  CENTER  ALTITUDE 

1  SEE  DEF INITIO  i  OF  Cxt3. Jl  1 

MAXIMUM  Z  OF  CURRENT  OR  PREVIOUS  ENTRIES  TABULATED  BY  CXPN 
Z-COORUINATb  OF  BURST  GROUND  ZERO  (METERS  ABOVE  MSL ! 
Z-JOPRDINATE  or  BURST  GROUND  ZERO  (FT.  MSL! 

ARRAYMO),  FRACTION  OF  TOTAL  SOIL  MASS  LIFTED 

CORRESPONDING  WITH  PARTICLE  RADIUS  ARRAY  RAD ( 40 1 

CUMUl AT  I VF  f  OVER  ALL  PARTICLE  SIZE  CLaSSESJ  MASS  FRACTION 

OF  SOIL  FALLOUT 

IUSFD  AS  A  DEBUG  DIAGNOSTIC) 

[SEE  DEFINITION  OF  GDPST  I  6  ,  J  )  I 
REFRACTORY  EXPOSURE  RATE  TOTAL 
NOMINAL  ALTITUDE  OF  TROPOPAUSE 
ALSO  SEE  DEFINITION  OF  CXI4.J] 

NOMINAL  ALTITUDE  OF  TROcOP AUSE ! SAME  AS  ZT] 

DIFFERENCE  BETWEEN  ALTITUDE  OF  DPST  (121  AND  CX  (3.  JI 


C  ****»»****<'••*** 


COMMON  /SFTl. 


1 

DIAM 

.  DETID 

.  I R  I  SF 

.  I  EXEC 

,  KRT 

• 

KTR 

,  LNK2 

403 

2 

SD 

,  SPAR 

,  SSAK 

,  THE 

.  TMPl 

0 

TMP2 

,  LNK2 

404 

3 

T2M 

,  USOIL 

,  VPR 

,  TW 

.  HEIGHT 

0 

Z 

,  LNK? 

405 

4 

Y 

,  NDSTR 

,  IDISTR 

,  SPAR1 

.  SPAR? 

0 

SPAR3 

,  LNK  2 

<•06 

5 

SPAR4 

»  RMIN 

,  SPAR6 

,  SPAR7 

,  SPARB 

0 

SPAR9 

LNK  2 

407 

dimension 

1  AT  I D  1121.  DNID 
2ALT[26U).ATP(260] 
3mHZ(260J.RLH(260J 
4  DETIDU2) 
DIMENSION 

1  CF  (40,  401,  CX 
DIMENSION 


DNIP1121  ,  CXT I M i 90  J ,  CXTMPI90), 
1260], ETA( 260), GRVI26Q1 .PRSI260) , 

{ 260  J , SLM 1 260  I , 


90  ) , DPX ( 3 , 90  I 


1  •.0PST(6,1 

DIMENSION  v( 
DIMENSION  PV 
EOlllVALfcNCr 
KPACTll  J,CF( 


0  0  J.  PS[200J,FMASS1200I,SV(200),PACTI20C' 

40)«7MSS(401.RaD(40J 

(260),  PVII901,  TIMCXI90I 

(PSH I ,CF(1 ] ), (FMASS(l) ,CF (2011  I , i SV ( 1 1 . CF ( 401 H  , 
601 J  ! ,  (  GDPST  ( 1  ]  ..  CF  t  8  0 1  I  1  . 


ooo  o  o  o  n  o  n  o  o  o  o  n 


2  icxTiMm,cFii4nin.  tcxTMpm.cni<9iii#iopx(ii,«LHiin  lnk2 

EUUIvAlENCE  IPVll  J.GRVIin,  tPVItD.SLMIlll.  I 7 IHCX Ill* SLH 1  91 1  )  LNK2 

LNK2 

••••••••••••A***************#******-** **************ei»****************LNK 2 

•»***•**«*** *************************************************** ******#LNK2 

LNK? 

H0B*nc IGHT/0.3048  LNK2 

$SAH*SSAM* VPR  LNK? 

020  CALL  ICRD  t  LNK2 

1  ALT.ATID.ATP.PNiD.DNS.ETA.NFO.NPVA.NTVL.PRS.RHZ.RLH.TW.KRX.lRISE.LNK? 

2  SLR.  ZBRSTZ.ZTRP, IRAD, IPAM.SLDTHP.FW.GRV.KCLD.KDI.KEG.KRD.KTRl  LNK2 

END  ICRD  ****** *****LNK 2 

040  rFD  «  1000.0  •  DNS  LNK2 

lFIIDISTRI7Q0.7Q0.701  LNK2 

701  nEQ«NDSTR  LNK2 

700  CALL  CRM (  LNK2 

1  ALT.  ATP.  CF t  CMEAN.  CS1GHA,  CX,  HOB,  KCLP.  KEQ.  KTR,  MCX,  LNK2 

2  NEQ.  NMVA,  DIAM.  PRS,  SD,  RFD.  SSAM,  RLN,  RHIN.RAD,  LNK2 

3  TME.TMP2. rw.TMPl.ZBRSTZ.ZTRP.Y, lOISTR.ZNSS.DNSTY.SLDTMPi  LNK2 

END  CRM  ************LNK2 

!FI IDISTR1B00.600.801  LNK2 

600  SlGMA  =  0.4342944e*ALOGtC3"GMAJ  LNK 2 

BAPMU  *  n. 43429418  *  ALO'j  tCMEANJ  LNK2 

eoi  call  gpsd  i  lnk2 

1BARMU.ITAB.KRD.NTVL.  PS . PM ASS . S V , PACT. S I GMA , I D I STR , ZMSS.  LNK2 

2SSAM.NF0.DMSTY.RAD1  LNK2 

LNK2 

PRINT  FINAL  PARTJCLE  SIZE  CLASS  TABLE  LNK2 

LNK2 

WRI TE  tKTR.512  )tj.P£tJl.PACTfJ),FMASSlJI»SV[J).J*l,ITABI  LNK  2 

512  FORMAT f 1H1 , 9X , 67MP APT  I C'  E  SIZE.  LOWER  SIZE  INTERVAL  80UN0RY.  MASS  LNK2 

1FRFQUENCV.  AND  SURFACE-  O-VOLUME  RATIO/IOX,  53HF0R  USE  IN  RSXP,  TRLNK2 
2ANSP0RT.  AND  ACT  t  V  I T Y  CALCULATI0NS//20X,  BHDIAMETER.  8X,  7HB0UNDRLNK2 
3Y»  5X.13HMASS  FRACTION.  7X , 3HS/V/V  ( ‘ 2X, I  3. 4  I 3X, El2 . 5 1 II  LNrt? 

COMPUTE  PARTICLE  TIME  LNN«r 

OF  SOLIDIFICATION  LNK2 

DO  122  MA=1.MCX  LNK2 

hB*MCX-MA*1  LNK2 

CXTIm!MA1*CXI1.MR)  LNK  2 

122  CXTMPlMAJsCXIP.MBJ  LNK2 

CALL  TRPL  f  LNK2 

1  SLOTmP.  MCX,  CxTMP.  CXTIM,  TMSDJ  LNK2 

LNK2 

PRINT  TIME  OF  SOIL  SOLIDIFICATION  LNK 2 

LNK2 

WRnElKTR.SlijTMSD  LNK2 

513  FORMAT { 1H0 , 9X .  30H  T I  ME  OF  SOIL  SOL T . F I  CAT  I  ON  *  F9.4.4H  SECI  LNK2 

(;•••«••*••••*•****•*••*••*•»•••**•*•••*•••***••*•«•  BEGIN  PAM  LNK2 

SIGMA*?. Y0?585*SIGMA  LNK2 

IF! IPAMJ50.50.60  LNK2 

60  CALL  PAM  LNK? 

C*************. ••••*•*••••••**••*••••« -************  BEGIN  RSXP  LNK 2 

50  CALL  RSXPI  LNK2 

)  ALT.  CX.  UNS.  FTA.  GRV.  ITA8,  KOI,  KRD,  KRX »  KTR,  LNK2 

2  MCA, “MPVA, PS, FMASS.SV. PACT, RHZ, SSAM, SLH, DPX.  LNK? 

3  PV.PVI,  ,’IMCX,  TW.  Z8RSTZ.DETID.DNID,  IRAD,  IR1SE,  '  NK2 

4  Sl.DTMP.TMSD.FW. SIGMA. SPAREl.HOB. SPARES, IOISTR!  LNK? 

C  END  RSXP*****« i*****LNK2 

1000  RETURN  LNK2 

END  LNK2 


421 

422 

423 

424 

425 

426 

427 

428 
*?9 

430 

431 

432 

433 

434 

435 

436 

437 
436 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 
47; 

473 

474 

475 

476 

477 

478 

479 

480 
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ooo  o  oooo  non  oooooooooooooooooo'ioo 


SlfiFTC  ATMX  LIST,:u.CK,M94/2 
SUBROUTINE  ATMR  [ 

1  ALT*  ATP,  ETA,  GRV ,  KRD,  NPVA,  PRS,  RHZ*  RLH,  .SLM,  ZTRP.KTR, 

2  IRISH 

PREPARED  3/17/67 


ATmR  READS  IN  ATMOSPHERE  TABLES 

atmosphere  table  glossary-  units  are  for  the  scaled  entries 

1  ALT  -  ALTITUDE  ahove  msl  imetersj 

?  ATP  -  TEMPERATURE  (DEGREES  KELVIN] 

3  PRS  -  PRESSURE  [MU] 

4  RHZ  -  DENSITY  (GM/CM**3I 

5  RL1-'  -  RELATIVE  HUMIDITY  [PERCENT! 

6  ETa  -  VISCOSITY  f GM/ ( cm-sec ) J 

7  GRV  -  ACCELERATION  OP  GRAVITY  tCM/SEC**21 

8  SLM  -  MOLECULAR  MEAN  FREE  PATH  [CM] 


ATMX 

ATMX 

ATMX 

ATMX 

ATMX 

ATMX 

ATMX 

ATMX 


DIMENSION  ALT (2601 , ATP  1260], ETA [260 1 , GRV (2601  , PRS [ 260 3  , 
lRHZ'26O],RLH[?6l)J.SLMt260J  ,  FMT  ( 12  ) ,  SCA]  E  1 10  ’  .  ATMSUB  [  8  ]  , 
2  A1rtZROt»],ATMMAX[9J,APtfU 


DATA  PROGRM/6H  ATMR  / 

DATA  ATMSUB 

1  /-lOOO. *294.66, .134 7E-2, .18206E-3* .1139E4, 980., 

2  V  60323E-5 » 77 . / 

DATA  ATMZRO 

1  /  U< 0*288. 18. .12250E-2, .17094E-3, .10133E4, 980., 

2  .-863176-5,  77./ 

DATA  ATNMAX 

1  /50000. *282. 66r.l0829E -5, .17628E-3, .87858*965.42, 

2  i 75023E-2,  0.0/ 

I G  0  =  0 
NURNCHel 

MATC0R*il.-18./29. J/100. 

READ  OBJECT-TIME  FORMAT 
RE AD (KRD, 30 ] FMT 

r;-,'D  scale  and  adjustment  factors 


0 

1 

2 

3 

4 

5 

6 
7 


*ATMX  8 
ATMX  9 
ATMX  10 
ATMX  11 
ATMX  12 
ATMX  13 
ATMX  14 
ATMX  15 
ATMX  16 
ATMX  17 
ATMX  18 
ATMX  19 
ATMX  20 
ATMX  21 
ATMX  22 
►ATMX  23 


ATMX  24 
ATMX  25 
ATMX  26 
ATMX  27 
ATMX  28 

*****»*****»*•*!**♦***♦►»*#  ***«*<►***♦  ••••***»*******#******##****«*****ATMX  29 

ATMX  30 

010  FORMAT [14]  ATMX  31 

20  FORMAT [814]  ATMX  32 

30  FORMAT [ 12A6 ]  ATMX  33 

40  FORMAT(7F10.5/3F10.5)  ATMX  34 

ATMX  35 

«»*****************»******tt*******  **********0*** **************** *****ATMX  36 

«•**«**.*•».***„».*•*. ...*..**..«.....********..*****•*•*. **«**.******ATMX  37 

ATMX  38 
ATMX  39 
ATMX  4G 
ATMX  41 
ATMX  42 
ATMX  43 
ATMX  44 
ATMX  45 
ATMX  46 
ATMX  47 
ATMX  48 
ATMX  49 
ATMX  50 
ATMX  51 
ATMX  52 
ATMX  53 
ATMX  54 
ATMX  55 
•TMX  56 

C  ATMX  57 

C  R!,'D  SCALE  AND  ADJUSTMENT  FACTORS  ATMX  58 

C  ATMX  59 


67 


/  SZTf&'fSf* 


fvT-  <  #.  -  v-5  ' 


READIKRD, 40 ) SCALE 
DO  90  1*3,10 

iFISCALEtn.EQ.O.O]  SCALE  (  M  *1 , 

90  CONTINUE 
C 

C  READ  ATMOSPHERE  DAT*  SEQUENCE  INDIC1ES 

c 

REAUIKRD.20JN1.N?,N3,N4,N5,N6.N7.N8 

c 

c  read  number  or  atmosphere  table  entries 
c 

readikrd. iojnpva 

c 

c  read  atmosphere  table  ENTRIES,  sequence  and  adjust  them  to  the 

C  rSOPER  UNITS,  AND  WHERE  APPROPRIATE  COMPUTE  THOSE  ENTRIES  NOT 

C  PROVIDED  IN  THE  INPUT’.'  ETA.  GRV.  AND  SLM  NEED  NOT  BE  INPUT. 

C  EITHER  PRS  OR  RH?  (BUT  NOT  BOTUl  NEED  NOT  BE  INPUT 

C 

DO  100  !«1.NPVA 

beadjkrd.pmt J AP 

ALTm«(AP(NU*SCALfcm  I*SCAL6f3! 

ATP(II«(APtN21*SCAL6(21I«SCALEr4J 

PRSl IJ«APIN3J*SCaLE15J 

RHZt  I  J»AP(N4J*  SC  ALE-163 

RLH(II«AP(N5I*SCALE(7J 

ETAI I J*APIN6J*SCALE18J 

GHVt I 1«AP[N7]*SCALE (91 

SLMIU«AP(N8]*SCALE(10} 

C 

c  are  successive  table  entries  in  order  or  increasing  altituue- 
c 

im.EQ.il  GO  TO  50 
irtALTm.GT.ALTf  I-1I)  GO  TO  50 
45  !RROR«-45 
GO  TO  130 

50  irjGRVm.GT.O.OJ  GO  TO  70 
GRV 1 1 } «9ao . 

7U  trtETAUJ  .GT.0.0)  GO  TO  1070 

ETAII ]»1.458E”5*AT°! I ]**1.5/(llO,4*ATPl I  It 
1070  irtPRSII  1 .GT.U.OJ  GO  TO  73 
irtRHZm.GT.C.OJ  GO  TO  72 
71  IRROR»-7l 
GO  TO  130 

7*  ES»  6. 11*1273. /ATP(  m««5. 13*  EXP  C  25 .  *  t  ATR I II -273.  I /ATP  (III 
PRS  til*  2867,9*  RHZm*ATP(Il  *ES*RLH(I)*MATCOR 
GO  TO  60 

73  iriRHZHi  .GT.O.PI  GO  TO  60 

ES»  6711*1273. /ATPim**5. 13*  EXP  ( 25.*  t  ATP  (II -273.  I/ATPllJI 
RHZU1*  (PRSm-ES*RLHm*MATC0RJ/I2867.9*ATPn  I  I 
60  irtSLHtll  '•  GT.0.0)  GO  TO  100 
SLMtI)«2.33239e-5*ATP(I J/PRStl J 
100  CONTINUE 

c 

C  DETERMINE  jr  THE  TABLE  MUST  BE  EXPANDED  T8  256  ENTRIES 
C 

110  !P(NPVA-256 1140*111, 120 
C 

C  111  THE  TABLES  DO  NOT  NEED  EXPANSION.  CHECK  TO  DETERMINE  ir  THE 
C  TABLES  HAVE  THE  PROPER  BQUNDRIES, 

C 


ATHX 

60 

ATMX 

61 

ATHX 

62 

ATHX 

63 

ATHX 

64 

ATMX 

65 

ATMX 

66 

ATMX 

67 

ATMX 

68 

ATMX 

69 

ATMX 

70 

ATMX 

71 

ATMX 

72 

ATMX 

73 

ATMX 

74 

ATMX 

75 

ATMX 

76 

ATMX 

77 

ATMX 

78 

ATMX 

79 

ATMX 

80 

ATMX 

61 

ATMX 

82 

ATMX 

83 

ATMX 

84 

ATMX 

85 

ATMX 

86 

ATMX 

87 

ATMX 

88 

ATMX 

89 

ATMX 

90 

ATMX 

91 

ATMX 

92 

ATMX 

93 

ATMX 

94 

ATMX 

95 

ATMX 

96 

ATMX 

97 

ATMX 

98 

ATMX 

99 

ATMX 

100 

ATMX 

101 

ATMX 

102 

ATMX 

103 

ATMX 

104 

ATMX 

105 

ATMX 

106 

ATMX 

107 

ATMX 

108 

ATMX 

109 

ATMX 

110 

ATMX 

111 

ATMX 

112 

ATMX 

113 

ATMX 

114 

ATMX 

115 

ATMX 

116 

A.  MX 

117 

ATHX 

116 

ATHX 

119 

88 


111  1 F ( ABS  t  alt  r 1 J ♦  1000  .  J  .LE.l, J  GO  TO  113 

112  JRRORs-112 
GO  TO  13(1 

113  IF(ABS[ALTI256)-5.F4) ,LE.5o.)  GO  TO  115 

114  JRRORs-114 
GO  TO  130 

115  THE  TABLES  HAVE  THE  PROPER  BOUNDRIES.  CHECK  TO  DETERMINE  IF  THE 
ALTITUDE  INTERVALS  ARE  ALL  200  METERS. 

115  DO  lit  1*2,256 

jFtABSlALTU J -ALT  1  1 -1 1 -200 . 1  ,GT.?. J  GO  TO  135 

116  CG.NTINUE 
GO  TO  270 

120  I RROR*-120 

130  CALL  ERRORIPROGRM.IRROR.KTRJ 
135  CONTINUE 

GO  TO  (140.1371 .NBRNCH 
13’  JRR0R=-137 
GO  TO  130 

140  THE  TARLES  NEED  EXPANSION  OR  INTERVAL  ADJUSTMENT 
140  REWIND  IRIS6 

DO  THE  TABLES  BEGIN  AT  -1000  METERS- 

!F  NOT  MAKE  AN  ENTRY  AT  -1000  METERS  FROM  THE  ARDC  STANDARD  ATMOS 

IF [ ABSl ALT [ 1 ) *1000 . J  ,GT.  1.)  GO  TO  150 
ALT(U*-iono. 

GO  TO  200 

15(1  WRITEIIRISFIATMSHB 
160  IGO*  inn-*i 

DO  THE  TABLES  HAVE  AN  ENTRY  AT  0  METERS- 

IF  NOT  MAKE  AN  Entry  AT  0  METERS  FROM  THE  ARDC  STANDARD  ATMOS 

TF  ( AL T ( 1 J  ,lE.  0.001] GO  TO  200 

WRITEt IRISF JATMZro 
I  GO* I GO*l 

STORE  THF  input  TABLES  ON  TAPE 
200  DO  210  1*1. NPvA 

210  WRITE!  IRISF JALTI I J . ATP  (!) , RHZ ( I) , ETA {II , PRS ( I  I , GRV III , SLM I  1 ] , 

1  RLH(I) 

do  the  tables  have  an  entry  at  50000  meters- 

(F  not  make  an  entry  AT  50000  METERS  from  the  AROC  standard  ATMOS. 

JFCALTINPVAJ  .GE.  5.E4I  GO  TO  220 
IFIABSIALTINPVAJ.5.E4! .LE.50, JGO  TO  220 
WRITES IRISF JATMMAX 
npva*Npva*i 


INITIALIZE  FOR  THE  TABLES  EXPANSION 
220  REWIND  IRISE 

npva*npva*igo 

IFINPVA-256J222.222.221 


ATMX  120 
ATMX  121 
ATMX  122 
ATMX  123 
ATMX  124 
ATMX  125 
ATMX  126 
ATMX  127 
ATMX  126 
ATMX  129 
ATMX  130 
ATMX  131 
ATMX  132 
ATMX  133 
ATMX  134 
ATMX  135 
ATMX  136 
ATMX  137 
ATMX  138 
ATMX  139 
ATMX  140 
ATMX  141 
ATMX  142 
ATMX  143 
ATMX  144 
ATMX  145 
». ATMX  146 
ATMX  147 
ATMX  148 
ATMX  149 
ATMX  150 
ATMX  151 
ATMX  152 
ATMX  153 
ATMX  154 
.ATMX  155 
ATMX  156 
ATMX  157 
ATMX  158 
ATMX  159 
ATMX  160 
ATMX  161 
ATMX  162 
ATMX  .63 
ATMX  164 
ATMX  165 
ATMX  166 
ATMX  167 
.ATMX  168 
ATMX  169 
ATMX  170 
ATMX  171 
ATMX  172 
ATMX  173 
ATMX  174 
ATMX  175 
ATMX  176 
ATMX  177 
ATMX  178 
ATMX  170 


89 


oooo  onooocio  m  o  o  c>  o  o 


221  JRR0R*-2?1 
80  TO  130 

222  0ALTa20Q. 

NPV«1 

READl!RlSE]ALTm,ATPtl),RHZm»ETA(ll,PRSlll»GRV(ll,SLMm 

1  RLH11J 
AlaALTtlJ 
A2«ATPtlJ 
A3«RMZ(1) 

A4»E?  A  C 1 } 

A5*PRSll) 

A6«GRV(1) 

A7«SLNll) 

AS>RLH(1) 

EXPAND  THE  TABLES  TO  256  ENTRIES  IN  200  METERS  INTERVALS  IN 
ALTITUDE  FROM  -1000  TO  50000  METERS  BY  LINEAR  INTERPOLATION 
FROM  THE  input  tables 

DO  260  1«2«256 
ALTU  1  «ALT 1 1 -1 1 ♦DALT 
225  IFI AlTGE. ALTI 1 1 1  GO  TO  250 

IF  I  ALT  1 1 1 -A1  .LT.  2.J  GO  TO  250 
NPV*NPV*1 

IFtNPVA-NPV  .GE.OJGO  TO  240 
230  lRR0R«-230 
GO  TO  130 

240  READ  I  IRISEIA1.A2.A3, A4, A5.A6.A7.A8 
GO  TO  225 

250  TERP«  DALT  / t Al-ALT t I -1 J ) 
ATPm«ATPl!-lI*TERP*CA2*ATPU-in 
RHZlMaRHZII-l)*TERP*tA3-RH2n»in 
ETAlIl«ETAf I -1 J *TERP* I A4-ETA tl -1 1 J 
PRS(II«PRSn-lJ*TERP*IA5-PRSU-in 
GRVUlaGRVri-1 )  ♦TERR*  I A6-GRV1 1-111 
SLMIIUSLMII-1  J*TERP*lA7-SLMII.m 
RLHtl  J«RLHt  I-l)*TERP*tA8-RLHM-ll) 

260  CONTINUE 
NPVA»256 
NBRNCHbP 
GO  TO  lxl 
270  RETURN 
END 

IBFTC  COLX  LIST. DECK, M94/2 
SUBROUTINE  COLL1S  t 

1  T.V.RM.X.S.WT.fcPS.NEQ.CF.CG.RAO.ONSTY.PVOL.P.HEQI 


COMPUTE  COLLISION  FUNCTIONS  FOR  PARTICLE  COALESCENCE 


DIMENSION 

1  CF  (40,  401.  CG  (40).  CIN  (40).  RAD  (40) 


'••••••*********»*a*«*********®* 

FMU  ■  145. 8E-8*T**1, 5/(118. 4*T ] 


ATMX  180 
ATMX  181 
ATMX  182 
ATMX  183 


ATMX 

184 

ATMX 

185 

ATMX 

186 

ATMX 

187 

ATMX 

188 

ATMX 

169 

ATMX 

190 

ATMX 

191 

ATMX 

192 

ATMX 

1*53 

ATMX 

194 

ATMX 

195 

ATMX 

196 

ATMX 

197 

ATMX 

198 

ATMX 

199 

ATMX 

200 

ATMX 

201 

ATMX 

202 

ATMX 

203 

ATMX 

204 

ATMX 

205 

ATMX 

206 

ATMX 

207 

ATMX 

208 

ATMX 

209 

ATMX 

210 

ATMX 

211 

ATMX 

212 

ATMX 

213 

ATMX 

214 

ATMX 

215 

ATMX 

216 

ATMX 

217 

ATMX 

218 

ATMX 

21  v 

ATMX 

220 

ATMX 

221 

ATMX 

222 

CCLX 

0 

COLX 

1 

.  COLX 

2 

COLX 

3 

►•COLX 

4 

COLX 

5 

COLX 

6 

COLX 

7 

►•COLX 

8 

COLX 

9 

COLX 

10 

COLX 

11 

COLX 

12 

'•COLX 

13 

'•COLX 

14 

COLX 

15 

COLX 

16 

90 


RA  *  RR/V*tl.*X)/[l.+X*S*NTl 

COLX 

17 

IF  l EPS J  002,  002,  001 

COLX 

18 

2 

EPS  «  1.  E  -4 

COLX 

19 

1 

continue 

COLX 

20 

FNU  *  FMU/RA 

COLX 

21 

FLAHDA  «  IFNU**3/EPS}**,25 

COLX 

22 

CONSTAeSORTlEPS/FNUJ 

COLX 

23 

GO  TO  Mill,  Oil,  039),  KEO 

COLX 

24 

Oil 

CONSTR  «  EPS  **  0.33333333 

COLX 

25 

00  20  I  s  Jr  NEO 

COLX 

26 

DO  20  J  «  I,  NEGl 

COLX 

27 

jFIRADm*RAD(J]-FLAMDA]21»  21,  22 

COLX 

28 

21 

CF  f  I ,  J  J  «  CONSTA*IRADUl*RADfJll 

COLX 

29 

GO  TO  20 

COLX 

30 

22 

CF(I.J)  *  CONSTB*tRAOUl*RAOIJ)l**. 

33333333 

COLX 

n 

20 

CFIJ.I)  *  CFN.JI 

COLX 

32 

TESTAsFLAMDA*SORT(RA/ONSTY) 

COLX 

33 

TESTB  *  FLAMDA*tRA/DNSTY)**.25 

COLX 

34 

TESTC  *  28‘.8*TESTB 

COLX 

35 

CONSTA  «  . 22222222*DNST Y/R A* IEPS**3/FNU**5 I ** ,25 

COLX 

36 

C0NSTB=.2222222?*SQRTIEPS/FNU*DNSTY/RA) 

COLX 

37 

CONSTC  «  .22222222*tEPS*DNSTY/RA)»* 

,44444444/FNU**. 33333333 

COLX 

38 

CONSTD  «  IEPS*DN$TY/RA)**. 33333333 

COLX 

39 

DO  30  J  =  1,  NEQ 

COLX 

40 

IF [RADI J1 -TESTA  1  31,  31,  32 

COLX 

41 

31 

ClNtJ)  *  CflNSTA*RADlJ)**2 

COLX 

42 

GO  TO  30 

COLX 

43 

32 

IFIRAOI JJ-TEST8I  33,  33,  34 

COLX 

44 

33 

ClNlJ)  =  constb*raouj 

COLX 

45 

GO  TO  30 

COLX 

46 

34 

lFtRAD(J]-TESTCJ35,  35,36 

COLX 

47 

35 

ClNlJ)  *  CONSTC*RA0UJ**.  77777778 

COLX 

48 

GO  TO  30 

COLX 

49 

36 

ClNlJ]  ■  CONSTD*RAOlj)**. 33333333 

COLX 

50 

30 

CONTINUE 

COLX 

51 

039 

DO  40  J  *  1,  NEC! 

COLX 

52 

40 

CG( JJ  a  FSPfcEDl J,FMU,RA,RAD.PVOL,DNSTYI 

COLX 

53 

GO  TO  '041,  041,  2005.  KEG 

COLX 

54 

041 

CONSTA  *  T/FMU*.92E-23 

COLX 

55 

CONSTB  ■  T/P*2.33E-5*C0NSTa 

COLX 

56 

CONSTC  «  3.14159?7 

COLX 

57 

DO  50  I  =  1,  NEG 

COLX 

58 

DO  50  J  »  I,  NEO 

COLX 

59 

RR  «  RAD ( I ]  *  RADI J] 

COLX 

60 

RSUH  *  . 28*CFU * J)*»2*3.*ICINI I)-CIN[J))**2+ICG!II-CGIJ))**2 

COLX 

61 

CF I I , J)  *  RR* I 

COLX 

62 

1  CONSTA*RR/lRADf I J*RAD  IJJ J 

COLX 

63 

2  ♦  C0NSTB*11./RADIIJ**2  ♦  1. 

t  RAD  I J 1 **2 1 

COLX 

64 

3*RR*CONSTC*SORT(RSUMJ 

COLX 

65 

4  ) 

COLX 

66 

50 

CFt J. I)  *  CF(I . JJ 

COLX 

67 

200 

RETURN 

COLX 

68 

ENO 

COLX 

69 

IIBFTC  CPFRX  LIST, DECK, M94/2 

CPFR 

8 

SUBROUTINE  cpfr  t 

CPFR 

1 

1  AMSS.  CG,  CMLR,  DNSTY,  DST,  KTR, 

MWYA,  NEQ,  PVOL,  S,  SMSS, 

CPFR 

2 

2  R,  RFM,  V.  NT,  Y,  ZHSS,  ZMZZ1 

CPFR 

3 

C 

CPFR 

4 

c  CPFR  6 
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c 

CPFR  COMPUTES  PARTICLE  F’ALLOUT  RATE 

CPFR 

7 

r: 

CPFR 

8 

c  •  •• 

•  CPFR 

9 

r» 

4 

CPFR 

10 

’  >..tS  I  ON 

CPFR 

11 

1  Cl?  1401,  SMSS  (401,  V  (401,  ZMSS  1401 

CPFR 

12 

C 

CPFR 

13 

c  *•* 

•CPFR 

14 

c 

CPFR 

15 

903 

FORMAT  (1H1////////// 

CPFR 

16 

1  20X30HNE6AT I VE  PARTICLE  DENS l f v 

/////I 

CPFR 

17 

C 

CPFR 

18 

c  «** 

•CPFR 

19 

c  *•* 

•  CPFR 

20 

c 

CPFR 

c 

TEST  FOR  IMPOSSIBLE 

PARTICLE 

CPFR 

22 

00  901  J  «  1.  NEQ 

CPFR 

23 

IFlYtJll  902,  901.  901 

CPFR 

24 

901 

continue 

,, 

CPFR 

25 

60  TO  900 

CPFR 

26 

oor 

WRITEIKTR.903! 

CPFR 

27 

NHVA  >  3 

CPFR 

28 

60  TO  008 

CPFR 

29 

900 

CONTINUE 

CPFR 

30 

AMSS  >  0.0 

CPFR 

31 

CMLR  *  0.0 

CPFR 

32 

ZMZZ  ■  0.0 

CPFR 

33 

A  «  3 • 1415927  *  R  **  2  *  OST 

CPFR 

34 

B  ■  ONSTV  *  PVOL  *  IS  /  IS  ♦  HTl) 

CPFR 

35 

00  850  J  »  1,  NEO 

CPFR 

36 

c  •  2:0  *•  IJ  -  11 

CPFR 

37 

0  ■  A  *  CO  (J1 

CPFR 

38 

0NSS  «  B  •  C  ‘  V  *  Y  IJ1 

CPFR 

39 

SMSS  CJl  ■  SMSS  ( J]  ♦  0  *  BMSS  /  V 

CPFR 

40 

ZMSS  CJ)  »  SMSS  [J]  ♦  BMSS  *  Il.O-D/VJ 

CPFR 

41 

AMSS  *  AMSS  ♦  ZMSS  (J1 

CPFR 

42 

ZMZZ  »  ZMZZ  ♦  SMSS  Ul 

CPFR 

43 

CMLR  ■  CMLR  ♦  C  *  D  *  Y  IJJ 

CPFR 

44 

850 

YlJ)«VlJl*(l.-D/Vl 

CPFR 

45 

CMLR  •  CMLR  /  OST  •  DNSTY  *  PVOL 

CPFR 

46 

ZMSS  INEOl  »  ZMSS  (NEO)  ♦  RFM  •  AMSS 

CPFR 

47 

AMSS  »  AMSS  /  RFM 

CPFR 

48 

ZMZZ  •  ZMZZ  /  RFM 

CPFR 

49 

DO  007  NP  «  1,  NEO 

CPFR 

50 

007 

ZMSS  iNP)  ■  ZMSS  C  NP  J  /  RFM 

CPFR 

51 

008 

1  RETURN 

CPFR 

52 

END 

CPFR 

53 

SI8FTC  CPVX  LIST, BECK, M94/2 

CPVX 

0 

SUBROUTINE  CPV  I 

CPVX 

1 

1  ALT.'  ATP,  BO.  Bl,  82,  CMgAN,  CMLR.  CSI6MA,  C6, 

CPVX 

2 

1  00.  Dl,  D2.  DNSTY.  EK,  EPS,  F,  MLR.  HOB.  KEO, 

CPVX 

3 

2  KS,  MNYA.  N,  NEQ,  NNN,  NPVA,  DIAM,  P,  PHI, 

CPVX 

4 

3  PRS.  SD,  PVOL,  01.  R.  RED.  RFM,  RLH, 

CPVX 

5 

4  RM.  RMIN,  RZT,  S,  SALTD,  SALTM,  SMALLT,  SMSS.  SZRO. 

CPVX 

6 

5  T.  TE,  TF,  TR.  TSALT.  TZR,  U,  V,  VZRO,  V.  VT,  X, 

CPVX 

7 

6  Y.Z.ZBRSTZ.ZLMT, IDISTR.RAD,ZMSS,«FO.RF1vRF2.TRO! 

CPVX 

8 

C 

CPVX 

9 

c  **• 

•CPVX 

10 

c 

22  AUOUST  1967 

CPVX 

11 

c 

CPVX 

12 

c 

INITIAL  CLOUD  AND  PARTICLE  VARIABLES*  AND  COMPUTAT i  VI  mutPOLS  CPVX 

13 

c 

GENERALIZED  land  surface  burst 

CPVX 

14 

c 

CPVX 

15 

c 

16 

c 

- 

CPVX 

17 

dimension 

CPVX 

18 

1  ALT  1 260  1 1 ATP  I260J.CG  { 40 1 «  PRS  I2601.RLH  1 260 1 »  SHSS  (40l*  CPVX 

19 

2  Y  RADI  401  .ZMSSI  40  J 

CPVX 

20 

c 

CPVX 

21 

c 

•  ■>************CPVX 

22 

CMl.R  a  0.0 

CPVX 

25 

c 

CPVX 

24 

c 

23 

EK  *  0.0 

CPVX 

26 

EPS  *  0.0 

CPVX 

27 

IF  [KEQ]  001.  001.  011 

CPVX 

26 

001  KEQ  =  3 

CPVX 

29 

Oil  MW YA  =  1 

CPVX 

30 

KS*2 

CPVX 

31 

IF  INEQJ  002.  00?.  003 

CPVX 

32 

00?  NfcO  *  40 

CPVX 

33 

003  CONTINUE 

CPVX 

3< 

N*1 

CPVX 

35 

NNN  =  10  *  NEQ 

CPVX 

36 

RM I N  =  RM I N  *1 . 0F”6 

CPVX 

37 

HZTa-1.0 

CPVX 

38 

SALTD  =  1.0 

CPVX 

39 

SALTM  a  0.0 

CPVX 

40 

SMALL T  a  O  i  0 

CPVX 

41 

TSALT*TZR 

CPVX 

42 

T  =  TZR 

CPVX 

43 

TF  a  273.0 

CPVX 

44 

TR  »  TZR 

CPVX 

45 

U  *  OTO 

CPVX 

46 

WT  «  0.0 

CPVX 

47 

XE  ■  0,0 

CPVX 

48 

c 

COMPUTE  FRACTION  OF  DETONATION  ENERGY  YIELD  IN  CLOUD 

CPVX 

49 

c 

AT  INITIAL  TIME 

CPVX 

50 

SCLHOBa  ABSl  HOB*W** ( “1 , 0/3 . 4 J J 

CPVX 

51 

IFIHOB35.6.6 

CPVX 

52 

5  HSCL*  l  (11?. 5*  Q.755*SCLHOB-  9 , 6E-6*SCLH0B**3-  9.11E 

-12*SCLH0S**51CPVX 

53 

1  **2  3  * [  32.7*U.b51*SCl  HOD-  2,52E-5*SCLH0B**3*  1.78E- 

10*SCLHOB'*5)/CPVX 

54 

?  132.7*112.5**23 

CPVX 

55 

GO  TO  7 

CPVX 

56 

6  HSCL«  ll80.-SCLROBJ**2*(360.*SCLHOBI/I360.*180.*-23 

CPVX 

57 

7  F  a  HSCL*  I0.A4*W**{-;06)-0.1473».02*ALOG10|aJ*,243 

CPVX 

58 

IF[  ICISTR3802.80P.801 

CPVX 

59 

802  CSIGMA*  ALOC.rSD) 

CPVX 

60 

CMEAN  a  ALOG  [0.000001  *  DIAMI 

CPVX 

61 

1  ♦  370  *  CSIGMA  **  2 

CPVX 

62 

IF  [RM I N  3  008.  008,  009 

CPVX 

63 

008  RMJN  «  0,5*EXP  [CMEAN  -  2.33  *  CSIGMA) 

cpvx 

64 

009  CONTINUE 

CPVX 

65 

CALL  PARD1S  [ 

CPVX 

66 

1  NEQ,  CMEAN  -  0.69315,  CSIGMA,  Y,  HMIN1 

CPVX 

67 

CMEAN  a  1.0E6  *  EXPICMEANI 

CPVX 

68 

CSIGMA  ■  SD 

CPVX 

69 

801  DO  61  jal.NSO 

CPVX 

7  U 

ZMSS  C  J 1 ■ Y ( J  3 

CPVX 

71 

SMSS  Ul  a  0.0 

CPVX 

72 

o 


uuo 


0*1  CQ  U1  •  0.0 
RROUY  «  0 

2»  C,3048*(ZBRST7*  HOB*  145.0*W**0.4) 

102  NR0UT  «  MR0UT*1 
CALI  TRPL  f 

1  li  NPVA,  ALT,  ATP,  TE I 

call  trpl  i 

1  2,  NPVA,  alt,  PRS.  PJ 

P  «  P  *  100. Q 
CALL  trpl  t 

1  2.  NPVA,  ALT,  RLH,  HLRl 

SOILHT  «  RFM*(RF0  * t TRQ*  TE  1  ♦  FFl* ( TRQ**2-  TE**2)/?.  ♦ 

1  RF2*(  TRQ**3-  TE**3]/3.0t 
RNAO  •  PM i  *(F  *  W  *  4,18612  -S01LHT]/ 

1  (BO  *  (T  •  TE 1  ♦  Bl  /  2.0  *  (T  *  T  -  TE  *  TE I  ♦ 

2  B2  /  3.0  *  (T  *  T  *  T  •  TE  *  TE  *  TE]} 

RMMO  <*  11. fl  •  PHI  1  *(F  *  M  *  4.18E12  -S01LHT1/ 

1  (DO  *  (T  «  TE1  *  Dl  /  2,0  *  IT  *  T  •  TE  *  TE]  ♦ 

2  D2  /  3.0  *  (T  *  T  *  T  -  TE  *  TE  *  TE]  +  2500000.01 

X  •  RKMO  /  RMAO 

V  «  (RMAO  ♦  RHWO ]  «  287.0  *  T  •  (1.0  ♦  2V.0  *  X  /  1B.0I  / 

1  (P  *  (1.0  ♦  XJ] 

WZRO  *  V 

R« (3:*V/12. 5663706 }**, 333333333 
RM*RHA0*RHH0 

Rh  «  RM  ♦  RFM 
PVOL  «  4. 186790 2*RMJN**3 
71?  S  «  (RFM*SA(.  TM]  /RMAO 

CNSTY  «  RFD*SALTn«(RFM*SALTM]/[SALTD*RFM*RFD*SALTM] 

PWOL  ■  PV0L«(RFM*SALTD*RFD*SALTM]/(RPM«SALTD».1*RFD*SALTMI 
713  80  TO  (916, 716), MROUT 

716  0  «S/tl.*X*Sl*RH/(V*PVOL*DNSTY] 

Till  «  Y(1 J  *Q 
OQ  «  1, 

RADtU  ■  ,62n-!5*PV0L*«.3l3333J3 
DO  915  J  *  2.  NES 
RADIJI  •  RAD(J-1]«1. 2599211 
CO  *  00  ♦  00 

915  Ttj)  »  r(J]*e/oo 

916  (FITR-T1  709.  7130,  7130 

709  '  S  «  0. 

7130  CONTINUE 

S7R0  *  S 

Ol«.5*(RM-RFMI',f*ll8.*29,*xJ*ll.*X£)/|TE*tl8.*29,*XE)*ll.*Xl) 

Ol*  01*11. *Xl/ll.*X*Sl 
2  «  073048  *  (TSRST2  ♦  MOB]  ♦  R 
BO  TO  1102, 106], MROUT 

C  UPPER  LIMIT  FOR  Z  TO  PREVENT 

C  PROBRAM  RUNAWAY 

106  ZLNT  »  10000.0  *  M  **  0.25 
RETURN 
END 

1IBFTC  CRMX  LIST, DECK, M94/2 
SUBROUTINE  CRH  C 

1  ALT,  ATP,  CF.  CMEAN.  CSlQMii.  CX,  MOB.  KtLD,  KEQ,  KTR,  MCX, 

2  NEQ.  NPVA,  DtAM,  PRS,  SO,  FFD,  RFM,  RLH,  RMiN.RAD, 

3  TMZR,TRO,W.TZR,Z0RSTZ,ZT.Y,IDISTR,ZMS$,DNSTY,8LDTMP) 


tl  JU*ie  J967 


CPVX 

n 

CPVX 

74 

CPVX 

75 

CPVX 

76 

CPVX 

77 

CPVX 

78 

CPVX 

79 

CPVX 

80 

CPVX 

81 

CPVX 

62 

CPVX 

83 

CPVX 

84 

CPVX 

85 

CPVX 

66 

CPVX 

87 

CPVX 

68 

CPVX 

89 

CPVX 

90 

CPVX 

91 

CPVX 

92 

CPVX 

93 

CPVX 

94 

CPVX 

95 

CPVX 

96 

CPVX 

97 

CPVA 

98 

CPVX 

99 

rpvx 

100 

CPVX 

101 

CPVX 

102 

CPVX 

103 

CPVX 

104 

CPVX 

105 

CPVX 

106 

CPVX 

107 

CPVX 

108 

CPVX 

109 

CPVX 

110 

CPVX 

ill 

CPVX 

112 

CPVX 

113 

CPVX 

114 

CPVX 

115 

CPVX 

116 

CPVX 

117 

CPVX 

116 

CPVX 

119 

CPVX 

120 

CPVX 

121 

CPVX 

122 

CPVX 

123 

CPVX 

124 

CRMX 

0 

CRMX 

1 

CRMX 

2 

CRMX 

3 

CRMX 

4 

CRMX 

5 

CRMX 

6 

CRMX 

7 

C  CRMX  8 

C  CRM  COMPUTES  CLOUD  RISE  AND  EXPANSION  FOR  LAND  SURFACE  CRMX  9 

C  DETONATIONS  CRMX  10 

C  CRMX  11 

C  ....................................... *...*....****.**..**.*****«*«**CRMX  12 

C  CRMX  13 

DIMENSION  CRMX  14 

1  ALT  (260). ATP  126?), CG  (40),  CX  110.  90).  PRS  12601.  CRMX  15 

2  RAD  (401,  f  LH  f260], SMSS  (40],  Y  1401,  ZMSS  14  0]  CRMX  16 

DIMENSION  CF  (40.  40]  CRMX  17 

521  FORMAT ( 1H1 » 9>, »  4«H»ARTICLE  S1ZF-MASS  FR6UUENCY  DISTRIBUTION  AT  THECRMX  18 

1A6,  24H  OF  THE  CRM  CALCUL AT  I ONS/lOX, 18H ( RAD  I  US  IN  METERS]//  CRMX  19 

2  20X,  6HHADIUS.7X,  13HMASS  FR ACT IOCRMX  20 

3N//U1X.13,  3X,fcl2.5,4x,E12.5Jl  CRMX  21 

53?  FORMAT11H0.9X.  76ERRACTI0N  OF  THE  DETONATION  ENERGY  YIELD  IN  THE  CCRMX  22 

1LOUD  AT  THE  INITIAL  TIME  IS  El?. 5)  CRMX  23 

C  CRMX  24 

C  *****.**.****************CRMX  25 

C  .**•**. *******************CRMX  26 

C  CRMX  27 

DATA  W0RD1.W0RD2/6H  START. 6H  END  /  CRMX  26 

CO  333  J  =  1.  40  CRMX  29 

DO  333  I  =  1,  AO  CRMX  30 

333  CF  (I.  J]  =  0.0  CRMX  31 

. . EMPIRICAL  CONSTANTS  CRMX  32 

DATA  BO  ,  B1  .  B2  .  CHANGE  ,  C3  .DO  CRMX  33 

1  /  1091.1)  ,  0.1328  .  0.0  ,  30.0  .  0.175  ,  1910.0  /,  CRMX  34 

2  D1  .  02  DSTO  ,  DST 1  ,  DST2  »  PHI  CRMX  35 

3  /  P.I134<J  .0.000313,  0.06?5  .  0.5  .  5.0  ,  1.0  /.  CRMX  36 

4  1  RL  ,  RFU  .  Rfl  ,  RF2  ,  RK2  ,  RK3  CRMX  37 

5  /  0.2  .750,  ,0.0  ,0.0  .0.1  ,1.0  /  CRMX  38 

c*. ......... **.*..««...*. *«»»***»«. «»«»*«  initial  variables  AND  CONTROLSCRMX  39 

DST  a  DSTU  CRMX  40 

CALL  CPV  [  CRMX  41 

1  ALT.  ATP.  BO.  PI,  B2,  CMEAN,  CMLR,  CSIGMA,  CG,  CRMX  4? 

1  no,  ni,  n?,  onsty.  ek,  eps,  f,  hlr,  hob,  kfq,  crmx  43 

2  KS.  M W Y A ,  N,  NEO,  NNN,  NPVA,  DIAM,  P,  PHI,  CRMX  44 

3  PRS,  SD,  PVOL,  01,  R,  HFn.  RFM ,  RLH,  CRMX  45 

4  RM,  RMIN,  RZT,  S,  SALTD,  SALTM,  SMALLT,  SMSS,  SZRQ.  CRMX  46 

5  T,  Tfc' ,  TF,  TR,  TSALT,  TZR,  U,  V-  VZRO,  W.  WT,  X,  CRMX  47 

6  Y.Z,ZBRST7.ZLMT, iniSTR,RAD,ZM«;5(RF0.RFl,RF2,TRQ)  CRMX  48 

HR  I  TE  l  KTR , 521  ]  WORD1 , ( J. RAD , J ) . ZMSS l J I , J»1 . NfcQ I  CRMX  49 

HR  I TE ( KTR , 53? ] F  CRMX  50 

IF(  KEQ*3 13003,3001.3002  CRMX  51 

3001  KEOEal  CRMX  52 

GO  TO  35  CRMX  53 

3002  kE0F*2  CRMX  54 

GO  TO  35  CRMX  55 

C»«.*»«. CLOUD  COMPUTATION  CRMX  56 

008  CALL  CxPN  (  CRMX  57 

1  CX,  MCX.  MWYA,  R,  RZT,  SmALLT*  T,  TM2R,  W,  Z»  KTR, RA )  CRMX  58 

GO  TO  (724.  724,  148],  MHYA  CRMX  59 

148  CALL  L'RMH  t  CRMX  60 

1  CMEAN,  CSIGMA,  CX,  KTR,  MCX)  CRMX  61 

GO  T01U48.2148)  ,KEGE  CRMX  62 

1148  HRITElKTR, 521)  H0R02,IJ,RADIJ1,ZMS3IJI,J»1,NEQ]  CRMX  63 

2148  RETURN  CRMX  64 

C  UPDATE  PARTICLE  VOLUMES  CRMX  65 

724  CALL  UPVCS  (  CRMX  66 

1  DNSTY,  KS,  NEO.  ^VOL ,  RF[),  RFM,  RM,  S,  SALTO,  CRMX  67 
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2  SALTM,  SZRO.  T,  TR,  TSAL7,  V,  VZ«0.  X,  Y1 

STORE  TIME  STEP  VARIABLES 

CALL  RSTR  t 

1  DST »'  EK.  1*  N,  NEQ,  PVOL,  RM,  S,  SAVE.  SMALLT ,  SMSS. 

2  T,  U,  V,  WT,  X.  Y,  Z) 

TAKE  A  RUMGE-KUTTA  STEP 

9  VTEMPY»V 
CALL  RK9ILL  I 

1  ALT.  XTP,  BO.  Bl,  62,  CP.  CG,  CMLR.  C3.  UNSTY,  DST.  DU,  DMT, 

2  DO,  01.  D2,  ED.  EK,  EPS,  HLR,  KEQ.  N,  NEQ,  NNN,  NPVA, 

3  P.  f»R$.  PVOL.  01.  RAD,  RFD,  REM,  Rpn.  RPl.  RF2. 

4  RK2#  RK3,  RL,  RLM,  RM.  RZT.S,  SALTD,  SALTM,  T,  TE. 

5  TP,  TR,  TRQ,  TSALT.  U,  V.  MT.  X,  V,  Zl 
ADJUST  THE  IN-CLOUD  particle  NUMBER  density 
DO  86  J«1,NEQ 

86  YlJl«YCJ)*VTEMPY/V 

ACCUMULATE  CLOUD  TIME 

SMALLT  ■  SMALLT  *  DST 
IP  (SMALLT  •  1.0!  008,  087.  (188 
087  DST-DST1 

COMPUTE  HORIZONTAL  RADIUS 

088  IP(RZTI888,8V.d9 
089  Rf SORT  13. *V/IRZT*12. 56637061  1 
GO  TO  35 

888  R« (3T*V/1?, 5663706 ]**. 333333333 
035  PW*P*X*29./U 1).  *29.*XJ 

ES*611.*  (T/273. J**f-5.13l«ExP  ( I25.*IT-273. 1 1/TI 
RAsRm/V-(1.*XJ/(1«*X-S-MT1 
149  GO  TO  (150,  1531.  15311.  N 


150  IP  (ES-PHJ  152,152.1531 


MET  OH  DRY  EQUATIONS 
RESTART  AT  LAST  TIME  STEP 


152  CALL  RSTR  l 

1  DST,  EK.  2.  N,  NEQ,  PVOL.  RM,  S.  SAVE,  SMALLT,  SMSS, 

*  T,  U.  V.  WT,  X,  Y.  Zl 
GO  TO  009 

C  COMPUTE  PARTICLE  FALLOvT  RATE 

1531  CALL  CPFR  ( 

1  AMSS.  CG.  CMLR ,  DNSTY.  DST,  KTR,  MWYA,  NEQ,  PVOL.  S.  SMSS, 

2  R.  RPM,  V.  WT.  Y,  ZMSS.  ZMZZj 
GO  TO  (084,  084,  0081,  MWYA 

C  COMPUTE  PARTICLE  PARAMETERS 

084  !F(IDISTR1901.901,902 

901  CALL  DSTRI 

1  CMEAN,  CSIGHA.DST.  KEQ.  NEQ.  RMIN.  SLDTMP,  T,  ZMSS ! 

902  GO  TO  1 1146, 146 J , KCLD 

C  DEBUG  PRINTER 

146  CALL  DBG  I 

1  AMSS.  CG.  CMEAN,  CSIGMA,  ED,  EK.  EPS,  ES, 

2  HLR.  KTR,  NEQ.  P,  PVOL,  CMLR.  ZMZZ, 

2  PW,  R,  RAD.  RM.  S,  SMALLT,  T,  TE.  U,  V.  WT,  X,  Y,  Z,  ZMSS! 

C  TEST  COMPUTATION  STATUS 

1146  CALL  DCSN  I 

1  CHANGE.  DST.  0ST2.  DU,  DWT,  ES,  KCLD.  K 

2  MWYA,  N.  PW.  R.  RZT,  SAVE,  SMALLT, 

3  T,  U,  WT,  Z,  ZLMT,  ZTJ 
30  TO  008 

END 

SIBPTC  CRMwX  LIST, DECK, M94/2 
SUBROUTINE  CRMW  ( 


CRMX  68 
CRMX  69 
CRMX  70 
CRMX  71 
CRMX  72 
CRMX  73 
CRMX  74 
CRMX  75 
CRMX  76 
CRMX  77 
CRMX  78 
CRMX  79 
CRMX  80 
CRMX  81 
CRMX  82 
CRMX  63 
CRMX  64 
CRMX  85 
CRHX  86 
CRMX  87 
CRMX  86 
CRMX  89 
CRMX  90 
CRMX  91 
CRMX  92 
CRMX  93 
CRMX  94 
CRMX  95 
CRMX  96 
CRMX  97 
CRMX  98 
CRMX  99 
CRMX  100 
CRMX  101 
CRMX  102 
CRMX  103 
CRMX  104 
CRMX  105 
CRMX  106 
CRMX  107 
CRMX  108 
CRMX  109 
CRMX  110 
CRMX  111 
CRMX  112 
CRMX  113 
CRMX  114 
CRMX  115 
CRMX  116 
CRMX  117 
CRMX  118 
CRMX  119 
CRMX  120 
CRMX  121 
CRMX  122 
CRMX  123 
CRMX  124 
CRMX  125 
CRMW  0 
CRMW  1 
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OOOOO  O  OOOOOOOw  fc*  oooo  oon  ooooooo 


1  CMEAN,  CSIGMA,  CX,  KTR,  HCX) 


CRMW 

CRMW 

►CRMW 


CR.'.U  5 
CRMW  6 
CRMW  7 
•  **»<.*CRMW  8 

CRMW  9 
CRMW  10 
CRMW  11 
CRMW  12 
*«****CRMU  13 

CRMW  14 
CRMW  15 
CRMW  16 
CRMW  17 
FREQUECRMW  18 
CRMW  19 
3///!  CRMW  20 
CRMW  21 
CRMW  22 
CRMW  23 
CRMW  24 
CRMW  25 
CRMW  26 
,  CRMW  27 

CRMW  28 
CRMW  29 

•**********»****»*«**********c ..*.*******«*********.;«***»*»****.****»*CRMW  30 

a*********************************  »»•••*•****•*•**•*•*«*••* ****«******CRHW  31 

CRMW  32 

WHITElKTR.PObJ  CRMW  33 

wRITElKTR.OiOI  CRMW  34 

1  CMEAN.  C5 !  GMA  CRMW  35 

WRITEIKTR.20]  CRMW  36 

1  (J.  t CX  U,  J],  I  =  1.10J,  J  =  1,  MCX1  CRMW  37 

RETURN  CRMW  38 

END  CRMW 

ieFTC  CXPX  LIST, DECK, M94/2  CXPX 

SUBROUTINE  CXPN  I  CXPX 

1  CX..  MCX,  MWYA,  H,  RZT,  Sm/LLT,  T»  TMZR,  W,  Z,KTR,RA)  CXPX 

CXPX 


CRMW  PRINTS  SUMMARY  OF  OUTPUT  OF  THE  CLOUP  RISE  MODULE. 


DIMENSION 
1  CX  110,  90) 


008  FORMAT  tlHJ  ///// 

1  10X41HCLOUD  RISE  AND  EXPANSION  HISTORY  TABLE  CX//1XJ 
Oin  FORMAT  l 

1  15X,75H;’ARAMETERS  FOR  THE  LOGNORMAL  PARTICLE  DIAMETER-MASS 
INC Y  DISTRIBUTION-//  20X , 17HGEOMETR I C  MEAN  »  1PE10.3> 

1  9H  MICRONS,,  3X ,  31HGE0METRIC  STANDARD  DEVIATION  *  1PE10. 
20  FORMAT! 

1  49X19HCL0UD  HISTORY  TABLE// 

1  5X513X5HCLOUD,  3X1,  3X4HBASE,  8X3HT0P,  7X6HRADIAL, 

2  3X11HTEMPERATURE,4X,  3MGaS/ 

3  BX4HT I  ME ,  5XBH  INTERVAL,  5X4HBASE,  8X3HT0P,  6X6HRAD I  US, 

4  3X313X4HRATE,  4X  J ,  14X,  7HDENSITY/ 

5  5X2l3X5H(SECl ,  3X1,  3I4X3HIM),  AX),  3  I 2X7H ( M/SEC  I ,  2X),4X 

6  3H ( K ) , 5X1  OH  !KG/M»*3  I  //  (1X12,  1HI,  IX,  1P10E11.3II 


DIMENSION 
1  CX  (10.  RO) 


5000  FORMAT ( 1H1 ,  9X,  46HCL0UD  RISE  IS  TERMINATED  IN  CXPN  AT  STATEMENT  I 
14.  8h  BY  THE  A6,  7H  SWITCH///! 

DATA  W0RD1.W0RD2/6HR  RATE*6H  MCX  / 

**«*•**» •**•****•*•*•*•*»*••••*•*-.- -»»•**••**•*•*•*#*#••••***«*•«••** 


39 

0 

1 

2 

3 


,.*****»**•****»*•*...*******.*.»*• *************************«-******cXPX  4 

CXPX  5 

cxpn  tabulates  the  cloud  rise  and  expansion  table  for  glfm  cxpx  6 

AND  TESTS  RATE  of  RADIAL  EXPANSION  TO  END  CRM  COMPUTATION,  SEE  143CXPX  7 

CXPX  8 

,*«**«*****„*.* * ****** * ••«***•••*»•••*•****•***. *»*****«*****«****oCXPX  9 

CXPX  10 
CXPX  11 
CXPX  12 
CXPX  13 
CXPX  14 
CXPX  15 
CXPX  16 
CXPX  17 
CXPX  18 
►CXPX  19 
►CXPX  20 
CXPX  21 
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00  TO  (002,  020.  0401,  MNYA 
002  00  004  HJ  ■  1,  90 
DO  004  M!  >  1,  10 
004  CX  (Ml,  HJ)  ■  0.0 
MCX  a  1 
MMVA  >  2 
OLTM  ■  0.0 
TSTM  ■  SMALLT 

TSRD»GxP l  . 05912* ALOG t  W 1 *7 . 013 1 
ZBFR  «  2 
GO  TO  040 

C20  IF  tSMAUT  -  TSTMl  070,  04fl,  040 
040  CX  Cl.'  HCX]  «  SMALLT 

|F  (2  -  ZBFR]  041,  042,  042 
041  ZA  ■  Z8FR 
GO  TO  043 
042  2A  ■  Z 
043  CX  (5,  MCX )  «  R 
CX  (9,  MCX)  ■  7 
CX ( 10 . HCX 1 bR a 

c  TEST  TO  END  CRM  COMPUTATION 

IF  (MCX  -  3)  343,  343.  143 
143  TSTR«ABS( ALOG tCX(S, MCX) J - ALOG I CX ( 5.MCX-1 )H 
TSTR  a  TSTR  /  (CX  11,  MCX*  -  CX  (1,  MCX  -  15) 

IF  (TSTR  *  TSRD1  243,  343.  343 
243  MNYA  a  3 
NSTAT*243 

MRITE(KTR,5000)NSTAT»  MORD1 
343  IF  (R2T1  044.  048,  048 
044  CX  (3,  MCX)  «  ZA  -  R 

CX  (4.  MCX)  «  ZA  ♦  R 

GO  TO  060 

048  CX  (3,  MCX)  ■  ZA  -  RZT 

CX  (4.  MCX)  »  ZA  ♦  RZT 

060  MCX  «  MCX  ♦  1 

C  CHECK  CAPACITY  OF  ARRAY  CX 

IF  (MCX  -  R01  062,  062.  Q6i 
061  MMYA  »  3 
NSTAT«6i 

MR ITElKTR. 50005  NS TAT, H0R02 
062  CXM  a  MCX 

DLTM  a  DLTM  ♦  CXM  *  .084946 
TSTM  a  TSTM  ♦  OLTM 
IF  (2  -  ZBFR  J  068.  068,  067 
067  2BFR  ■  Z 

068  GO  TO  (070.  070.  1005.  MNYA 
070  RETURN 

C  COMPLETE  OUTPUT  CX  TABLE 

IPO  MCX  a  HCX  •  1 

IF  (CX  (1.  MCX  -  11  -  CX  ll,  MCX  J  5  102,  100,  102 
i 02  DO  104  MK  a  2,  MCX 

C  COMPUTE  TIME  INTERVAL  LENGTH 

CX  (2.  MK  -  11  a  CX  (1,  MK  J  -  CX  (1.  MK  •  1J 
C  COMPUTE  VERTICAL  RATES 

CX  (6.-  MK  »  15  »  (CX  (3.  HKJ  -  CX  (3,  MK  -  15)  t  CX  12,  MK  -  1) 
CX  (7.  MK-l)  a  (CX  (4,  MK*  *  CX(4,  MK-ll)  /  CX  12.  MK  -  1) 

C  COMMUTE  RADIAL  RATE 

104  CX  (8.  MK  .  1)  a  (CX  (>.  MK 1  -  CX  (5.  MK  -  11)  /  CX  !«,  MK  -  1) 
DO  106  ML  *  I.  MCX 
106  CX  tl,  ML)  9  CX  (1,  MU  *  TMZR 


CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

UXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 

CXPX 


22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 
*2 

43 

44 
15 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 
88 
81 
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GO  TO  0/0 
END 

SIBFTC  DPSX  LIST, DECK, M94/2 
SUBROUTINE  DBG  I 

1  ArfSS,  CG,  CHEAN,  CSIGMA,  ED,  EK,  EPS,  ES, 

2  HI Ry  KTR,  NEQ,  P.  PVOL.  CMLR,  ZMZZ, 

2  PW,  R,  RAD.  RM,  S,  SMALLT.  T,  ?E.  U,  V,  HT,  X,  Y,  Z,  ZHSSI 


DBG  IS  DEBUG  PRINTER 


DIMENSION 

1  CG  140],  RA-D  140],  Y  140],  ZMSS  ( 40 } 


016  FORMAT  C1H0  / 

1  3X1P9F13;4  / 

2  I10X1H*.  5X8E13.4J] 

017  FORMAT  l 

1  16X2[5X3HRA0,11X2HCG,11X1HY,11X3HZMS.5XI  / 

2  1 16X1PBE13 . 4 ] ] 

099  FORMAT  ( 1  HO  /  49X17HCL0UD  DEBUG  PRINT  // 

1  9X2HST,  11X1HU,  12X1HX,  12X1HT,  12X1MR,  12X1HZ,  12X2HEK , 

2  11X1HV ,  i?X2HHT  /  10X1H*.  11X2HTE,  11X2HRM,  11X2HES, 

3  11X1HP ,  12X2HPW  UX2HED.  10X3HRLH,  UX1HS/ 

4  1 0  X 1H* ,  10X3HEPS,  10X4HPVOL.  9X4HMEAN.  8X5HSIGMA,  9X4HAMSS, 

5  9X4HCMLR.  9X4HZMZZ  ///] 


. . ********* . . . . . . . 

C 

IF  (AMOD  ISMALLT,  13.0)1  2146,  1149,  2146 
1149  WR I TE iKTR , 099 ] 

2146  IF  ( SMALL T  ]  H4o,  1146,  3146 
3146  IF tSMALLT-AINTlSMALLT] 1149,4146,149 
4146  iFf AMOD ISMALLT.2.0) 11146,149,1146 
1146  HR  I TE iKTR, 016  3 

1  SMALLT,  U,  X.  T,  R,  Z,  EK,  V,  HT, 

2  TE,  RM,  ES,  P,  PH,  ED.  HlR,  S, 

3  EPS,  PVOL,  CMEAN,  CSIGMA,  AMSS,  CMLR,  ZMZZ 
HR  I TE  IKTR, 017 ] 

1  IRAD  III,  CG  III,  Y  (Dt  ZMSS  III* 

2  RAD  U  ♦  1J,  CG  (I  *  13,  Y  (I  ♦  1],  ZMSS  (1  ♦  U, 

3  I  «  1,  NFO,  2 J 
149  RETURN 

END 

SIBFTC  OCSX  LIST, DECK , M94 'l 
SUBROUTINE  DCSN  f 

1  CHANGE,  DST,  DST2,  DU,  DhT,  ES,  KCLD,  KTR, 

2  MHYA,  N,  PH,  R,  RZT.  SAVE,  SMALLT, 

3  T.U«'HT,Z,ZLMT.ZT] 

C 

C  *********************,*************«*«'»«/**»******4’**#i»**########is*,i 

c 

C  DCSN  DETERMINES  AT  THE  END  OF  EACH  TIME  STEP  HHETNER  TO 
C  CONTINUE  THE  CRM  COMPUTATION 


CXPX  62 
CXPX  63 
DBGX  0 
D8SX  1 
DBGX  2 
DBGX  3 
DBGX  4 
DBGX  5 
»****OBGX  6 

DBGX  7 
DBGX  6 
DBGX  9 
»****D8GX  10 

DBGX  11 
DBGX  12 
DBGX  13 
DBGX  14 
>****DBGx  15 

DBGX  16 
DBGX  17 
DBGX  18 
DBGX  19 
DBGX  20 
DBGX  21 
DBGX  22 
DBGX  23 
DBGX  24 
DBGX  25 
DBGX  26 
DBGX  27 
DBGX  28 
DBGX  29 
*#**D8GX  30 

****DBGX  31 
DBGX  32 
DBGX  33 
DBGX  34 
DBGX  35 
DBGX  36 
DBGX  37 
DBGX  38 
DBGX  39 
DBGX  40 
DBGX  41 
DBGX  42 
DBGX  43 
DBGX  44 
DBGX  45 
DBGX  46 
DBGX  47 
DCSX  0 
DCSX  1 
OCSX  2 
DCSX  3 
DCSX  4 
DCSX  5 
>***DCSX  6 
DCSX  7 
DCSX  8 
DCSX  9 


-- 


» fc  a  i 


052  F0RMATI24H  SWITCH  TO  ELLIPSE*  R»RH ) 

066  rORHATU4HOSW!TCH  TO  DRY) 

077  FOSHATI14HOSWITCH  TO  WETt 

083  rORHATtiHl,  9  X »  46HCLOUD  RISE  IS  TERMINATED  IN  DCSN  AT. STATEMENT 
14*  8H  8T  THE  A6.  7H  SWITCH///] 

DATA  H0RD1.W0RD2. WORDS. W0RD4  /6W  TEMP  , 6H  DU.U  ,  6H  ZLMT  * 6HR .LT . : 


6  + 1 


-1331 

041 


.041 


GO  TO  1151. 154. 15311, N 
IF [ES-PW1041.041.008 

dst«save 

M«2 

GO  TO  1151.  10411,  KCLD 
WR’TElKTR.077] 

GC  TO  151 


154 


1  54 


SHOULD  WE  SWITCH 
NO  TO  151 


TO  DRY  MODE- 


IF tES-PH.LE. 0, 0 J  GO  T9  151 

N»  1 

r.a  TOU51, 152), KCLD 


152  WRITEIKTR.  661 


C 

c 

c 

c 


1 5 1 


•'RZTJ50. 1511, 1511 


IF  RZT  IS  POSITIVE. 

CLOUD  IS  IN  ELLIPSOIDAL  MODE 

CLOUD  IN  ELLIPSOIDAL  MODE 
IF  Z  ♦  R  IS  GREATER  THAN  ZT 


030 

051 

1031 

1511 

015 

914 

114 


R 


ZT]  1511,  51,  51 


020 

120 


I  FCZ  * 

RZT»R 

QG  TO  11511.  1051).  KCLD 
WRITEIKTR.052I 
JF  I3MALLT  -  CHANGE]  014 
DST»0$T2 

IFIA0SITJ-1O. ] 114. 20, 20 
NSTAT*14 
WORD«WORDl 
00  TO  1 

IFtR-l.J  120,21.21 
wSTATs20 
m0RD«»W0RD4 
00  TO  1 

021  IF  ISMALLT  •  10.01  013,  210. 

210  iFlA88IDU]*DST-0 ,1)211.013,013 

211  IFIABSCUI-O. 1)1211, 13.13 
1211  MSTAT»2U 

W0f»D«a0RD2 

00  TO  1 

013  ! F  12  -  ZLMT)  00*.  00S.  113 
113  «STAT«JS 
WORCaWORD3 

081  MWTA  •  3 

MRITI IKTR, G9S INST AT, WORD 


015.  014 


210 


COMPLUE  CX  TASLE 


DCSX 

10 

DCSX 

11 

DCSX 

12 

DCSX 

13 

DCSX 

14 

DC8X 

15 

DCSX 

16 

DCSX 

17 

DCSX 

IS 

'DCSX 

19 

DCSX 

20 

•  DCSX 

21 

•DCSX 

22 

DCSX 

23 

DCSX 

24 

DCSX 

25 

DCSX 

26 

DCSX 

27 

DCSX 

28 

DCSX 

29 

DCSX 

30 

DCSX 

31 

DCSX 

32 

DCSX 

33 

DCSX 

34 

DCSX 

35 

DCSX 

36 

DCSX 

37 

DCSX 

38 

DCSX 

39 

DCSX 

40 

DCSX 

41 

DCSX 

42 

DCSX 

43 

DCSX 

44 

DCSX 

45 

DCSX 

46 

DCSX 

47 

DCSX 

48 

DCSX 

49 

DCSX 

50 

DCSX 

51 

DCSX 

52 

DCSX 

53 

DCSX 

54 

DCSX 

55 

DCSX 

56 

DCSX 

57 

DCSX 

58 

DCSX 

59 

DCSX 

60 

DCSX 

61 

DCSX 

62 

DCSX 

63 

DCSX 

64 

DCSX 

65 

DCSX 

66 

DCSX 

67 

DCSX 

*8 

DCSX 

69 

100 


f 


) 


) 


000 

RETURN 

ocsx 

70 

END 

DCSX 

71 

SIBFTC  DERI  LIST, DECK, M94/2 

DERI 

0 

SUBROUTINE  DERI V  ( 

DERI 

1 

1  ALT?  ATP,  80,  B1 ,  82,  CF,  CG,  CHLR,  C3,  DEK 

.  DNSTY, 

DERI 

2 

2  DPVOL#  DRN,  DS,  DT,  DU,  DV,  DMT,  DX,  DY>  DZ 

9 

DERI 

3 

3  DO,  Dl,  D2,  ED,  EK,  EPS*  MLR,  KEQ,  N,  N|Q, 

NPVA, 

DERI 

4 

4  P,  PRS,  PVOL,  01,  RAD,  RFD,  RFM,  RFO,  RPl, 

RF2,  RK2,  RK3, 

DERI 

5 

5  RL,  RLH.  RH,  RZT,  S,  SAliTD,  SALTM,  T,  Tl.  TF,  TR, 

DERI 

6 

6  TRO?  TSALT,  U,  V,  MT,  X*  Y,  2) 

DERI 

7 

C 

DERI 

8 

c  *** 

*DERI 

9 

c 

DERI 

10 

c 

VERSION  OF  DERI V  TO  JE  USED  WITH  RKGILL 

DERI 

11 

c 

DERI 

12 

c 

*CER! 

13 

c 

DERI 

14 

DIMENSION 

DERI 

15 

1  ALT  (2601, ATR  (260 I • CG  (40).  DV  1401, 

DERI 

16 

2  PRS  (260 1 ,RAO  *40],  RLH  1260), V  1401 

DERI 

17 

DIMENSION  CF  (40,  40) 

DERI 

18 

c 

DERI 

19 

c  **« 

*DERI 

20 

c  **• 

•DERI 

21 

c 

DERI 

22 

WATERD  •  1TE3 

DERI 

23 

DZ  ■  a 

DERI 

24 

c 

COMPUTE  te  AND  p 

DERI 

25 

CALL  TRPL  ( 

DERI 

26 

1  Z.  NPVA,  ALT,  ATP,  TEJ 

DERI 

27 

CALL  TRPL  ( 

DERI 

28 

1  Z,  NPVA.  ALT.  PRS.  P) 

DERI 

29 

P  ■  P  *  100,0 

DERI 

30 

c 

FIND  RELATIVE 

DERI 

31 

c 

HUMIDITY 

DERI 

32 

call  TRPL  ( 

DERI 

33 

1  Z.  NPVA,  ALT.  RLH.  HlRJ 

DERI 

34 

036 

XE  «  109.98  *  HIR  *  l TE  /  273. OJ  •*  (-5.131  * 

DERI 

35 

1EXP((25.0*(TE-273.01 J/TEJ/(P*29,0J 

DERI 

38 

38 

CPA l*30*(T-TEJ *81/2. *IT*T-TE*TE)*B2/3.*  t F*T*T-TE*TE>TE1 

DERI 

37 

CPK«DO  ♦  D1*T  ♦  D2*T*T 

DERI 

38 

CP«IB0*B1*T*B2*  T*T  ♦  X*CPH)/lX*i.  ! 

DERI 

39 

CR  ■  CP*(i;«X)'tl.*X*S*MTt 

DERI 

40 

I F { TRO - T 1 380 ,  381.  381 

DERI 

41 

38l 

CR  ■  CR  ♦ 

DERI 

42 

1  IRF0*T*IRF1*RF2*TI l*IS*WTI/(l.*X*S*MTI 

DERI 

43 

380 

continue 

DERI 

44 

OXE«|  1,*XEI/(1.*29.*XE/18.) 

DERI 

45 

0X«H?*29.«X/18. J/fl.*Xl 

DERI 

46 

QT*T/TE 

DERI 

47 

1 F ( RZT  J  35,70,70 

DERI 

48 

35 

R«(3:*V712, 5663706J **.333333333 

DERI 

49 

SV*3:/R 

DERI 

50 

RLL  ■  R 

DERI 

51 

GO  TO  49 

DERI 

5> 

>0 

R«SORT{ 3, *V/(RZT*12. 5663706 IJ 

DERI 

33 

ECC»SORT(R*R-RlT*RZTl/R*l,0E-15 

DERI 

54 

S V«3. 1415926* ( 2. *R*R*RZT*RZT*Al03 f 11. *ECCt/(l 

.-ECCJI/feCCI/V 

DEKJ 

55 

RLL  *  RZT 

DERI 

56 

049 

EPS  »  C3  *  (2.  *  EK 1  l »5  /  RLL 

DEPI 

57 

101 


Q7cAMAXl I ABSIUt « SORT (2 , 6*Ek 11 

DERI 

56 

62  «  ALL 

DERI 

59 

*1 

BUM  •  8V  *  RH  *  07*  RC 

DERI 

60 

ORN<  *DRH 

DERI 

61 

BRH  •  DRH  •  CHLR 

DERI 

62 

OB  *  8T*QX*0Xl*lt.*X*MTJ/ll.*X*8*MTI 

DERI 

63 

621 

BU  •  If  »8*IOT*8X*ll.*Xl/U.*X*S*MTI*OXE-l»  l 

DERI 

64 

2  -(00*07  *2,*RR2/R2  ♦  DRN  /RH 1 *U 1  * 

DERI 

65 

3  IPN*flI*(ll-RK3J 1/ JRN*OI I 

DERI 

66 

SO  TO  (166,  161,  166],  N 

DERI 

n 

166 

OX  ■  -  (l.*X*Sl/tl.*Xf )*(X-XE)*ORttE/RM 

DERI 

66 

BT  •  *( IOT*OX*f »8*U*0XE-EPS!*ll»*Xl/ll,*X*8*MTI*CPAl*DRHE/RHl/CR 

"SRI 

69 

C 

RK2  IS  M2,  RL  IS  LAHBDA.  RH  IS 

HDERI 

70 

DV  •  V*(DRHl/RN*(l.*X*S*Nf l/(l,*Xl*DT/T*ft8*U/l267.*0XE*TE! 

DERI 

71 

1  *l2f./lS.-lT!/Ul.*X]**2*0Xi*BXt 

DERI 

72 

MT  •  6. 

DERI 

73 

DMT  •  6. 

DERI 

74 

DP VOL  *  0.0 

DERI 

75 

IflT-TSALTJ  701,  7011  702 

DERI 

76 

762 

DNSTY  ■  RFD*SALTD*(RPH*.1*SALTH!/(RFB*.1*SALTH*8ALTD*RFH] 

DERI 

77 

60  TO  555 

DERI 

78 

761 

ONSTY  *  RFD*SALTD*(RBH*SALTMi/|RFO*SALTM*RFH*SALTDI 

DERI 

79 

80  TO  555 

DERI 

60 

C  THU  IS  THI  MET  PAST 

DERI 

81 

161 

01  •  1.  *  X*2f./18. 

DERI 

02 

iriT-Tni02.H3.103 

DERI 

83 

162 

CL*2T63E6 

DERI 

84 

00  TO  104 

DERI 

85 

163 

CL*2«5l6 

DERI 

86 

164 

02  «  CL-X/I  267. *T  J 

DERI 

87 

03  •  11. *02/1  T*29.  1 

DERI 

66 

04  »  1,  ♦  02 

DERI 

69 

05  •  1,*  CL*Q3/CP 

DERI 

90 

06  •  ICL  *  (X  -  XE1  /  CP  •  T  -  TEI  •  11.0  ♦  X  ♦  8  ♦  MTI  / 

DERI 

91 

1  tl.O  <  X] 

DERI 

92 

BT  *lt-0X*OT*9.8*Q4*U/CP  *OXE  -Q6*BRHE  /RH) 

DERI 

93 

1  ♦  EP8/CP]*Il.*XJ/ni.*X*S*MT]*05] 

DERI 

94 

DX  •  Q1*IG3*DT  ♦  9.8*X*U/I287,*TEJ*QXEI 

DERI 

95 

DV  *  V*tDRME/RMMl,*X*3*MV)/Il,*X]*DT/T*9»8*U/l287.*0XE*TE) 

DERI 

96 

1  *l29./lS.-l{]/tll.*XI**2*0XJ*BXf 

DERI 

97 

DMT  •  -Jl.*X*S*MT]/RM*l IHT*X-XE-I/I1.*XE]*DRME*MT*CMLR/18*MT1 1DERI 

98 

1  -OX 

OERI 

99 

ONSTY  ■  RFD*$ALTD*ISALTM-RFMJ/J8ALTD*RFM-SALTM*RFDJ 

DER! 

100 

DP VOL  •  0. 

DERI 

101 

555 

ED  •  RK2*U*U*O7*OQ/R2*2.0 

DERI 

102 

DEK  *  ED  -  1  EK  •  U*U/2.0  |*DRHE/NH 

DERI 

103 

1  -  EPS 

DERI 

104 

DS  *  - ll . *X*8-MT i «$/RH* (CHLR/ 1 S*MT I 

DERI 

105 

1  ♦  DRHE/I1.*XEJJ 

OERI 

106 

CALL  PARTED  t 

DER! 

107 

1  T.  V.  RH.  X.  S.  MT.  EPS,  KEQ.  NEQ,  CO,  RAD,  DNSTY,  PVOL, 

DERI 

108 

2  DY,  R,  R2T,  Z.  DV,  Y,  TR.  P.  TSALT.  CF,  DZI 

OERI 

109 

RETURN 

DERI 

110 

END 

DERI 

111 

SlBFYC  D8T  LIST, BECK. H94/2 

OST 

0 

SUBROUTINE  OSTR  I 

DOT 

1 

l  CHE AN,  CSlQKA.DST,  KSQ,  NEO.  RMIN,  3LBTRP,  T,  ZH885 

DST 

2 

C 

DST 

3 

C  •*«*#**** ••*******•*# •  **•**••<<****•*•» #•■>**#*•**«*****«,'.»*#•****  «*«***D#T  4 

C  DST  5 


iae 


o  o  o  o  o  o  o 


C  DSTR  COMPUTES  THE  MEAN  AND  S,D,  OF  THE  LOBNORHAl  DISTRIBUTION  DST 
C  OF  PARTICLE  SIZE  VS.  NASS 

r  _______  .  .  DST 

c  *»••••**»*«•»*«**.* . . 

DIMENSION  g|I 

1  TSI3I ,  ZKSS140J 

r  _*____  .  DST 

n  ^^^^^_^^^^^****  ********************************************  ************\ssi 

L  DST 

GO  TO  1040,  040.  2001  .  KEQ 

040  TS  III  •  071587  Zll 

TS  1 2 1  -  0.5  5«t 

TS  131  »  018413  {Jo, 

NEXT  -  l  DST 

AT  «  ZMSS  ID 

060  DO  094  NP  a  2.  NEO  f,ST 

BT  *  AT  ♦  ZMSS  C NP I  nST 

IF  IBT I  200,  200.  064 

064  IF  1ST  •  TS  INEXTH  090.  090,  066  n«T 

066  GO  TO  1068.  072.  0761.  NEXT  net 

068  AGA  a  AT 

BUA  »  BT  |sT 

ga.np-i  5|; 

next»2 

GO  TO  064 

072  AGB  a  AT  5ct 

BGB  a  BT 

gb»np-i  55; 

NEXT  «  3 

GO  TO  064  5?I 

076  AGC  a  AT 

BGC  »  BT  5«t 

GCaNP-l  52i 

GO  TO  100  5?I 

090  AT  a  8T  5?: 

094  CONTINUE  5ct 

f*  Uv  I 

5  ERROR,  DO  NOT  UPGRADE  DST 

C  „  ,  MEAN  AND  S.D,  DST 

go  to  200  rr! 

100  CKEAN  =2.0E6*  RM I N* [ 1 1 . 259921 1 J ** t GB+  1 . 5-AGB I / l BGB-AGB I - .5 )1  DST 

CSIGMA  asQRTt  1 .2599Pll«»lGC-GA*  [ . 0413-AGC ) / t BGC-AGC ]  DST 

1-  1.1587-AGAl/t  BGA-AGAJU  5?! 

GO  TO  1140,  140,  200).  KEQ  n«T 

140  IFIT-SLDTMPJ  142,142,200  551 

H2  keq»3  55; 

200  RETURN  5ri 

END  DST 

SIBFTC  DVDX  L I  ST , DECK , M94/2  551* 

SUBROUTINE  DVD  l 

1  CX.  DPSTK,  KDPST,  MCX I  SJS| 

. .  DVDX 

DVD  COMPUTES  NUMBER  OF  DPST  PER  P.S.C.  SvDX 

,  DVDX 

DIMENSION 

DVDX 


6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 
0 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 
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1  CX  110,  90) 


DVDX  11 

C  DVDX  12 

C  ••*•*»••*••»**••*•** *#**************#**#*******************#**********DVDX  13 

C  ......*..*.............**«***.**.***************‘«**DVvJX  14 

C  DVDX  15 

M8WTNX  ■  CX  {4,  HCX)  •  CX  (3,  HCXJ  DVDX  16 

ORSTK  a  HQHTNX  /  304,001  •  1.0  DVDX  17 

I F  IDPSTK  -  3.01  010.  012#  012  DVDX  18 

010  DPSTK  a  3,0  DVDX  19 

012  KDPST  a  DPSTK  DVDX  20 

DPSTK  «  KDPST  DVDX  21 

RETURN  DVDX  22 

END  DVDX  23 

SIOFTC  FSPX  LIST. DECK, M94/2  FSPX  0 

FUNCTION  FSPEED  t  FSPX  1 

1  J.  FMU,  RA.  RAO,  PVOL#  DnSTY]  FSPX  2 

C  FSPEED  *  GENERATE  THE  PARTICLE  FALLING  SPEEDS  FSPX  3 

DIMENSION  FSPX  4 

1  RAD  (40)  FSPX  5 

PSJRE  «  25.aPV0L*DNSTY*2.**tJ-lJ*RA/IFK!J*FMUI  FSPX  6 

IFIPSIRE  -  120.)  X.  1.  2  FSPX  7 

C  FSPX  S 

1  RE  a  PSIRE*t.04l6667#PSIKE*I-2,3363E-4  ♦P55IRE* 1 2. 0154E-6  FSPX  9 

1  -6.9105E-9*PSIRE1)1  FSPX  10 

GO  TO  3  FSPX  11 

C  FSPX  12 

2  a  •,4342«.44«*AL0GtPSIREI  FSPX  13 

RE  a-1 , ?9536#PP* l « 986#PP* I -4 . 667TE»2#i . 1235E-3*PP  11  FSPX  14 

RE  ■  EXP  t2.302585l*REJ  FSPX  15 

C  FSPX  16 

3  FSPEED  a  RE*FMU/{RA*RADI Jl*2, 1  FSPX  17 

RETURN  FSPX  18 

END  FSPX  19 

SIOFTC  GAUSP  LIST, DECK. M94/2  GAUS  0 

FUNCTION  GAUSSPtXl  GAUS  1 

C  GAUS  2 

C  ****'***#***#*************•**************************** ****************6 AUS  3 

C  GAUS  4 

C  GAUSSP  -  EVALUATE  THE  GAUSSIAN  PROBABILITY  INTEGRAL  GAUS  5 

C  CALCULATE  THE  NORMAL  PROBABILITY  FUNCTION  FOR  ARGUMENT  X  GAUS  6 

C  ACCURACY  IS  TO  2.5  UNITS  IN  THE  FOURTH  DECIMAL  PLACE.  GAUS  7 

C  REFERENCE  AMS  55  26.2.18  GAUS  8 

C  GAUS  9 

C  ************************ ***************«*****aa************a*******a**6AUS  10 

C  ***#****#.****#**•«*•*« «••***•****. •#*#*******a*#*****#***#*#********#GAUS  11 

C  GAUS  12 

jFtXl  2,  1,  6  GAUS  13 

6  T  *  X  GAUS  14 

GO  TO  3  GAUS  15 

1  GAUSSP  •  .5  GAUS  16 

RETURN  GAUS  17 

2  T  »  -X  GAUS  18 

3  GP  ■  T5/tl,aT*t.l96854#T*I.lt5l94#T*l. 000344#. 019527*T)))I**4  GAUS  19 

IFIX)  4,  4,  5  GAUS  20 

4  GAUSSP  •  GP  '  GAUS  21 

RETURN  GAUS  22 

5  GAUSSP  a  l;  -  GP  GAUS  23 

RETURN  GAUS  24 

END  GAUS  25 

SIOFTC  GPSOX  LIST, DECK, M94/2  GPSD  0 
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n  o  n  n  o  ooooooooooooooooooooooo 


SUBROUTINE  GPSD  [  GPSD 

1BARMU, !TAB»KRD»NTVL»  PS*' MASS.SV.PaCT.SIGMA, JDISTR.ZHSS,  GPSD 

2SSAM.NEQ,DNSTY,RaD)  GPSD 

GPSD 

23  MARCH  1967  GPSD 

GPSD 

GPSD 

••••••A***************. *..******.**.*********************************GPSD 

GPSD 

GPSD  COMPUTES  THt  P.S.C.  INTERVALS*  THE  FRACTION  OF  MASS  PER  GPSD 

INTERVAL,  THE  MIOPOINT  OF  THE  INTERVAL.  AND  THE  RATIO  OF  GPSD 

SURFACE  TO  VOLUME  [FREILINGJ  PER  INTERVAL.  GPSD 

SIZES  RANGE  5.00  STANDARD  DEVIATIONS  (SIGMA)  ON  EACH  SIDE  GPSD 

OF  THE  MEAN  ISARMUJ •  GPSD 

••••♦•••••••SPECIAL  NOTE**********  GPSD 

PRBT  *  PROBIT.  GPSD 

prbt  table  range  is  o.o  thru  io.o.  gpsd 

SURFACE  to  VOLUME  RATIO  REOUIRES  THAT  INPUT  SIGMA  BE  GPSD 

LESS  THAN  1.38  SO  AS  NOT  TO  EXCEED  LIMITS  OF  PRBT  TABLE.  GPSD 

KDM  -  DIMENSION  OF  PRBT  GPSD 

NDTH  -  IS  PRBT  TABLE  INTERVAL,  I.E.  FRACT I HN  OF  PROSIT  DISTHIBUT  ‘.ONGPSD 

BETWEEN  ADJACENT  PROBIT  POINTS.  GPSO 

ZMSS  -  IS  THE  FRACTION  OF  TOTAL  MASS  WITH  RADIUS  RADII!  GPSD 

GPSD 

***************************** •••••♦•••••••••••••••••*****************GPSD 

GPSD 

DIMENSION  GPSD 

lPRBTI201),PSl200)»FMASS(2flO)»SVl200l»PACTI200)»  ZMSS 14Q)»RADI40J  GPSD 

GPSD 

****************************** ***************************************gpsd 

GPSD 

define  probit  table  GPSD 

GPSD 

DATA  IPRBTII], I«1,193,12J/10,.6.555*6.175.  5.915,5.706,5.524,  GPSD 

1  5,358.5,202.5.050.4.900,  4.747,4.588,  4.417,4.228,4.006,3.718,  GPSD 

2  31249/,  GPSD 

3  I PRBT ( I ) .  I  *  2.12)  GPSD 

4/7; &76. 7. 326, 7. 170, 7, 054, 6. 96 0,6. 881, 6.612, 6. 75 1,6. 695, 6. 645, 6. 598GPSD 
5  /.  IPRBTIIJ. 1*14,24)  GPSD 

6/6:514, 6. 476, 6. 440,6,405,6. 372, 6.341,6.311.6,282,6,254,6. 227, 6. 2U0GPSD 
7  /.  ( PRBT I IJ,I*2o,36)  GPSD 

8/6:150. 6, 126. 6.103,6. 080,6. 050,6. 03',  ,6. 015,5.994,5. 974,5. 954,5. 935GPSD 


9/  GPSD 

DATA  I PRBT 1  1  1  ,  1*38,48)  GPSD 

1/5. 896, 5. 878, 5. 860. 5. 842, 5. 824, 5, 006, 5. 789, 5. 772, 5. 755, 5. 739. 5. 722GPSD 
2/  GPSD 

DATA  (PRBT!!) , 1*50,60)  GPSD 

1/5  •.  69  0, 5. 674, 5. 659, 5. 643, 5. 628. 5. 613, 5, 590, 5. 583, 5. 568, 5. 553. 5. 539GPSD 
2  /.  IPRBTII), 1*62.72)  GPSD 

3/5.510,5.496,5.482,5.468,5.45* ,5. 440, 5. 426, 5. 412, 5. 399, 5. 385,5. 372GPSD 
4  /.  IPRBTII), 1*74,84)  GPSD 

5/5. 345, 5. 332, 5. 319, 5. 305, 5, 292, 5. 279, 5. 260, 5, 253. 5. 240.5. 228, 5. 215GPS0 
6  /,  IPRBTII), 1*06.96)  GPSD 

7/5:189, 5. 176, 5.164. 5. 151, 5, 136, 5,126, 5.113. 5.100, 5. 088, 5.075, 5; 063GPS0 
8/  GPSD 

OATA  IPRBTII), 1*98,108)  GPSD 

1/5;  038, 5, 025, 5. 013, 5, 000, 4. 987, 4, 975, 4. 962. 4. 950, 4. 937, 4, 925, 4. 912GPSD 
2/  GPSD 

DATA  { PRBT 1 1  1 , 1*110.120)  GPSD 

1/4:887,4.874,4.862,4.849,4.830,4,824,4.811,4.798,4. 765, 4. 772,4. 760GPSD 


1 

2 

3 

4 

5 

6 
7 

6 

9 

10 

11 

12 

13 

14 

15 

16 
17 

ie 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 
36 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 
50 

59 

60 


105 


O 


o  o  o  o  o  o  o 


520 

017 


2  it  IPRBT iJliI«l27»l32J  GPSD  61 

3/4.-734.4.?21.4.708,4.695,4.681,4.66O,4.655»4.642.4.62e.4.6l5»4.6OlGPSD  62 

4  /.  IPRBT r 1 1 • 1*134*1441  GPSD  63 

5/4. ’574, 4, 560, 4. 546, 4. 532. 4. 518, 4. 504* 4, 490* 4. 476. 4. 461. 4. 447# 4. 432GPSD  64 
6  /.  IPRBTtn.l»l46#l56l  GPSD  65 

7/4 *402, 4. 387. 4. 372. 4. 357, 4. 341. 4, 326* 4. 310* 4. 294, 4. 278, 4. 261* 4. 245GPSD  66 
8/  GPSD  67 

DATA  IPRBTI!), I*l58»168l  GPSD  68 

1/4 .211,4, 194,4 .176,4 .158,4. 140,4 .122, 4  104,4. 085 >  4. 065,4. 046,4. 026GPSD  69 

2/  GPSD  70 

DATA  IPRBTI I 1 • I *170 , 180  3  GPSD  71 

1/3. 985, 3. 964, 3. 942. 3. 920, 3. 89/, 3. 874, 3. 850, 3. 825. 3. 800, 3. 773, 3. 7466PSD  72 

2  /.  I PRBTt 1 ),! *182,192]  GPSD  73 

3/3:689.3.659.3.626,3.595,3.560,3.524,3.486,:,445,3.402,3.355,3.305GPSD  74 

4  /.  fPRBTU  1,  1 *194.201)  GPSD  75 

5/3:188.3.119,3.040,2.946,2.830,2,674,2.424,0.  /  GPSD  76 

GPSD  77 

»*««*.»*««,*.H«t.,„*..,*...«*,.,.,*,„**o„„*„„«,„*,*,„*„„GPSD  78 

GPSD  79 
GPSD  60 
GPSD  81 
GPSD  82 
GPSD  83 
GPSD  84 
GPSD  85 
GPSD  86 
GPSD  87 
GPSO  88 
GPSD  09 
GPSD  90 
GPSD  91 
GPSD  92 
GPSD  93 
GPSD  94 
GPSD  95 
GPSD  96 
GPSD  97 
GPSD  98 
GPSD  99 
GPSD  100 
GPSD  101 
GPSD  102 
GPSD  103 
GPSD  104 
GPSO  105 
GPSD  106 
GPSD  107 
GPSD  108 
GPSD  109 
GPSD  110 
GPSD  111 
GPSD  112 
GPSD  113 
GPSD  114 
GPSD  115 
GPSD  116 
GPSD  117 
GPSD  118 
GPSD  119 
GPSD  126 


IS  A  LOGNORMAL  OR  TA8ULAR  PARTICLE  SIZE  DISTRIBUTION  USED* 

logno:;nal  to  17 

TABULAR  TO  500 

imDISTR1017.017.500 
500  NTVL  •  NEO 
|TAB«NEQ 
KDM  *  NEGol 

sum  >  n.0 
do  510  1*1, NEO 

510  SUM  *  SUM  *  ZMSS 1 1 1 /RADI  1 1 
SUM  *  1.0/SUM 

CON  *  2.O*fRAD(NEQ3»RADlNEQ*ll]**0.5 

DO  520  1*1, NEO 

KDM  «  KDM-1 

FMASSIU  *  ZMSSIKDM] 

psm  *  2.0*RAD(KD4)*10.0**6 

SVtn  »  SUM/RAD  I  KDM  1 

PACT  IN  ■  CON 
CON  *  CON/1. 2599211 
GO  TO  600 
KDM  •  201 

KDMM  »  KDM  -  1 
WDTH«1 .O/FLOATfKDNMl 
DO  004  MA*1,KDMM 
PSCMAJ-O.O 
PMASSlMA J»0.0 
SV(MA)*C.O 
004  PACT(MA]*0;0 

tr  C NT VL 1  101,  101.  104 
101  NTVL  •  10 
104  INTR  «  KDMM  /  NTVL 
1  TAB  *  0 
SUM  «  0.0 

SIZ6«MDTH*FL0AT11NTR1 
200  KA  *  KDM  -  JNTR 

DO  246  K8  *  1.  KA.  INTR 
KC  •  KB  *  INTR 

UP  *  8ARMU  •  (5.0  -  PRBY  (KOI  *  SIGMA 
ON  *  BARMU  “  (5.0  -  PRBT  (Kill  •  SIGMA 
t TAB  *  ITAR  *  1 
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PSt !TAB]*10.0»»tC.5*(UP*DN] ) 


SVI  ITAB1=UP 

PACT  1 1  TAB  J  «1C . **UP 

SUM  =  SUM  ♦  SIZE  *  10U.0 

FMASS 1 1  TAB  J  »S I ZE 

CONTINUE 

IF  {SUM  -  99.9J  250,  300 »  300 

KB  =  ITAB  *  INfR  ♦  1 

UP  =  BARMU  *  (  5,0  -  PRBT  (KOMI]  *  SIGMA 
DN  =  BARMU  •  15.0  -  PRBT  (KBIJ  *  SIGMA 
JTAB  =  ITAB  ♦  1 
PS[  ITAB J elO. 0**1 0.5* [UP*DN)) 

FMASSt ITAB]* f 100.0 -SUM  3/100.0 

SVI ITABJsUP 

PACT { ITAB]  «10.**U‘> 


BARSUR  *  BARMU  -ISIGMA  **  21*2.3025851 

KUA  *  2 

FRKDA  =  1.0 

DO  338  KE  —  1,  ITAB 

SPRBT*5.0*[ [SVfKF ] -BARSUR I /SIGMA  ] 

DO  310  KD  =  Kt'A ,  KDM 
IF  [ SPRBT  -  PRBT  ( KD ] ]  310,  308,  308 
FRKDH  =  (PRBT  l KD  -  1]  -  SPRBT]  /  (PRBT  ( 
PKD  *  KD  -  KDA  -  1 

5VIKE]*[WDTH*[FHkDA*PKD*FRkDB) ] /FMASS IKE] 

FRKDA  =  j .0  -  FRKD8 

KDa  =>  KD 

GO  TO  338 

CONTINUE 


SAVE  FOR  RATIO  OF 
SURFACE  TO  VOLUME 


COMPUTE  RATIO  OF 
SURFACE  TU  VOLUME 


KD  -  1]  -  PRBT  I  KD )  ] 


SIPFTC 


DO  326  KF  =  KF,  ITAB 
SVIKF Js99999999.0 
GO  TO  340 
CONTINUE 

DO  344  KG  =  1,  ITAB 
I  F [ SV  t KG  1  1342,342,344 
SV(KGJ=WDTH/100.0 

continue 

RETURN 

END 

3  ICRX  LIST, DECK. M94/2 
SUBROUTINE  ICHD  f 

1  ALT  »ATID»ATP,DNID,L)NS,ETA,NEQ,NPVA»NTVL» 
?  SLM.  ZBRSTZ.ZTRP, IRAD, IPAM,SLDTMP,FW,GRV 

26  FE8RUARY  1967 


ERROR  IN  RATIO, 
LOAD  WITH  FAKE. 


PRS,RHZ,RLH,TW,KHX, I  RISE 
,KCLD,KDI,KEO,KRD,KTRJ 


GPSD  121 
GPSD  122 
:  GPSD  123 
GPSD  124 
GPSD  125 
GPSD  126 
GPSD  127 
GPSD  128 
GPSD  129 
GPSD  130 
GPSD  131 
GPSD  132 
GPSD  133 
GPSD  134 
GPSD  135 
GPSD  138 
GPSD  137 
GPSD  138 
GPSD  139 
GPSD  140 
GPSD  141 
GPSD  142 
GPSD  143 
GPSD  144 
GPSD  145 
GPSD  146 
GPSD  147 
GPSD  148 
GPSD  149 
GPSD  150 
GPSD  151 
GPSD  152 
GPSD  153 
GPSD  154 
GPSD  155 
GPSD  156 
GPSD  157 
GPSD  158 
GPSD  159 
GPSD  160 
GPSD  161 
GPSD  162 
GPSD  163 
GPSD  164 
GPSD  165 
iCRX  0 
ICKX  1 
ICRX  2 
ICRX  3 
ICRX  4 
ICRX  5 
ICRX  6 


DIMENSION 
l  ATID  112), 

>  ALT  1260), ATP 
!  RHZ  (260), RLH 


1260], ETA  I2t 
(260). SLM  ( 26> 


**•*•**.*#** ICRX 

ICRX 
ICRX 

12>*  ICRX 

'RV  (260), PRS  1260),  ICRX 

ICRX 
ICRX 


oooonoo  oonn  oooooooooooooo 


CONTROL  PARAMETER  GLOSSARY 


NUMBER  Of  PARTICLE  CLASSES  IN  CRM  CALCULATIONS 

NUMBER  OF  P ARTICLE  CLASSES  IN  RSXP  CALCULATIONS 

NUMBER  OF  WAFERS  PER  PARTICLE  SIZE  CLASS  t RSXP I 

NAFER  SUBDIVISION  FACTOR  (RSXPI 

CRM  DEBUG  PRINTOUT  CONTROL 

RSXP  DEBUG  PRINTOUT  CONTROL 

PARTICLE  COALESCENCE  CALCULATION  CONTROL 

PARTICLE  ACTIVITY  CALCULATION  CONTROL  I  ALWAYS  ZERO) 


*ICRX  15 
ICRX  16 
ICRX  17 
ICRX  18 
ICRX  19 
ICRX  20 
ICRX  21 
ICRX  22 
ICRX  23 
ICRX  24 
ICRX  25 
ICRX  26 


ICRX  28 


1000  FORMAT  1 1H1.///51X19H*  ********  *//12X101HT  HE  0  E  P  A  R  ICRX  29 
1TMENT  OF  DEFENSE  FALLOUT  PREDICTI  ICRX  30 
20  N  S  v  s  T  E  M.//51X.19H*  ********  *////52X» 17MCL0UD-RISICRX  31 
3E  M00ULE///55X.11HPREPARED  BY/  ICRX  32 

4  42X.37HNAVAL  RADIOLOGICAL  DEFENSE  LABORATORY/  55X, 11KS.F. .CALIF , /ICRX  33 

5  58X.3HAND/  43X. 34HTECHNICAL  OPERATIONS  RESEARCH, INC. /52X,  17HBURLICRX  34 

6INGT0N,  MASS. // / / 1  ICRX  35 

1100  F0RMATH2A6J  ICRX  36 

1200  FORMAT 1 8 1 4 )  ICRX  37 

1300  FORMATIE12.55  ICRX  38 

1400  FORMAT [ 20X, 32HCLOUD  RISE  RUN  IDENTIFICATION  -  12A6//20X, 32HATM0SPHICRX  39 
1ERE  IDENTIFICATION  •  12A6//20X. 27HELE VAT  I  ON  OF  GROUND  ZERO  «  FICRX  40 
28.1 »  7H  METERS/2nX,34HSOIL  SOLIDIFICATION  TEMPERATURE  *  F8.1,  ICRX  41 

3  15H  DEGREES  KELVIN/  ICRX  42 

4  20X.25HALTITUDE  OF  TROPOPAUSE  «  F g.i,7H  ME TERS/20X.28HP ARTICLE  DEICRX  43 

5NSITy  IC.G.S.)  *  F8 . 4/  20X, 1 3HYIE ICRX  44 

6lDS  IKTJ  -/23X,  0HTOTAL  «  Ell .4.3X.10HFISSION  ■  Ell. 4///]  ICRX  45 

1500  FORMAT I20X,  27HC0MPUTATI0N  CONTROL  INPUTS-/20X, 7H  NE0.7H  NTVLICRX  46 
1,7H  KDI.  ICRX  47 

2  7H  1RA0.7H  KCLD.7H  KRX.7H  KEO.  7H  IPAM/  ICRX  40 

3  20X.8I7///J  JCRX  49 

1600  FORMATI20X.  26HCRM  COMPUTATION  CONTROLS  -/23X,  ICRX  50 

1  44HNUMBER  OF  PARTICLE  SIZICRX  51 

2E  CLASSES  REQUESTED  *  I4/23X.  10HPART1CLE  GROWTH  A6.10H  REQUESTED/ ICRX  52 

3//*  ICRX  53 

1700  FORMAT l 20X .  2/HRSXP  COMPUTATION  CONTROLS  -/23X,  ICRX  54 

l  44HNUM8ER  OF  PARTICLE  SIZICRX  55 

2E  CLASSES  RC-QUESTED  *  J4/23X,  54HNUMBER  OF  CLOUD  SUBDI VISIONSIWAFEJCRX  56 
3RS)  PER  SIZE  CLASS  *  14/  ICRX  57 

4  23X.  27HWAFER  SUBDIVISION  FACTOR  =  J4)  ICRX  58 

9L  •  FORMAT ( 1H1 ,  ,Crx 


ICRX  57 
ICRX  58 


bOX, IOHaTMOSPHERE , 51X//7X, 3HALT, 11X, 3HATP, 11X, 3HRH2, 11X.3ICDX 


ICRX  59 


2META,llX,3HPRS.liX,3HGRV,llX,3HSLM,UX.3HRLH) 
999  F0RMAT[//[8t2X.El2.5I)) 


ICRX  61 
ICRX  62 
ICRX  63 


«*»»oo«*m»tm**tt**o*»»*»**„»„M****»*m*t»»**m*»mHM***ICRX  65 

ICRX  66 

DATA  NORD1 « W0RD2/6U  IS  *6HIS  NOT/  ICRX  67 

ICRX  68 

******  •  •*  ,«.*•*.*•»••*••»**•»*•••••»•»**•*»***•  *************** 69 

ICRX  70 

SEQUENCE  OF  INPUTS  1CRX  71 

ICRx  72 

1  READ  CLOUD  RISE  IDENTIFICATION  ICRX  73 

2  READ  CONTROL  CARD  ICRX  74 
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) 


c 

3 

READ  GZ  ELEVATION  (METERS! 

ICRX 

75 

c 

4 

READ  SOIL  SOLIDIFICATION  TEMPERATURE  (DEGREES  KELVIN) 

ICRX 

76 

c 

5 

read  fission  yield  ikti 

ICRX 

77 

c 

6 

READ  ALTITUDE  OF  TROPOPaUSE  C METERS  1 

ICRX 

70 

c 

7 

READ  PARTICLE  DENSITY 

ICRX 

79 

c 

8 

READ  ATMOSPHERE  IDENTIFICATION 

ICRX 

80 

c 

ICRX 

81 

c 

*  *  * 

•  ICRX 

82 

c 

ICRX 

83 

READIKRD.1100IDNID 

ICRX 

84 

READIKRD.  1200JNEO.NTVL.KDI  . I  RAD, KCLD, KRX, KEQ, I  PAM 

ICRX 

85 

READtKRD,1300 JZBRSTZ 

ICRX 

86 

READIKRD,1300]SLDTMP 

ICRX 

87 

READ{KRD,130Q JFW 

ICRX 

88 

READIKRD*1300JZTRP 

ICRX 

89 

HEADIKRD.lStIO  jDNS 

ICRX 

90 

READIKRD.IIOOJATID 

ICRX 

91 

c 

ICRX 

92 

CALL  ATMRI 

ICRX 

93 

1  ALT.  ATP,  ETA.  GRV,  KRD.  NP"A.  PRS.  RHZ*  RLH.  SLM.  ZTRP.KTH. 

ICRX 

94 

2  IRISE) 

ICRX 

95 

c 

ICRX 

96 

c 

*** 

•  ICRX 

97 

c 

ICRX 

98 

c 

SEQUENCE  OF  OUTPUTS 

IC»X 

99 

c 

I  CM  X 

100 

c 

1 

WRITE  CLOUD  RISE  MODULE  HEADING 

ICRX 

101 

c 

2 

WRITE  INPUT  DATA 

ICRX 

102 

c 

3 

WRITE  COMPUTATION  CONTROLS 

ICRX 

i.03 

c 

4 

WRITE  CRM  COMPUTATION  CONTROLS 

ICRX 

104 

c 

5 

WRITE  ROXP  COMPUTATION  CONTROLS 

ICRX 

105 

c 

6 

WRITE  ATMOSPHERE  PROPERTIES 

ICRX 

106 

c 

ICRX 

107 

c 

*  ** 

******  »*•**************»**********•*****************************<,**  l  CF<X 

108 

c 

ICRX 

109 

WRITEIKTR.1U00I 

ICRX 

?  10 

WRITEIKTR. 140(11  DNIU,ATJD.ZBRSTZ,SLDTMP,ZTRP,DNS,TW,FW 

ICRX 

111 

WRITElKTR.lbOO  JNF-Q.NTVL.KDU  IRAD , KCLD, KRX, KEQ.  I  PAM 

ICRX 

112 

IFIKFQI122, 111.122 

ICRX 

113 

12? 

WORDsHORDl 

ICRX 

114 

GO  TO  133 

ICRX 

115 

Ill 

WORDsWORD2 

ICRX 

116 

133 

WRJTElKTR.1600lNFQ.WORD 

ICRX 

117 

WRITElKTR.1700JNTVL.KDI. IHAO 

ICRX 

110 

WRITEIKTR, 998) 

ICRX 

119 

WHITE  (KTR,999)(ALTn  I,ATP[  IJ.RHZm.ETAI  n.PRSlIJ  ,GRVI  I  )  ,SLM(  I  |, 

ICRX 

120 

1RLHII J . I=1.NPVA) 

ICRX 

121 

KClD  =  KCLD  *  1 

ICRX 

122 

KRX  s  KRX  ♦  1 

ICRX 

123 

ZBRSTZ  *  ZRRSTZ  •  3.280033 

ICRX 

124 

RETURN 

ICRX 

125 

END 

iCRX 

126 

X  i 

i  8FTC  PAMX  L I  ST , DECK , M94/2 

PAMX 

0 

SUBROUTINE  PAM 

PmMX 

1 

RETURN 

PAMX 

2 

end 

PAMX 

i 

SIBFTC  PAHDI  L I  ST , DECK , M94/2 

PARD 

0 

SUBROUTINE  PARD I S I NEQ , PM , PS , Y . RM I N I 

PARD 

1 

C 

PARD 

2 

C< 

•  PARD 

3 
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■sN'M'-W-i  .  ...  -  n»»  v-  *,  *  -a  .....  .  '  '  '•‘-'•t*"  '•  -*'*'.,* ’A*'**-”"* 


c 

PARD 

4 

c 

GENERATE  INITIAL  HASS  DISTRIBUTION 

PARD 

5 

c 

PARD 

6 

c**** 

••PARD 

7 

c 

PARD 

6 

DIMENSION  V £ 40 1 

PARD 

9 

c 

PARD 

10 

c*«** 

••PARD 

11 

c**** 

••PARD 

12 

c 

PARD 

13 

dELTAX  ■  AL0GI2. 01/3.0 

PARD 

14 

X  *  ALOGtRHlNJ-DFLTAX/2.0 

PARD 

15 

YSUM  s  0.0 

PARD 

16 

DO  20  J-l.NEO 

PARD 

17 

X  «  X*DELTAX 

PARD 

18 

TUI  *  GAUSSPt  IX-PMI/PSI-YSUM 

PARD 

19 

20 

YSUM  ■  YSUM*Y(Jl 

PARD 

20 

YlNEOl  ■  1 1  0- ( YSUM* Y I NEO 1 l 

PARD 

21 

RETURN 

PARD 

22 

END 

PARD 

23 

SI8FTC  PARTE  LIST. DECK, M94/2 

PART 

0 

SUBROUTINE  PARTED  I 

PART 

1 

l  T,  V,  RM,  X,  S,  HT,  EPS.  KEO. 

NEO,  CG, 

SAD,  DNSTY,  PVOL, 

PART 

2 

2  DY,  R,  RZT.  2.  DV.  Y,  TR.  P. 

TSALT,  CF 

.  ozi 

PART 

3 

C 

PART 

4 

C  *** 

••PART 

5 

c 

PART 

6 

c 

PARTED  -  EVALUATE  THE  PARTICLE 

NUMBER  DISTRIBUTION  DERIVATIVES 

PART 

7 

PART 

8 

c  *•• 

••PART 

9 

c 

PART 

10 

DIMENSION 

PART 

11 

1  Y  (401,  CG  [401,  HAD  [401,  DY 

(40),  CF 

140,  401 

PART 

12 

c 

PART 

13 

c  •  *• 

•  •PART 

14 

c  *  *• 

•  •PART 

15 

c 

PART 

16 

0P9 

call  COLLIS  ( 

PART 

17 

1  T.  V.RM.X.S.HT.EPS.NEQ.CF.CG.RAD.DNSTY, 

PVOL. P, KEO] 

PART 

18 

inZ  -  V/[4.16879G2*R*R1  1  83. 

63,  84 

PART 

19 

83 

DO  830  J  »  1,  N6Q 

PART 

20 

830 

CG [ J ]  s  0.0 

PART 

21 

GO  TO  8b 

*' 

PART 

22 

84 

[FITSALT-T1  83,  842,  642 

PART 

23 

842 

DO  840  J  «  1,  NEO 

PART 

24 

IF  [ DZ ]  085,  08b.  1841 

PART 

25 

ie4i 

IF  [CG  IJJ  •  1.0]  841,  840,  840 

PART 

C6 

841 

CGUJ  «  0.0 

PART 

27 

840 

CONTINUE 

PART 

28 

85 

continue 

PART 

29 

GO  TO  { 0H6,  066,  186],  KEO 

PART 

30 

086 

DO  10  J  «  1,  NEO 

PART 

31 

10 

D  Y  [  J  ]  > 

PART 

32 

1SYSTEMI J.NPO.Y.CF] 

PART 

33 

RETURN 

PART 

34 

186 

DO  80  J  ■  1,  N6Q 

PART 

35 

80 

DYtJJ  s  O.n 

PART 

36 

200 

RETURN 

PART 

37 

END 

PART 

38 

IIBFTC  RKGX  LIST. DECK, M94/2 

RKGX 

0 

1X0 


onoo  noonooo 


SUBROUTINE  RKGILL  f  RKGX 

1  ALT.  ATP,  BO,  81,  B2,  CF,  CG,  CMLR.  C3»  DNSTY,  OST.  BU,  PUT ,  RKGX 

2  DO,  Dl,  D2,  ED.  EK,  EPS,  HLR,  KEO.  N,  NEQ,  NNN,  NPVA,  RKGX 

3  P,  PRS,  PVOL ,  01.  RAD,  RFD,  RFm,  RFO,  RF1,  RF2,  RKGX 

4  RK2,  RK3,  RL.  RLH,  RM,  RZT,  S»  SALTD,  SALTH.  T»  Ti.  RKGX 

5  TF,  TR,  TRO,  TSALT,  U,  V,  WT,  X.  Y,  Z1  RKGX 

RKGX 

RKGX 

FORTRAN  RUNGE-KUTTA  INTEGRATOR  OF  D.  GALANT.  RKGX 

RKGX 

RKGX 

DIMENSION  RKGX 

1  DVBL  (501,  RKU  (SOI,  VBL  [SOI  RKGX 

DIMENSION  RKGX 

1  ALTt260  1  ,ATPt26(J],CGl4(n#DYt40J.  RKGX 

2PRS 12601 .RADI  401 , RLH [2601, Yl 40 J  RKGX 

DIMENSION  CF  [40,  401  RKGX 

RKGX 

a.*********..*.**.**,**..***, **•*.,*,**• *#***********************, ***,RKGx 

RKGX 

H  =  dst  rkgx 

KTRY  =  0  RKGX 

KYCL  =  1  RKGX 

VBL  III  =  WT  RKGX 

VBL  [2]  =  RM  RKGX 

VBL  1 3 1  =  U  RKGX 

VBL  [4]  s  x  RKGX 

VBL  (5)  =  T  RKGX 

VBL  (61  =  V  RKGX 

VBL  [/]  =  Z  RKGX 

VBL  [0]  =  FK  RKGX 

VBL  (  91  =  S  RKGX 

VBL  [10]  *  PVOL  RKGX 

DO  018  NP  =  H,  NNN  RKGX 

niB  VBL  (NPl  a  Y  [NP  -  101  RKGX 

020  CALL  DFRIV  t  RKGX 

1  ALT'.'  ATP,  BO.  81.  B2,  CF,  CG,  CMLR,  C3»  DEK.  DNSTY,  RKGX 

2  DPVUL,  DRM,  DS,  DT,  DU,  DV,  DWT,  DX,  DY»  DZ»  RKGX 

3  DO,  Dl.  D2„  EU,  EK,  EPS.  BLR.  KEO,  N,  NEQ,  NPVA,  RKGX 

4  P.  PRS,  PVOL.  01,  RAD.  RFD,  RFH,  RFO,  RFl,  RF2,  RK2,  RK3,  RKGX 

5  RL.  RLH,  RM.  R7T ,  S,  SALTD,  S *L TM,  T,  TE.  TF,  TR,  RKGX 

6  TRQ ,  TSALT.  IJ,  V,  WT,  X,  Y,  Zl  RKGX 

VBL  tl]  a  WT  RKGX 

DVBL  111  s  DWT  RKGX 

DVBL  I2i  *  DRM  RKGX 

DVBL  (3)  »  DU  RKGX 

DVBL  (42  a  DX  RKGX 

DVBL  [51  a  DT  RKGX 

DVBL  (6]  *  DV  RKGX 

DVRL  17]  a  DZ  RKGX 

DVBL  (81  a  DEK  RKGX 

DVRL  [9]  a  DS  RKGX 

DVBL  (102  «  DPVOL  RKGX 

DO  022  NP  a  13  .  NNN  rkgx 

022  DVBL  l NP  1  a  DY  (NP  -  10]  RKl;x 

KTRY  a  KTRY  +  1  RKGX 

GO  TO  [001,  003,  005,  007],  KTRY  RKGX 


111 


1 

2 

3 

4 

5 

6 
7 

a 

9 

10 

n 

12 

13 

14 

15 

16 

17 

18 
IS 
20 
21 
22 

23 

24 

25 

26 
27 
26 

29 

30 

31 

32 

33 

34 
J5 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 


001 

DO  2  J  •  1,  NNN 

RKbX 

61 

VBLUJ  ■  VBL t J J  ♦  ,5»H*DvBLUJ 

RKGX 

62 

002 

BKQUJ  ■  DVBUJ] 

RKGX 

63 

GO  TO  010 

RKGX 

64 

003 

DO  4  J  ■  1,  NNN 

RKGX 

65 

vBLUJ  «  VBLUJ  ♦  .  29289  322  *H*  (0  VBLUJ  -  RKGUJJ 

RKGX 

66 

004 

RKGU1  •  .585  78644  *DVBL  U1  ♦  .  12132Q34*RKG  U  J 

RKGX 

67 

GO  TO  010 

RKGX 

68 

005 

DO  6  J  ■  1,  NNN 

RKGX 

69 

VBLUJ  ■  VBLUJ  *  i.7071068*H*(DV8LUl"RKGUI ) 

RKGX 

70 

006 

RKGU1  •  3;414?1356*0VBLUJ-  4 . 12l3203*RKG  IJ  ] 

RKGX 

71 

GO  TO  010 

RKGX 

72 

007 

DO  8  J  ■  1.  NNN 

RKGX 

73 

006 

VBLUJ  "  VBLUJ  ♦  ,16fc66607*HMDVBLUJ  -  2.*RKG(J1I 

RKGX 

74 

KYCL  »  2 

RKGX 

75 

010 

NT  «  VBL  UJ 

RKGX 

76 

RK  «  VBL  (21 

RKGX 

77 

U  «  VBL  [3] 

RKGX 

78 

X  »  VBL  C  41 

RKGX 

79 

T  «  VBL  15] 

RKGX 

80 

V  ■  VBL  (61 

RKGX 

81 

Z  »  VBL  (71 

RKGX 

82 

EK  c  VBL  (81 

RKGX 

83 

S  «  VBL  (91 

RKGX 

84 

PVOL  ■  VBL  (101 

RKGX 

85 

DO  1010  NP  »  1*  NEQ 

RKGX 

86 

1010 

V  l NP 1  a  VBL  (NP  ♦  101 

RKGX 

87 

GO  TO  (020.  0301.  KYCL 

RKGX 

68 

030 

RETURN 

RKGX 

89 

END 

nnGX 

90 

SIBFTC  RSTX  LIST, DECK, M94/2 

RSTX 

0 

SUBROUTINE  RSTR  t 

RSTX 

1 

1  DST »  EK.  KSV.  N.  NEQ.  PVOL.  RM,  S.  SAVE*  SMALLT,  SMSS, 

RSTX 

2 

2  T.  U.  V.  WT.  X.  Y.  ZJ 

RSTX 

3 

C 

RSTX 

4 

C 

5 

C 

RSTX 

6 

C 

RSTR  PRESERVES  AND/OR  RESTORES  CRM  VARIABLES 

RSTX 

7 

C 

RSTX 

8 

C 

9 

C 

RSTX 

10 

DIMENSION 

RSTX 

11 

l  PSMSS  (531.  PY  (50).  SMSS  (50).  Y  150) 

RSTX 

12 

C 

RSTX 

13 

C 

*  *  * 

14 

C 

15 

C 

RSTX 

16 

GO  TO  (002.  052).  KSV 

RSTX 

17 

002 

PEK  a  EK 

RSTX 

18 

PPVOL  «  PVOL 

RSTX 

19 

PRM  a  RM 

RSTX 

20 

PS  «  S 

RSTX 

21 

PT  »  i 

RSTX 

22 

PU  «  U 

RSTX 

23 

PV  «  V 

RSTX 

24 

PMT  a  WT 

RSTX 

25 

PX  »  X 

RSTX 

26 

PZ  »  Z 

RSTX 

27 

DO  012  NP  a  1,  NEQ 

RSTX 

28 

PSMSS  (NP)  *  SMSS  (NP) 

RSTX 

29 

oooo  ooooooooooo 


o 


012  PY  tNPJ  =  Y  tNPJ 

RS1X 

30 

GO  TO  100 

RSTX 

31 

052  SAVE  *  DST 

RSTX 

32 

DST  «  0.5 

RSTX 

33 

SMALLT  ■  SMALLT  -  SAVE 

RSTX 

34 

EK  «  PEK 

RSTX 

35 

PVOl  »  PPVOL 

RSTX 

36 

RM  a  PRM 

RSTX 

37 

S  a  PS 

RSTX 

38 

T  *  PT 

RSTX 

39 

U  «  PU 

RSTX 

40 

V  a  PV 

RSTX 

*1 

WT  «  PWT 

R»TX 

42 

X  *  PX 

RSTX 

43 

Z  «  PZ 

RSTX 

44 

DO  053  NP  a  1,  NEQ 

RSTX 

*i 

SMSS  tNPJ  a  PSMSS  {NPl 

RSTX 

053  Y  ( NP J  a  py  INP1 

RSTX 

47 

N  =  3 

RSTX 

48 

100  RETURN 

RSTX 

49 

END 

RSTX 

50 

IBPTC  RSXPX  LIST, DECK, M94/2 

RSXP 

0 

SUBROUTINE  RSXP  f 

RSXP 

1 

1  ALT.  CX.  DNS*  ETA.  GRV.  j TAB,  K D I .  KRD,  KRX.  KTR. 

RSXP 

2 

2  mcx.npva,ps.fmass,sv»pact,rhz.ssam,slm,dpx. 

RSXP 

3 

3  PV.PVI .TIMCX,  TU.  ZBRSTZ.DETIO.DNID, IRAQ. IR1SE, 

RSXP 

4 

4  SLDTNP,TMSD,FH.SIGMA.SPARE1.H0B,SPARE3, IUISTR1 

RSXP 

5 

RSXP 

6 

23  MARCH  1967 

RSXP 

7 

RSXP 

8 

♦RSXP 

9 

RSXP 

10 

RSXP  COMPUTES  THE  RISE  AND  EXPANSION  OF  DEPOSIT  INCREMENTS  AND 

RSXP 

11 

TABULATES  THEIR  TIME-SPACE  LOCATION  AND  MASS  PER  UNIT  AREA 

RSXP 

12 

NOTE  -  EFFFCTS  OF  WINDS  ARE  NOT  CONSIDERED 

RSXP 

13 

RSXP 

14 

♦RSXP 

15 

RSXP 

16 

DlMtNSION 

RSXP 

17 

1ALT I  2601,0X1 10. 90  I. ETA  1260] .GRV I  26 01  .PS  1200 1  ,FMASSI200|, 

SV1200I , 

RSXP 

18 

2PACTI20  0] ,RHZl?60) .SLMI260  )  . PV H 90 1 . RHOPS I  6 I . V I SPS 1 6 1 . 

TIMCXI90) 

RSXP 

19 

DIMENSION 

RSXP 

20 

1  DPSTI12J  .DPSTZm  .DPX13.V0  1 ,  GDP  ST  16, 100  J . 

RSXP 

21 

2PV[26UI,DETIDtl2J,0NIDll21.VISCX f9Q) 

RSXP 

22 

444  FORMAT  tlHl  / 

RSXP 

23 

1  1 OX10HDEPOS I T  INCREMENTS  // 

RSXP 

24 

1  18X3HACT,  8X3HTIM,  BX3HRAD,  8X3HPSC ,  8X3HFRA, 

RSXP 

25 

2  8X3HINC,  8X3HTBZ,  8X3HBLN,  8X3HMAS,  8X3HALT I 

RSXP 

26 

FORMAT  ( 10X1PE11 .3,  9EH.3] 

RSXP 

27 

888  FORMAT!  108H  THE  RADIUS  OF  AN  NRDL  CLCUD  WAFER  HAS  BEEN  FOUND  TORSXP 

28 

1  BE  LESS  THAN  HALF  THE  DIAGONAL  OF  A  CLOUD  SUBDIVISION. 

/  36H  THE 

RSXP 

29 

2WAFER  PROPERTIES  ARE  *  RADlUS»El2.5,2X,14HPARTICLE  SIZE 

aEl2.5,2X 

.RSXP 

30 

39HALTITUPE«E12.5/  6H  T I ME«E12 • 5 »  2X, 15HMASS/UN I T  AREA»E12 

.5,  57H. 

RSXP 

31 

4a  SINGLE  WAFER  WILL  BE  INPUT  TO  THE  TRANSPORT  MODULE.  /1M0I 

RSXP 

32 

RSXP 

33 

♦  RSXP 

3a 

♦  RSXP 

35 

RSXP 

36 

DATA  DENT/6H  IRISE/ 

RSXP 

37 

call  sctn  I 

RSXP 

38 

3 


113 


no  ci  ooono 


1  CX,  DPST,  DPSTk,  DPSTZ 

»  DPX,  KD 1  #  KDPST,  MCX,  Z8RSTZJ 

RSXP 

39 

GO  TO  f 190 ,  188],  KRX 

RSXP 

40 

18G  WR I TE ( KTR , 444  J 

RSXP 

41 

c 

MAXIMUM  DPST  AREA 

RSXP 

42 

190  AREAMX  »  3.14159  *  CX  15 

,  MCX I  **  2 

RSXP 

43 

2BRSTM»ZRRSTZ/3. 28083 

RSXP 

44 

ROPART  aUNS*1000 . 0 

RSXP 

45 

NSP=1 

RSXP 

46 

c 

THIS  IS  A  HUEBSCH  CLOUD. 

NSP  IS  USED  TO  INDICATE  THIS. 

RSXP 

47 

c 

THE  MNEMONIC  ITAB 

IS  CHANGED  TO  NPS  IN  LINK  4 

RSXP 

48 

NP5* I  TAB 

RSXP 

49 

XNPSaFLOATfNPSl 

RSXP 

50 

c 

THE  MNEMONIC  NPVA 

IS  CHANGED  TO  NAT  IN  LINK  4 

RSXP 

51 

942  NATSNPVA 

RSXP 

52 

nO  996  Jal.NAT 

RSXP 

53. 

c 

THE  MNEMONIC  ETA  IS  CHANGED  TO  ATEMP  IN  LINK  4.  THE 

UNITS  OFRSXP 

n  c  v  n 

54 

c  c 

996 


aTEMP  ARE  kgm/m/sec 

ETAI  jJ=ETAU)*0.1  „  „ 

THE  MNEMONIC  RHZ  IS  CHANGED  TO  RHO  IN  LINK  4.  THE  UNITS  OF 
RHO  ARE  KGM/M**3 
RHZt jl=RHZt J)*1000.0 

THE  MNEMONIC  MCX  IS  CHANGED  TO  NPOSIT 
NP0S1T=MCX 
REWIND  I R I SE 
WRITE! IRISEIDENT 


C 

C 


ROPART  , NSPi 


C 

C 

c 


COMPUTE  WIDTH  OF  cloud  SUBDIVISIONS 
8Z=Cx15*MCX]/FLOaTI IRAD3 

WRITE  I IHISFlrW.SSAM.SLnTMP,THSD»SIGHA,TW«HOB#BZ 
L  CX I  5 , MCX ) , Z8RSTZ 

THE  MNEMONIC  DN1D  IS  CHANGED  TC  CRID  IN  LINK  4 
WRITE! IPISFI IDNlDtJJ  » J»1 # 12  J 
WRITE! I R I SF  J IDETJDI Jl. 

WRITE! 1RISF1NPS  _ 

-  ARRAY12001.  PARTICLE  SIZE  CLASS  MIDPOINT  IN  MICRONS 
EXPOSURE  RATES  AT  1  HOUR 

-  AHRAYI200I.  SURFACE  TO  VOLUME  RATIO  OF  I-TH  PARTICLE  SIZE 
HR  !  TE  l  I R I  SE  II  PS  C  J  J » FMASS!  J  J » PACT  f  »fl  #SV  I  J  J  »  J«1#NPS  J 

WRITE! IHISE3NAT 

WRITE!  I  RISE  I tETAI J5 ,RMZt Jl * Jsl.NATl 
WRITE! I H I SF I NPOS I T 
THE  MNEMONIC 
MNEMONIC 
MNEMONIC 
MNEMONIC 
MNEMONIC 


RSXP 

RSXP 

RSXP 

RSXP 

RSXP 

RSXP 

RSXP 

RSXP 

RSXP 

RSXP 

RSXP 

RSXP 

RSXP 

RSXP 

F.SXP 

RSXP 

RSXP 

RSXP 

RSXP 

RSXP 

RSXP 

RSXP 

RSXP 

RSXP 

RSXP 


THE 

THE 

THE 

THE 


CXll.  Jl 
CX ! 3 «  J I 
CX14. Jl 
CX  I  6  *  J ) 
CX [ 7*  J  J 


IS 

IS 

IS 

IS 

IS 


WRITE! IRISE1 


FROGsl , 306*66 7E-l7« ROPART 
BZ2*BZ/2.n 

LODD  -  LENGTH  OF  PARTICLE  DESCRIPTION  DATA  BLOCK 

lqdd»o 

SET  UP  ONE  »D I  MENS l ONAL  TaBlES  OF  CLOUD  VISCOSITY 
AND  TEMPERATURE 
DO  6045  J»1.MCX 

V I  SCX I  J  J  ■  1.458E-6  *CX  1 9 ,  J )  ,  5/ 1 110 , 4*CX  |  9,  J I  J 

60  <35  TlHCXl  jJeCXll,  Jl 
KCX  ■  MCX  -  1 

;  FIND  MAXIMUM  TOP  RISE  VELOCITY 

8IGVEL  *CXf7,lJ 


RSXP 

RSXF 

RSXP 

RSXP 

RSXP 

RSXP 

RSXP 

RSXP 

RSXP 

RSXP 

RSXP 

RSXP 

RSXP 


56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 


CHANGED 

TO 

TC 

IW 

LINK 

RSXP 

80 

CHANGED 

TO 

ZB 

IN 

LINK 

RSXP 

81 

changed 

TO 

ZT 

IN 

LINK 

RSXP 

82 

changed 

TO 

ve 

IN 

LINK 

RSXP 

83 

changed 

TO 

VT 

IN 

LINK 

RSXP 

84 

CX(l,Ji, 

CX 

16. 

Jl, 

CXI  7 

,Jl 

t  J*l»  NPOS I TRSXP 

e5 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 


6050 

200 


C 

c 


202 


203 


206 

207 

1207 


206 


DO  6050  J*2,MCX 

B  IGVEL*  ( 8 1 G  V  E  L ♦  CXI7.JJ*  ABS  [ B ! GVEL-CX [ 7* J 1 I) /2. 

DO  278  MA  s  l,  I  TAB 

COMPUTE  PSC  FALL  SPEEDS 
COMPUTE  8EL0W-CL0UD  PARTICLE  SETTLING  RATES 
DO  202  J*1 » NAT 

CALL  FALRATIALT(J). PStMAJ*PVt-J], ETA, RHZ, FROG, KTR) 

COMPUTE  IN-CLOUD  SETTLING  RATES 
DO  203  J=1,MCX 
RH0PSI6 J*CXI10» J1 
VISPSI6J*  VI SCX C J] 

CALL  FALRATl  O.O.PSlNAI,  PvIIJI,  VlSPS,  RHOPS,  FRQG.KTR1 
I  NCR  *  KDPST  *  IMA-11 


DO  258  MB  «  1.  KDPST 

DPST  141  =  CX  II,  11 
DPST  151  *  CX  15,  MCXl 
DPST ( 6 1 «PS ( MA ) 

DPST  181  «  1  NCR  ♦  MB 


INITIAL  DPST  VARIABLES 


NUMBER  DPST  IN  ORDER  COMPUTED 
MASS  LOAD  PER  M.SQ. 


DPST(lllaSSAM*FMASSlMAl/IDpSTK*AREAMX| 

BM  *  MB 

DPST  1121  *  DPST7  121  ♦  BM  *  DPSTZ  111 
ZLSTsDPST I 12 1 
KbASE  »  1 
JBASE  *  1 

COMPUTE  DPST  TRAVEL 

DO  238  MC  x  1,  KCX 

7VSB  =  DPST  (121  -  CX  13,  MCI 

IF  IZVSB1  204,  210.  210 


204  GO  TO  1206,  2081,  KBASE 


ADJUST  DPST 
FOR  LEAVING 


RADIUS 

CLOUD 


AND 


KBASE  =  2 
MD  x  MC  -  1 
EXTM  x  IZLST 
HRDS  »  CX  lb, 


■  Cx  13,  MD11  /  lex  16.  MD I  -  UP  ♦  UNI 
MD)  ♦  EXTM  *  CX  [8,  MD 1 
DPST [5 ) ■  HRDS-EXPl  *1 . 61-SORT l CX 17. MD 1 /B I GVEL  11 
ADJ  ST  * (CX 1 5. MCx 1  /DPST 15 ) 1 **2 
DPST  111)  «  DPST  UIJ  *  ADJST 
DPST(4)»CXI1,MDUEXTM 
DPST 1 12 J «  7LST  *  (UP-DN1*EXTM 

GO  TO  1208,  2331,  JBASE 


COMPUTE  BELOW-CLOUD  LIFT 
AND  FALL  SPEEDS 


UP  s  CX  16,  MCI  ♦  ZVSB  *  DPX  12.  MC) 
CALL  TRPL  I 

L  DPST  (12),  NPVA,  ALT,  PV,  DNJ 
GO  TO  212 


210 


UP  *  CX  (6,  MCI  ♦  ZVSB 
CALL  TRPL ( DPST l 4 ) ,  MCX, 


*  DPX  ll»  MCI 
TlMCX,  PVI, 


COMPUTE  INSIDE-CLOUD  LIFT 
AND  FALL  SPEEDS 


212 


ZNXT  «  DPST  (12)  ♦ 
IF  (ZNXT  -  ZBRSTM) 


CX  (2.  MCI  *  (UP 
220.  220.  230 


DM 

COt-PUTE 
-  ON) 


NEXT  DPST  ALTITUDE 


220  EXTM  »  (ZBRSTM-  DPST 1 12 ) 1 / C UP  -  DN) 


COMPUTE  DPST  TIME 
OF  ARRIVAL  ON  FALLOUT  FIELD 


RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
ACT  I V I TRSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 
RSXP 


99 

100 

101 

102. 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 


U5 


DPST  |4)  •  DPST  l 4 )  ♦  EXTM 

RSXP 

159 

OPST  (12)  »  2BPSTH 

RSXP 

160 

JBASE  •  2 

RSXP 

161 

MD  •  HC 

RSXP 

162 

QO  TOI1207.  233),  KBASE 

RSXP 

163 

230  OPST  (4)  ■  DPST  (41  *  CX  (2,  MCI 

RSXP 

164 

2LST»DPST(121 

( 

RSXP 

165 

DPST  (12)  «  ZNXT 

RSXP 

166 

238  CONTINUE 

RSXP 

167 

ARE  WAFERS  TO  BE  PRINTED.  YES  TO  235 

RSXP 

160 

233  00  TO  (240,  2351,  KRX 

RSXP 

169 

235  WltlTEiKTR,777) 

RSXP 

170 

1  (OPST  (I),  I  *  3,  12) 

RSXP 

171 

STORE 

DPST  FOR  TRANSPORT 

RSXP 

172 

240  XR>BZ2 

RSXP 

173 

YR«8Z2 

RSXP 

174 

!F(DPST(4):LT.CX(1,1J1  DPST(4J«CX(1,11 

RSXP 

175 

5060  RADIUS»DPST(5J 

RSXP 

176 

RAQ2*RAD I US**2 

RSXP 

177 

5010  IF (RAD2-2.0*8Z2**2 15020, 1004, 1004 

RSXP 

170 

5020  60  TO(5022,5021)«KRX 

RSXP 

1/9 

5021  WRITE (KTR, 8001  DPSTJ51 ,DPST(6  ),DPST(12), 

RSXP 

180 

1DPST(4),DPST(11) 

RSXP 

101 

5022  l0DD>t.0DD+l 

RSXP 

102 

GDPST (6, LORO  1 aOPST ( 12 ) 

RSXP 

183 

GOPST (4»L00D1»DPST (  6) 

RSXP 

184 

6UPST(3,L0DD)aDPST(  4) 

RSXP 

105 

GDPST (5, LODD J« DPST (11 1* (RADIUS /B2  1**2  *3. 

14159 

RSXP 

106 

GOPST ( 1 ,LODD J  «0 , 

RSXP 

187 

GOPST (2, LODD 1 »0 . 

RSXP 

180 

GO  TO  5030 

RSXP 

189 

1003  IF ( t XR)**2* I YR ) **2-RAD2)10Ol ,1001,1002 

RSXP 

190 

COMPUTE  CORRECTED  MASS  PER  UNIT  AREA  (DPST 1 11) I 

RSXP 

191 

1004  KC>0 

RSXP 

192 

EX»BZ2 

RSXP 

193 

EV«022 

RSXP 

194 

1011  KC»KC*4 

RSXP 

195 

SX>EX*8Z 

RSXP 

196 

1013  IF [(EX)**2*IEY)**2-RAD2) 1011, 1011, 1012 

RSXP 

197 

1012  EY*EY*BZ 

RSXP 

198 

EX«8Z2 

RSXP 

199 

(F (EY-RADIUS 11013,1013. 1014 

RSXP 

200 

1014  DPSTf 11 )»DPST(11)*13.14159*RADI(S**2J /(FLOAT (KC) *82**2 J 

RSXP 

201 

1001  lodd*lodd«i 

RSXP 

202 

LL«L0DD*3 

RSXP 

203 

DO  1050  J«LODO.LL 

RSXP 

204 

GOPST (6«J)*DP$T (12) 

RSXP 

205 

CDPSTI4,J)»DPST(A) 

RSXP 

206 

GDPST ( 3, J J  «DPST ( 4 ) 

RSXP 

207 

1050  G0PSTI5,J)«DPST(11] 

RSXP 

200 

6DPST(1,LOOD1«XR 

RSXP 

209 

GDPSTI2,L0DD)*YR 

RSXP 

210 

lodd*lodd*i 

RSXP 

211 

GDPST ( 1 , LODD I »XR 

RSXP 

212 

GDPST(2,L0DD)»-YR 

RSXP 

213 

lodd»lodo*i 

RSXP 

214 

GDPST(1,L0DD)«-XR 

RSXP 

215 

GDPST (2, LODD )»-YR 

RSXP 

216 

LODD«lODD*l 

RSXP 

217 

GOPST (1,L HOD )»*XR 

RSXP 

216 

116 


GDPST (2.L0DD J«YR  RSXP  219 

5030  IF  CLOUD-  97)1100,1010.1010  RSXP  220 

1100  XR*XR*BZ  RSXP  221 

GO  TO  1003  RSXP  222 

1002  YR«YR*BZ  RSXr  223 

XR*BZ2  RSXP  224 

IF(YR-RADIUS11003. 1003, 258  RSXP  225 

1010  WRITE! IRlSElLODD  RSXP  226 

WRITEURISEHGDPST (1 ,JJ .GDPST (2 »J) .GDPST ( 6.  J  5 .GDPST 1 3, J) »  RSXP  227 

1GDPST(4,J1,GDPST(5,J1.J»1.L0DD1  RSXP  22S 

LODD*0  RSXP  229 

CJ  TO  1100  RSXP  230 

258  CONTINUE  RSXP  231 

278  CONTINUE  RSXP  232 

1030  WRITE! IRISF JLOOD  RSXP  233 

WRITE (IRISE) (GDPST 1 1. J 1. GDPST 1 2. J I. GDPST 1 6. J) .GDPST 1 3. J).  RSXP  234 

lGDPST(4,JJ,GDPSTt5. J), J«l,LODD)  RSXP  235 

LODDsO  RSXP  236 

WRITE! IRI SE ) LODG  RSXP  237 

END  FILE  IRISE  RSXP  238 

REWIND  IRISE  RSXP  239 

RETURN  RSXP  240 

END  RSXP  241 

SIRFTC  SCTNX  LIST, DECK, M94/2  SCTN  0 

SUBROUTINE  SCTN  I  SCTN  1 

1  CX,  DPST,  DPSTK.  DPSTZ.  DPX,  KDI ,  KDPST ,  NCX,  ZBRSTZ)  SCTN  2 

C  SCTN  3 

C  *•*«****.***•»••»•*»*•.»*•»***•*•••••»••*•*••*»«*•**••*•*«•••*«•••***• SCTN  4 

C  SCTN  5 

C  COMPUTES  -  SCTN  6 

C  11  NUMBER  OF  EQUAL  HEIGHT  DEPOSIT  INCREMENTS  PER  P.S.C.  SCTN  7 

C  21  INITIAL  T I ME-S°ACfc  POSITIONS  OF  DEPOSIT  INCREMENTS  SCTN  8 

C  3 J  VERTICAL  EXPANSION  RATES  USED  PER  CLOUD  LIFT  TIME  INTERVAL  SCTN  9 

C  41  TABULATES  PER  TIME  INTERVAL  CLOUD  RISE  AND  EXPANSION  VAR  I ABLESSCTN  10 

C  TO  BF  USED  TO  LIFT  DEPOSIT  INCREMENTS  SCTN  11 

C  SCTN  12 

C  .««*•****•**. •***•#****.****•«.•»**•». ••«•*•*»*•••••«••»•***•*»***»»•» SCTN  13 

C  SCTN  14 

DIMENSION  SCTN  15 

1  CX  (10,  901,  DPX  13.  90  J »  DPST  (12J,  DPSTZ  13)  SCTN  16 

C  SCTN  17 

C  ..ft***...**.*.*.*.*****. *****•***••»•«**»•*•••*»*••*•***•*»*»•**•*•*•» SCTN  18 

C  **•»•**. ••»*•**••••**•»»***••••••**•»•*»••••»»•*•**•»*******»•*••**•** SCTN  19 

C  SCTN  20 

DO  002  KA  «  1,  90  SCTN  21 

DO  002  KB  «  1.  3  SCTN  22 

002  DPX  (KB#  KA)  •  0.0  SCTN  23 

DO  004  KC  *  1,  12  SCTN  24 

004  DPST  (KC)  «  0,0  SCTN  25 

IF  (KDN  006.  006.  005  SCTN  26 

005  KDPST  «  KDI  SCTN  27 

DPSTK  *  KDPST  SCTN  28 

GO  TO  007  SCTN  29 

006  CALL  DVD  C  SCTN  30 

1  CX,  DPSTK,  KDPST,  MCX)  SCTN  31 

C  COMPUTE  DPST  INITIAL  POSITIONSSCTN  32 

C  INITIAL  THICKNESS  SCTN  33 

007  DPSTZ  111  *  (CX ( 4 ,  11  •  CX  (3.1)1  /  DPSTK  SCTN  34 

C  INITIAL  DPST  BASE  SCTN  35 

DPSTZ  (21  *  CX ( 3 ,  15  *  0,5  •  DPSTZ  (11  SCTN  36 

m 


00  080  KD  •  1,  Hex 

If  tCX  (7.  KD J  •  CX  (6,  KDJJ  096.  056.  068 
096  Of X  (1.  KD )  •  0.0 
80  TO  070 

060  BOX  It.  KD I  a  JCx  17,  KD J  -  CX  U,  KD M  / 

1  ICX  14,  KD1  -  CX  (3,  KOI) 

678  If  (CX  (6,  KD] 1  072.  072,  074 
072  OPX  12.  KD)  a  0.0 
GO  TO  080 
C 

C  PATCH  TO  AVOID  HANG  UP  BY  DIVISION  BY  ZERO 
C 

74  B6NOMacX(3.KD]-ZBRSTZ/3.2fl083 
If  tDEN0H175.72.75 
79  DPX(2,KD]aCXt6.KDI/DEN0M 
080  CONTINUE 
RETURN 
END 

SIBfTC  SYSX  LIST. DECK. M94/2 
fUNCTlON  SYSTEM  { 

1  J.  NEC,  Y,  Cfl 

C 


SYSTEM  FOR  CLOUDRISE  ♦  PARTICLE  GENERATION 


DIMENSION 

1  CF  140.  40),  Y  (40) 

C 

C  «***•»******•*****•#*•**«**»»,■» *••••**•***(>*•••••••• 

c 

CREATE  8  0.0 

DSTROY  »  0.0 
CREAT  »  0.0 
)F(J-1)  99,  2,  1 

001  CREATE  •  V  (J  *  il  *  CF  IJ  ■  l,  j  .  j)  *  t  (J  • 
I F I J — 2  1  2,  2,  3 

003  CREATE  a  CREATE  ♦  0,75  *  Y  ( J  -  l )  *  CF  I J  -  1, 
I F ( Y I J 1 J  99 ,  99,  6 
6  JH  «  J-2 

DO  4  K  •  1,  JM 

If  I Y (K )  ]  4,  4,  40 

40  CHEAT  ■  CREAT  ♦  CF(K, J 1  * Y J K J *2 . • • ( K- J 1 

4  CONTINUE 

CREATE  a  CREATE  ♦  CREAT  * Y  f  j ) 

2  IFIYIJIJ  99,  99,  7 

7  JM*NAX0 ( 1 «  J*1 ] 

DO  5  K  «  JM  ,  NEQ 
If  I Y ( K  )  1  5,  5,  50 

50  DSTROY  a  DSTROY  *  CF[J,K)*yIKJ 

5  CONTINUE 

DSTROY  «  V  I J  )  *DS?RQY 

oe  SYSTEM  a  CREATE  -  DSTROY 

*  '  !  <|  % 

SI8FTC  THPX  UST.8ECK.M94/2 

SUBROUTINE  YRRt  l 
l  ARS ,  NPR ,  PAR*,  PAtiQ ,  VRfii 


SCTN 

SCTN 

SCTN 

SCTN 

SCTN 

SCTN 

SCTN 

SCTN 

SCTN 

SCTN 

SCTN 

SCTN 

SCTN 

SCTN 

SCTN 

SCTN 

SCTN 

SCTN 

SYSX 

SYSX 

SYSX 

SYSX 

»**ft***«»**********SYSX 

SYSX 

SYSX 

SYSX 

c  vt«X 
SYSX 
SYSX 
SYSX 

•***•**••«•*•»•», „»SYSX 
SYSX 
SYSX 
SYSX 
SYSX 
SYSX 

It  *  0.5  SY'iX 

c;  ¥«j  5t 

J  -  21  •  Y  |J  -  2 ) SYSX 
SYSX 
SYSX 
SYSX 
SYSX 
SYSX 
SYSX 
SYSX 
SYSX 
SYSX 
SYSX 
SYSX 
SYSX 
SYSX 
SVSX 
S'  SX 
SYbX 
SYSX 
TfilJX 
T8RX 
TRRx 


C  TRPX  3 

c  ..*tM..*.*......#....*....******«***.**on**#»«»****»»*o*******M*.TRP)(  4 

c  trpx  $ 

C  THPL  USES  LINEAR  INTERPOLATION  TO  LOCATE  POSITION  OF  ARG  WITHIN  TRPX  6 

C  THE  ONE-DIMENSIONAL  ARRAY  PARA  AND  COMPUTES  FOR  THE  CORRESPONDING  TRPX  7 

C  POSITION  IN  THE  ONE-DIMENSIONAL  ARRAY  PARB.  VRB.  NPR  IS  THE  TRPX  8 

C  DIMENSION  OF  PARA  AND  PARB  (WHOSE  ELEMENTS  CORRESPOND  ONE  TO  ONE). TRPX  9 


C  IF  ARG  IS  OUTSIDE  THE  TABULATED  VALUES  Cf 

’  PARA, 

VRB  IS  SELECTED 

TRPX 

10 

C  FROM  THE  CORRESPONDING  END  OF  PARB. 

TRPX 

11 

C  PARA  IS  ORDERED  FROM  LEAST  (PARA  ID)  TO 

GREATEST  IPARA  (NPR)J 

TRPX 

12 

C 

TRPX 

13 

**TRPX 

14 

C 

TRPX 

15 

DIMENSION 

TRPX 

16 

1  PARA  (I),  r  ARB  HI 

TRPX 

17 

C 

TRPX 

lft 

>****** 

**TRPX 

19 

»*TRPX 

20 

C 

TRPX 

21 

020  IF  [ARG  -  PARA  III!  022.  022.  040 

TRPX 

22 

022  “B  *  1 

TRPX 

23 

024  VRB  a  PARB  [Mb] 

TRPX 

24 

026  RETURN 

TRPX 

25 

040  DO  054  MA  =2.  NPR 

TRPX 

26 

IF  (ARG  -  PARA  IMAIJ  048.  044.  054 

TRPX 

27 

044  MB  =  ha 

TRPX 

28 

GO  TO  024 

TRPX 

29 

048  VRB  *  (ARG  -  PAHA  (MA  -  III  *  IPARB  IMA) 

-  PARB 

(ma  -  in  / 

TRPX 

30 

1  IPARA  [MA]  -  PARA  (MA  -  111  ♦  PARB  IMA 

-  1! 

TRPX 

31 

GO  TO  026 

TRPX 

32 

054  CONTINUE 

TRPX 

33 

MB  =  NPR 

TRPX 

34 

GO  TO  024 

TRPX 

35 

END 

TRPX 

36 

SIBFTC  UPVC  L I  ST , DfcCK  «  M94/2 

UPVC 

0 

SUBROUTINE  UPVCb  [ 

UPVC 

1 

1  DNSTY,  KR,  NEQ,  =>VOL,  RFD.  RFh ,  RM,  S, 

saltd. 

UPVC 

2 

?.  saltm.  szro.  t,  TR,  TSALT.  V,  VZRQ,  X, 

Y  1 

UPVC 

3 

c 

UPVC 

4 

******  1 

r*UPVC 

5 

c 

UPVC 

6 

(  UPVCS  TESTS  AND,  IF  NECESSARY,  UPDATES  PARTICLE 

VOLUME 

UPVC 

7 

c  ffidm  the  condensation  of  salt 

UPVC 

8 

c 

UPVC 

9 

>*UPVC 

10 

c 

UPVC 

11 

DIMENSION 

UPVC 

12 

1  Y  (50) 

UPVC 

13 

C 

UPVC 

14 

'•UPVC 

15 

IttvRVwRBSlIRVUlwvwtl 

'•UPVC 

1  6 

C 

UPVC 

17 

724  IF(TR-T)  725,  726,  726 

UPVC 

18 

726  JFIS]  728.  728 »  '29 

UPVC 

15 

728  i  «  (RFm  *  sAi TN*.L J » t 1 ,*x 1/ IRh-RFHI 

UPVC 

20 

729  CONTINUE 

UPVC 

21 

GO  TO  (  721,  725!  .  KS 

UPVC 

22 

721  IFlTSALT-n  725,  722,  722 

upvc 

23 

722  S  s  S*'RFn*SALT“j/'nFK-.i*SAl.TH) 

UPVC 

24 

DNS T Y  «  RFU-SALrD*[RFH*SALTM)/!RFM*SALTD*RFD*SALTM| 

UPVC 

25 

U9 


PV0L  «  PV01*{RFM*SALTD*RFD*SALTH)/(RFM*SALTD*.1*RFD*$ALTH) 

UPVC 

26 

KS  ■ 

2 

UPVC 

27 

.  Ft SZ«0) 

730,  730,  725 

UPVC 

26 

736 

CONTI  HUE 

UPVC 

29 

VZRO  ■  VZRO/V 

UPVC 

30 

DO  727  J  •  1,  NEO 

UPVC 

31 

727 

- 

YtJ!  «  Y!J1«VZR0 

UPVC 

32 

725 

RETURN 

UPVC 

33 

END 

UPVC 

34 

S1BFTC  LNK3 

LIST, DECK, NP4/2 

SUBROUTINE  LINKS 

RETURN 

END 

RETURN 

SI0FTC  LNM 

LIST, DECK, H94/2 

LNK4 

0 

C  ***' 

*LNK4 

1 

C  ***' 

*LNK  4 

2 

c 

LNK4 

3 

c 

CLOUD  RISE  -  TRANSPORT  INTERFACE  NODULE  GLOSSARY 

LNK4 

4 

c 

29  MARCH 

1967 

LNK4 

5 

c 

LNK4 

6 

c 

All) 

HASS  FRACTION  OF  THE  TOTAL  ClOUD  SOIL  BURDEN  IN  THE 

LNK4 

7 

c 

• 

I  TH  PARTICLE  SIZE  CLASS 

LNK4 

8 

c 

ATENPII) 

DYNAMIC  VISCOSITY  OF  AIR  AT  11*11*200  METERS  ABOVE  MSL 

LNK4 

9 

c 

IN  KILOGRAMS  PER  METER-SECOND 

LNM 

10 

c 

8 

LINEAR  MAGNIFICATION  FACTOR  FOR  LARGE  STRATUM  CELLS 

LNK4 

11 

r 

as 

hagnification  factor  for  cells  of  the  stem  isee  bi 

LNK4 

12 

c 

8S3 

BS*  *3 

LNK4 

13 

c 

02 

EDGE  length  (METERS)  OF  A  BASIC  SQUARE  BASED  CLOUD  CELLLNK4 

14 

c 

83 

8**3 

LNK4 

15 

c 

COL 

number  of  columns  in  cross  SECTION 

LNK4 

16 

c 

[BUFFERS  ARE  ADDED  BY  THE  PROGRAM) 

LNM 

17 

c 

COLS 

TEMPORARY  STORAGE  FOR  COL  OF  THE  STEM 

lkM 

18 

c 

COLX 

NUMBER  OF  COLUMNS  IN  POSITIVE  X  AND  Y  DIRECTIONS  IN  THELNK4 

19 

c 

3-d  cloud  and  stem  first  ouadrant 

LNM 

£0 

c 

[BUFFERS  ARE  added  BY  THE  PROGRAM] 

LNK4 

21 

c 

CR1DIJ] 

ClOUD  RISE  IDENTIFICATION  CARD,  J»l,l2 

LNM 

22 

c 

DEL 

SMOOTHING  INCREMENT  TO  BE  ADDED  TO  THE  3D  MASS  FRACT I 0NLNK4 

23 

c 

ARRAY  FNC  )  FOR  THOSE  CELLS  ADJOINING  THE  ONE  CONTAINLNK4 

24 

c 

ING  THE  CENTER  OF  A  ANNULAR  CELL 

LNM 

25 

c 

DELM 

MASS  TO  BE  ADDED  TO  EACH  CELL  THAT  AN  INPUT  PARTICLE  0FLNK4 

26 

c 

SIZE  [SIZE  IS  FOUND  IN  FOR  THE  CROSS  SECTION 

LNM 

27 

c 

DELPS 

INCREMENT  FOR  THE  MAGNIFIED  NUMBER  OF  SIZE  RANGES 

INK  4 

26 

r> 

MITHIN  THE  INPUT  SIZE  RANGE 

LNK4 

29 

c 

DELZ 

VERTICAL  THICKNESS  OF  A  SMALL  CELL  IN  THE  CAP/STEM 

LNK4 

30 

c 

NEIGHBORS  OF  THE  CELL  INTO  WHICH  DELM  IS  PUT 

LNM 

31 

c 

OENT 

BCD  NAME  OF  TAPE  FROM  CLOUD  RISE  PROGRAM,  DENT  a  I H J SE 

LNK4 

32 

c 

DETIDIJ) 

DETONATION  IDENTIFICATION  CARD.  J«l,l2 

LNK4 

33 

c 

DM 

MASS  INCREMENT  TO  BE  ADDED  TL  EACH  OF  THE  NEAREST 

LNM 

34 

c 

dpxiii 

FACTOR  FOR  UPWARD  STEM  DRIFT  ,'ATE  FOR  THE  I -TH  CLOUD 

LNK4 

35 

c 

RISE  TABLE  ENTRY 

LNM 

36 

r 

DX 

HORIZONTAL  GRID  INTERVAL  FOR  The  3-CLOUD 

LNM 

37 

c 

DXS 

HORIZONTAL  GRID  INTERVAL  FOR  THE  3-D  CLOUD  STEM 

INK  4 

38 

c 

DZ 

vertical  grid  interval  for  tme  cloud  iboth  cross 

LNM 

39 

c 

SECTION  AwD  3-D) 

LNM 

40 

c 

FNASm 

FALLOOf  MASS  PER  UNIT  AREA  OF  CLOUD  CELL  BOTTOM 

LNM 

<1 

c 

FOR  THE  I  TH  CELL  IKG/M**21 

LNM 

42 

c 

FN(lfJ.K)  3*1)  CLoJD  AND  STEM  NASS  FRACTION  ARRAY.  J  .S  FOR  THE 

XLNM 

43 

c 

DIRECTION.  K  |S  FOR  THE  T  DIRECTION.  1  IDENTIFIES  0NLNM 

44 

c 

Or  3  STRATUM  ARRAYS  OF  WHICH  THE  ONE  INDEXED  BY  il  CON 

-LNM 

45 

120 


> 


c 

TAINS  FINAL  RESULTS  AND  the  OTHER  TWO  (INDEXED  BY  (2  ANLNM 

46 

c 

13]  ARE  CYCLED  INTO  FINAL  RESULTS  POSITION  AS  THE 

LNK4 

47 

c 

program  steps  down  through  the  cloud t or  ste-.' 

LNM 

48 

c 

(SEE  BELOW  STATEMENT  230] 

LNK4 

49 

c 

rv 

STILL  AIR  PARTICLE  SETTLING  RATE 

LNK4 

50 

c 

FW 

FISSION  YIELD  IKTJ 

LNM 

51 

c 

H 

ONE  HALF  THE  MAXIMUM  VERTICAL  THICKNESS  OF  THE  CAP 

LNM 

52 

c 

MOB 

HEIGHT  OF  BURST  (FEET!  ABOVE  GROUND  ZERO 

LNM 

53 

c 

!8tlF 

DIMENSIONED  EXTENT  OF  OUTPUT  PARTICLE  DATA  ARRAYS 

LNM 

54 

c 

!C(J] 

CONTROL  INDICES.  J=1,18 

LNM 

55 

c 

1 C  f  3  ]  »0  DO  NOT  PRINT  LISTS  OF  PARTICLE  OUTPUTS 

LNM 

56 

c 

I C (3 i *1  PRINT  COMPLETE  LISTS  OF  PARTICLE  OUTPUTSFORLNM 

57 

c 

BOTH  THE  AXIALLY  SYMMETRIC  AND  WIND 

LNK4 

58 

c 

DISTORTED  CLOUDS 

LNK4 

59 

c 

II 

STEM  OR  CLOUD  INDICATOR.  1«STEM,  0«CLOUD 

LNM 

60 

c 

iparin 

NUMBER  OF  TAPE  ON  WHICH  THE  PARTICLE  DATA  FOR  AN 

LNM 

61 

c 

AXIALLY  SYMMETRIC  CLOUD  AND  STEM  ARE  WRITTEN  IN  TRANS¬ 

LNM 

62 

c 

PORTABLE  FORM 

LNM 

63 

c 

ipsn  j 

PARTICLE  SIZE  RANGE  INDEX  OF  THE  I-Th  INPUT  PARTICLE 

LNM 

64 

c 

IKING 

COLUMN  INDEX  IN  CROSS  SECTION  AND  3D  CLOUD-.  AND  STEM 

LNM 

65 

c 

quadrant 

LNK4 

66 

c 

i  R I SE 

logical  NUMBER  AND  IDENTIFICATION  NAME  OF  THE  CLOUD 

LNM 

67 

c 

RISE  MODULE  OUTPUT  TAPE 

LNM 

68 

c 

IROW 

INDEX  ON  STRATA  WITHIN  CROSS  SECTION  (AND  LARGE  CELLS 

LNK4 

69 

c 

OF  THE  3D  CLOUD  AND  STEM! 

LNM 

70 

c 

IRROR 

NUMBER  OF  STATEMENT  NEAR  WHERE  AN  ERROR  WAS  DISCOVERED 

LNM 

71 

c 

ISIN 

NUMBER  OF  SYSTEM  INPUT  TAPE 

LNM 

72 

c 

IS1ZE 

INDEX  ON  PARTICLE  SIZE  CLASS 

LNM 

73 

c 

ISOUT 

NUMBER  OF  SYSTEM  OUTPUT  TAPE 

LNM 

74 

c 

U 

INDEX  OF  HIGHEST  OF  THE  THR[:E  STRATA  REPRESENTED  IN  FN 

LNM 

75 

c 

(SEE  GLOSSARY  DISCUSSION  OF  FN) 

LNM 

76 

c 

12 

INDEX  OF  MIDDLE  STRATUM  IN  FN 

LNM 

77 

c 

(SEE  GLOSSARY  CISCUSStrtN  OF  FNt 

LNM 

78 

c 

u 

INDEX  OF  BOTTOM  STRATUM  JN  FN 

LNM 

79 

c 

I  SEE  GLOSSARY  DISCUSSION  OF  FN] 

LNM 

80 

c 

JJ 

INDEX  FOR  PRINT  OUT  OF  LAST  2  STRATA  OF  CLOUD/STEM 

LNM 

81 

c 

JPARTN 

LIKE  IPAR’N  BUT  FOR  PARTICLE  POSITIONS  ADJUSTED  FOR 

LNM 

82 

c 

TRANSPORT  BY  winds  DURING  CLOUD  RISE 

LNM 

83 

c 

MHODO 

NHODO- 1 

LNK4 

84 

c 

mposit 

NPOS I T ♦ 1 

LNM 

85 

c 

MPS 

! NPUT  PARAMETER  To  SPECIFY  PARTICLE  SIZr  CLASS 

LNM 

86 

c 

MAGNIF1CA i ION.  THE  PARTICLE  SIZE  CLASS  EXPANSION 

LNM 

87 

c 

FACTOR  s  MPS/INPS-2] 

LNM 

88 

c 

MX 

SAME  AS  NX  BUT  FOR  CROSS-SECTION 

LNM 

89 

c 

NAT 

NUMBER  OF  ALTITUDE  STRATA  IN  THE  ATMOSPHERE  TABLES, 

LNM 

90 

c 

NAT.256 

LNM 

91 

c 

nhodo 

NUMBER  OF  ELEMENTS  IN  THE  WIND  HODQGRAPH 

LNM 

92 

c 

M 

N0MrER  OF  SMALL  CELl.S  IN  EACH  DIRECTION  OF  A  LARGE  CELLLNM 

93 

o 

NNX 

index  for  large  cells  being  processed  in  x-dirsctson 

LNM 

94 

c 

NNX*1 , NX 

LNM 

95 

c 

NNY 

INDEX  FOR  LARGE  CELLS  BEING  PROCESSED  in  '‘--DIRECTION 

INK  4 

96 

r* 

NNYal , NY 

LNM 

9  7 

c 

NP 

JUMBER  OF  PARTICLE  DESCRIPTIONS  INPUT  FROM  THE  CLOUD 

LNM 

9o 

c 

RISE  MODULE 

LNM 

99 

c 

NPOSIT 

NUMBER  OF  TIM  ENTRIES  IN  THE  CLOUD  RISE  H1SIORY  TA8LESLNK4 

100 

c 

CX  (SEE  DaSA-.BcO-I I I I 

LNM 

101 

c 

-  S 

NUMBER  OF  PART  ~LE  SIZE  RANGES  REPRESENTED  IN  THE  SET 

LNM 

102 

c 

OF  NP  I  NPilT  PAR,  OLE  DESCRIPTIONS 

LNM 

103 

c 

NS  I  Z 

magnification  factor  for  each  input  size  range 

LNM 

104 

c 

nsp 

index  to  .wdicate  an  option  a  $r  option  b  cloud.  pothlnm 

105 

121 
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Sf 


NX 

N2 
ODX 
QDXS 
PACT  I  I  1 

PNUM  ( !  ) 
PROGRM 
PSI  J) 

PSEIDt JJ 

PSIZEl 1 1 

R 

RAOHAX 
RHOC  1  J 

ROPART 

ROM 


SOWS 

RS 

RV 

RX 

SIGMA 

SlZ 

SLOTMP 

ssam 

svm 

T 

Tcm 

TCUR 

1G7 

THET 

THETA 


CLOUDS  ARE  AXIALLY  SYMMETRIC  [BEFORE  CORRECTION  FOR  LNK4 

wind  dr i ft i t  they  difbr  in  that  at  any  altitude  levellnm 

(A]  ANY  HORIZONTAL  PLANE  THROUGH  AN  OPTION  A  CLOUD  HAS  LNM 

a  uniform  particle  content  between  the  cloud  lnm 

BOUNDRIES.  A  COMPLETE  THREE-DIMENSIONAL  PARTICLE  LNM 
INPUT  IS  PROVIDED  BY  THE  CLOUD  RISE  MODULE.  LNM 

IB]  FOR  AN  OPTION  B  CLOUD  PARTICLE  INPUTS  ARE  FOR  A  LNM 
SINGLE  PLANE  THAT  CONTAINS  Tut  CLOUD  SYMMETRY  AXIS, LNM 

particle  content  can  vary  in  the  horizontal  lnm 

direction,  a  three-dimensional  distribution  of 

PARTICLES  MUST  BE  GENERATED  BY  THIS  PROGRAM  FROM 
THE  TWO  01M6NS10NAL  DISTRIBUTION  THAT  IS  INPUT. 


NSP«i 

NSP«0 


FOR 

FOR 


OPTION 

OPTION 


IN 


TH 


TAPES 


NUMBER  OF  GRID  SQUARES  IN  THE  *X  AND  +Y  DIRECTIONS 
THE  3-D  CLOUD  AND  STEM  INCLUDING  BORDERS 
NUMBER  OF  STRATA  IN  THE  3-D  CLOUD  AND  STEH  AND  CROSS 
COLUMN  INTERVAL.  FOR  CROSS  SECTION 
COLUMN  INTERVAL  FOR  CROSS  SECTION  OF  STEM  {SEE  ODX) 

LOW  BOUNDARY  PARTICLE  DIAMETER  [MICRONS)  OF  THE  I 
PARTICLE  SIZE  CLASS 

NUMBER  OF  INPUT  PARTICLES  IN  1 -TH  SIZF  RANGE 
BCU  NAME  OF  PROGRAM 

CENTRAL  PARTICLE  DIAMETER  IHJCRONSI  OF  THE  J  TH 
PARTICLE  SIZE  CLASS 

RUN  IDENTIFICATION  FOR  THE  CLOUD  RISE  -  TRANSPORT 
INTERFACE  MODULE.  Jtl.12 

SIZE  OF  PARTICLES  IN  CELL  1  WRITEN  ON  THE  OUTPUT 
MAKING  UP  FMAStlJ,  IN  MICRONS 
MAXIXPUIJ  FOR  CLOUD  PARTICLES 
maximum  cloud  radius  ( meters i 

ATMOSPHERIC  DENSITY  AT  11-11*200  METERS  ABOVE  MSL  IN 
KILOGRAMS  PER  CUBIC  METER 

SOIL  (PARTICLE!  DENSITY  IN  KILOGRAMS  PER  CUBIC  METER 
NUMBER  OF  STRATA  THAT  THE  USER  WISHES  THE  VOLUMt  CON 

tmwing  input  particles  to  be  divided  into. 

(buffers  are  added  by  the  program) 

TEMPORARY  cTORACE  for  row  of  the  stem 

MAAlXPU’i!  f  UR  <7  CM  PaFU  Lie  S 

UPWARD  COMPONENT  of  VELOCITY  OF  A  STEM  PARTICLE 
RESULTING  FROM  UPWARD  STEM  DRIFT 

RADIAL  COORDINATE  OF  THE  ANNULAR  CELLS  IN  RING  [RING 

base  iu  log  of  the  lognormal  particle  s;ze  distributionlnm 
geometric  standard  deviation  lnm 

NS ! z  in  floating  point 

SOLIDIFICATION  TEMPERATURE  (DEG,  K )  OF  SOIL 
MASS  (KG)  OF  THE  CLOUD  SOIL  BURDEN 

RATIO  OF  SURFACE  FRACTION  TO  V&LUHE  FRACTION  OF  CLOUD 
PARTICLE  8URDEN  IN  THE  I  TH  PARTICLE  SIZE  CLASS 
IRING  IN  FLOATING  POINT 

TIHEtRELATIVE  TO  DETONATION  OFJTHE  I - TH  CLOUD  RISE 
TABLE  E'‘TRY 

particle  i’he  coordinate  curing  a  wind  drift 

ADJUSTMENT  CALCULATION  INCREMENT 

1 (ME  OF  detonation 


LNM 
LNK4 
LNM 
LNK4 
LHK4 
LNK4 
LNK4 
LNM 
LNK4 
SELNK4 
LNK4 
LNM 
LNM 
LNK4 
LNK4 
LNM 
LNK4 
LNK4 
LNK4 
LNM 
LNM 
LNM 
LNM 
LNM 
LNK4 
LNM 
LNM 
LNM 
LNK  4 
LNK4 
LNK  4 
LNM 
LNK  4 
LNM 
LNK  4 


LNM 
LNM 
LNK4 
LNK4 
LNK4 
LNM 
LNK  4 
LNM 
LNM 
LNK  4 
LNK  4 


•VC.'IAR  COORDINATE  INCREMENT  BETWEEN  SUCCESSIVE  ANNUL  ARLNK4 

cell  centers.  angular  extent  of  an  annular  CELL  lnm 
angular  COORDINATE  (RADIANS!  Of  CENTER  OF  CURRENT  LNM 


1C6 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 
12* 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 
133 

139 

140 

141 

142 

143 

144 
1,45 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 


t 


i 

f 


122 
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TMSD 

TOP 

TOPS 

TPtn 

TW 

V 

vbiij 

vein 

VI 


vTm 
vxn  j 

VYfl) 

X 

XGZ 

XN £  I . JJ 


XPUJ 
XPARN  1 
XPR 
XPS 


XTEH=> 

yx 

y 

yGz 

YPaR[ I  ) 
yTEMP 
YY 
7 

ZBt  I  ) 

Z6RSTZ 
C 

c  zem 
c 

C  ZCUR 

c 

C  Z! 

c 


ANNULAR  CELL  LNM  166 

TIMEISECJ  RELATIVE  TO  SHOT  TIME  AT  WHICH  THE  CLOUD  LNM  167 
REACHED  THE  SOIL  SOLIDIFICATION  TEMPERATURE  LNM  160 

altituds  nr  the  cloud  top  imeters  above  mslj  lnm  h« 

ALTITUDE  OF  THE  STEM  TOP  II.E.#  ALTITUDE  OF  THE  LNM  17C 

CLOUD  CAP  BOTTOM]  (METERS  ABOVE  MSU  LNM  171 

TIME  OF  DEFINITION  (SEC)  OF  THE  I  TH  CLOUD  CELL  LNM  172 

TOTAL  YIELD  (KT]  LNM  173 

GIVEN  IRING,  V  IS  THE  NUMBER  OF  ANNULAR  CELLS  IN  THE  LNM  17« 

IRING-TH  RING  LNM  175 

CLOUD  BOTTOM  VEL.  OF  THE  I-TH  CLOUD  HjSE  TABLE  ENTRY  LNM  176 

VELOCITY  ASSOCIATED  WITH  CLOUD  AT  ZCtM  AT  TC  ( 1 1 .  I«1,LNM  177 

NPOSIT  lnm  178 

NUMBER  OF  PARTS  INTO  WHICH  A  QUADRANT  OF  THE  CENTRAL  LNM  179 

ANNULAR  RING  (CROSS  SECTION  CELL)  IS  TO  BE  DIVIDED  LNM  180 

WHEN  CONVERTING  THE  CROSS  SECTION  INTO  A  3-D  CLOUD  OR  LNM  181 

STEM  LNM  182 

CLOUD  TOP  VELOCITY  OF  THE  I-TH  CLOUD  RISE  TADLE  ENTRY  LNM  183 
X  VELOCITY  OF  WIND  AT  WIND  HODOGRAPH  STRATUM  !  LNM  184 

Y  VELOCITY  OF  WIND  AT  WIND  H0D8GRAPH  STRATUM  I  LNM  105 

INITIAL  X  COORDINATE  FOR  SMALL  CELL  COORDINATE  LNM  186 

CALCULATION  LNM  187 

X  COORDINATE  OF  GROUND  ZERO  (METERS)  LNM  188 

VERTICAL  CROSS  SECTION  ARRAY  TO  CONTAIN  SMOOTHED  LNM  189 

FALLOUT  MASS  INCREMENTS  DERIVED  FROM  THE  INPUT  LNM  190 

PARTICLE  DATA  LNM  191 

HORIZONTAL  COORDINATE  t METERS!  OF  THE  I  TH  INPUT  LNM  192 

PARTICLE  RELATIVE  TO  THE  CLOUD  SYMMETRY  AXIS.  LNM  193 

X  COORDINATE  OF  CELL  I  WHITEN  ON  THE  OUTPUT  TAPES  LNM  194 

(METERS!  LNM  195 

CENTRAL  DIAMETER  (MICRONS!  OF  1 Hf  PARTICLE  SIZE  CLASS  LNM  196 
BEING  TREATED  LNM  197 

MIDPOINT  IN  MICRONS  OF  THE  SIZE  RANGE  BEING  CONSIDERED, LNK4  198 
AND  TmE  SIZE  OF  The  1ST  SIZE  RANGE  WITHIN  THAT  JNTERVALLNM  199 
WHICH  THE  INPUT  SIZE  RANGE  13  BEING  EXPANDED  TO  LNM  200 

TEMPORARY  STORAGE  OF  THE  X  COORDINATE  OF  THE  1ST  SMALL  LNK4  201 
CELL  WITHIN  EACH  LARGF  CELL  LNM  202 

X  COOPDJNATE  of  C“hf$?K  OF  CURRENT  annular  CELL,  lnm  203 

and  current  small  cell  lnm  204 

INITIAL  Y  COORDINATE  FOR  SMALL  CELL  COORDINATE  LNK4  205 

CALCULATION  LNM  206 

Y  COORDINATE  OF  GROUND  ZERO  (METERS)  LNM  207 

Y  COORDINATE  OF  CELL  I  WRITEN  ON  THF  OUTPUT  TAPES  LNM  208 

(METERS  I  LNM  209 

TEMPORARY  STORAGE  OF  THE  Y  COORDINATE  OF  THE 
CELL  WITHIN  EACH  LAPGF  CELL 

v  COORDINATE  OF  CENTER  OF  CURRENT  ANNULAR  CELL, 

and  current  small  cell 

Z  COORDINATE  OF  1HE  CENTER  OF  A  STRATUM  IN  THE  3-D 
cloud 

CLOUD  80TT0N  ALT.  OF  THE  I-TH  CLOUD  RISE  TaBLE  ENTRY 
(METtRS  ABOVE  MSLJ 

ELEVATION  of  ground  zerciread  From  tape  jrise  in 
FEET  ABOVE  MSI  -  CONVERTED  TO  METERS! 

cloud  center  alt.  of  the  i-th  cloud  rise  table  entry 
imeters  above  msu 

particle  altitude  at  the  beginning  of  a  wind  drift 
ADJUSTMENT  calculation  increment 

HFIGHt  of  the  top  BOUNDRT  OF  THE  TOP  i NUMER 1 C*LLY  1ST)  LNM  224 
STRATUM  OF  CAF/$T£M  LNM  225 


ST  SMALL  LNM  210 
LNM  211 
LNM  212 
LNM  213 
LNM  214 
LNM  215 
LNM  216 
LNM  217 
LNk*  210 
LNM  219 
LNM  220 
LNM  221 
INK 4  222 
LNK 4  223 


123 
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ZPU1  ALTITUDE  OF  !«TH  INPUT  PARTICLE.  METERS  ABOVE  MSI  LNM  226 

ZPARt I )  2  COORDINATE  OF  CELL  I  WRITER  ON  THE  OUTPUT  TAPES  LNM  227 

(METERS  ABOVE  HSU  LNK4  228 

ZTMJ  CLOUD  TOP  ALTITUDE  Of  THE  1"?H  SLOUD  RISE  TABLE  ENTRY  LNM  229 

(METERS  ABOVE  HSU  LNM  230 

ZTC-MP  TEMPORARY  STORAGE  OF  THE  2  C00R£*N*TE  QF  THE  1ST  SMALL  LNM  231 

CELL  WITHIN  EACH  LARGE  CELL  LNM  232 

ZVUJ  ALTITUDE  OF  CENTER  PLANE  OF  WIND  HJE.-GRAPH  STRATUM  I  LNM  233 

(HETERS  ABOVE  MSL1  INM  234 

ZZ  Z  COORDINATE  OF  CURRENT  SMALL  01:11  IHH4  235 

LN64  236 

**#****#•**•*•* ******************** ••»***••**•*••••• *******  j»**********lnm  237 
•  •••••*****»*****«************«*********«***«**«**.6..«****„***»****«*t{>NK4  231 

LNK4  239 

SUBROUTINE  LINK4  LNK4  240 


SUBROUTINE  LINK4 

CLOUD  RISE  •  TRANSPORT  INTERFACE  MODULE  MAIN  PROGRAM 
j:  ZUCKERMAN.  T.W.SCHWENKE#  H.G.NORMENT 
29  MARCH  1967 

COMMON  /SET1/ 


LNM  241 
LNM  242 
LNM  243 
LNM  244 
LNM  245 


1 

DIAM 

9 

FID 

.  IRISF 

9 

1EXEC 

9 

I  SIN 

9 

ISOUT 

,  Lt*K4 

246 

2 

SD 

9 

SPAR 

,  SSaM 

9 

TMC 

9 

TMP1 

$ 

TKP2 

f  LNM 

247 

3 

T2M 

• 

U 

.  VPR 

9 

W 

9 

X 

9 

Z 

»  LNM 

248 

4 

WHY 

9 

N0STR 

.  IDISIR 

9 

SPAR1 

9 

SPAR2 

9 

SPAR3 

*  LNK4 

249 

5 

SPAR4 

9 

RMJN 

,  SPAR6 

9 

SPAR7 

9 

SPARS 

9 

SPAR9 

LNM 

250 

DIMENSION  F 1 0 ( 12 ] 

DIMENSION  WHY ( 40  J 

a*********************  ft********************************************** 

THIS  PROGRAM  PREPARES  INPUT  FOP  THE  TRANSPORT  MODULE ,  IT  CREATES 
AN  AXIALLY  SYMMETRIC  PARTICLE  DATA  SET  OH  TAPE  JPARIN  AND  THEN 
CALLS  SUBROUTINE  WNOSFT  WHICH  APPLIES  V.HDS  FOR  THE  PERIOD  OF 
CLOUD  RISE  AND  PUTS  THE  RESULTING  GAT 4  IN  TMAMSPORTABLS  FORM  ONTO 
TAPE  I  Par  j  n . 

*******************'***«**4** •*•***» ******•*•***•«***•*«****««•****«« 

DIMENSION  CRIB  512  I , DET 1 D ( 12 )  ,PSE I D (121 , PS ( 200 1 ,  A  ( 200 ! « ATEMP i  260 1 » 
1RHO 1 260 )» ZB  1 90  2,10(90  I.V359C  ) , XP ( 800 1 » ZP 1 600  I . IPS ( 600 ! . I C l ii I , 
2ZVI2S01»VX(200J*VY(2001#  PNUM120  J  *  XN(  50,  50 1 ,FN I  3, 40  -  40 1  , 

32PAR(20  0),XPAR(200  ),YPAR(200  ) » PS  I Z  1 200 ! ,TP 1 20 0  I , FMAS 1 200 , . 
4PACT(200),SVC20  0I , ZT  1 90 J ,VT(90 J 


LNK4  251 
LNK4  252 
•LNM  253 
LNM  254 
LNK4  255 
LNM  256 
LNM  257 
LNM  258 
LNM  259 
LNM  260 
•LNM  261 
LNM  262 
LNM  263 
LNM  264 
LNM  265 
LNM  266 
LNM  267 
LNM  268 
•LNM  269 


9111  F0RMAT11H1///51X19H*  * 

1MENT  OF  DEF 

2  N  S  Y  S  T  E  H.//51X, 

3  *  TRANSPORT  INTERFACE 

4 

5PERAT 1 ONS  RESEARCH, INC, 
1  FORHATt// 

116X,2HFW,12X,4HSSAM, 10X 
P10X.51E13.6.1X J// 
316X,2HTW.12X.3HH06,11S, 
410X.4IE13. 6,1X1.113/// 
S10X,5HPSEID/10X,12A6// 
AlOX » 4HCR ID/10X,1«A6// 
7lOX.9HDiTin/10X,i2A6/// 
810X26HCONTROL  ARRAY  IC( 


LNM  270 

•**.*.*  *//l2X101HT  HE  D  6  P  A  R  TLNK4  271 
ENSE  FALLOUT  PREDICT!  OLNM  272 
19N«  ********  *////4lX, 39HCL0UD  RISELNK4  273 
MODULE///  LNM  274 

55X ,  UNPREPARED  BY/43X,34MTECHNICAL  OLNK4  275 
/52X,l7h8URLlN3TON,  MASS. ////I  LNM  276 

LNM  277 

,6HSLDTMP,8X,4HTMSD,10X,5HSIGMA/  LNM  278 

LNM  279 

2H8Z  12  - ,  ohROPANT ,  8X,  3MNSP/  LNK4  280 

LNK4  281 
LNM  282 
LNM  283 
LNM  264 

•J)t J»l,l8/;ax,18l5///  LNM  235 


ooo  o  oooo 


91UX22HDET0NATI0N  COORDINATES.10X.3HXGZ.13X.3HYGZ.13X.3HTGZ/  LNM 

134X.3IE13.6.3X]///]  f,»K4 

2  FORMATI10X.3HMPS#  9X . 2HV 1  * 11X , 1HH , 10X, 3HC0L.  9X.4HC0LS,  8X.3HRPW.  LNM 

1  9X#  4HR0WS,  7X.  4HCQLX»°X»  1HB/  LNM 

2  8X,  I5»4X,8!Ell. 4,1X1 t  LNM 

3  FORMAT  1 1H1 # 9X  >  29HWIND  HODOQRAPH  AT  GROUND  ZERO,  lOX»t«Nh3DO  *  15Y.LNM 

111X.22HVECT0R  ALTitUDE,  ZVIJJ.16X,  5HVXI JJ .24X.5HVYI J11  LNM 

3051  F0RMATI3(16X,Fi3.6) ]  LNM 

3052  FORMATUHQ,  9X,  6HNPS  *  15//16X.  13HPART ICLE  S 1 ZE» 16X, 1 3MHASS  LRACLNM 

IT  ION#  21X.4HPACT,  24X.9HS-V  RATIO!  LNK4 

3053  F0RMAT(4H6X,E13.6)  3  LNM 

3054  FORMAT  1 1H1 ;  9X.6HNAT  *  I5//18X ,  9HV  I SCOS I TY  ,  21X,  3HRHO »  LN.14 

3055  F0RMATI2I16X.El3.6n  LNM 

3056  FORMATtlHl,  9X»7HNPOSIT*I5//10X.5HTC(J1,13X,5HZ3|J),13X,5HZTIJ1,  l»*M 

1  13X»5HV«tJJ,l3X.5HVTI Jl 1  LKM 

3057  FORMAT 1 5 ( 5X»E13 • 6 1  I  LNM 

4  FORMAT  1 10X,5HXP( J] .9X.5HYP! Jl ,9X,5HZP| J) ,9X,5HTP[^1 ,5#!,7HPSIZIJ) ,  LNM 

17X.7HFMAS! J]/[5X,6(1X,F13,6I I )  l*M 

1009  F0RMATtlX.A6.E13. 6, 15)  LNM 

1011  FORMAT [ 12A6 I  LNM 

1012  FORMATllX.6El3.5l  LNK4 

1013  FORMAT  [  15  J  LNM 

1014  FORMAT  (1814)  LNK'# 

1015  FORMAT  l  3613*61  LNM 

1016  FORMAT!  I5.4E13. 6/4613. 6)  LNK4 

1018  FORMAT!  LNM 

1  15X,  2HXR.13X,  2HZP.12X.  3HIPS//  LNM 

217X.2I3X.E12. 51. 110]]  LNK4 

1019  F0RMATllX.2fcl3.6J  LNM 

1020  FORMAT [ / / 29H  WRONG  TAPE  REEL  ON  DRIVE  I  2, 2X, 41MPLE AGE  MOUNT  OCR*  NK4 

1RECT  Tape  AND  PRESS  START!  LNM 

3013  FORMAT!  ///  L*|K4 

1  1 G  X , 1 EHGlOCK  COUNT  *  i5//  i  LNK4 

3016  rQRMATtlX, 15,8613. 61 


DATA  DENtI.PR0QRM/6HIPAR!N,6HUNK4  / 

DATA  CHECK  /6H  IRISE/ 

INITIAL1ZF 
NCLs0 
JJ=’l 
11=0 
IS  I  ZE  =  2 
jPAR!N«in 
!  PARI N*ll 
28tlF*200 

PRINT  OOTpiiT  HEADER 
WRITE! ISOOT. 91111 

READ  mI.L  D*TA  FROM  CLOUD  RISE  TAog 
REWIND  IRISE 
99  J  READ  URJSEJDtNT 

CHECK  that  THE  CORfifiC"  CLOUD  RISE  TAPE  SIRlSCI  HAS  PEsiN 

houn ;eo 

inOMEcK.CO.DfcN- i  GO  TC  9RQ 


LNK  4 
#  =  *LNM 
**».,NK4 
LNM 
IN.M 
LNM 
LNM 
LNX4 
LNK4 
LNK  4 
LNM 
LNM 
LNM 
LNM 
INK  4 
1  HA* 
LNK 
I  NK4 
i.  NM 
LNM 
LP'.K  4 
I,  h  4 
LNK  4 
LF‘M 
I.UK4 
LNK  4 


l»  L?  U  I'  U  U  O  O 


998  PRINT  1020.IRJSE 
WRITE  IISOUT.1020JIRISE 
REWIND  IRISF 

PAUSE 
80  TO  997 

999  RSaDURISE1FW.SSAM,SlDTNP,TMSD,S2GHA,TW,H0B,b:,ROPART,NSP.RADM1X 
1.33RSTZ 

f8RSTZ*?5RSTZ/3. 28083 

READ  tJRlSFJ!CRiOU!,J  =  l(x2J 

READ  URISieHUETjDNw J«i»l21 

RfcAO  n raise snps 

READ  I  IRJSEIIPSUI*AU  !  .FACT  til  .SV IU  ,  I»1»NP5 1 
READ  IIRISEINAT 

READ  I JRISE 1 1 ATEmP 1 1 ) *RHOt I J  # 1*1 *NAT1 
HEAD  ! IRISElNFOtlT 

READ t 1RISE  H  ZB  ( I!  <  ZT(l )  ,TC  ( I)  »yB  U  J ,  VU  1 1 » 5*1»NP0S1T1 

:FfN$p-mooi. 2000.2001 

?C31  READ  URISElNP 

READ  IIRISFI CX?i H .ZPt  I ) . iPS(l) , !*1,NP| 

READ  ALL  DATA  FROM  THE  SYSTEM  INPUT  TAPE 
2000  READ  USlN.HllS  fPSEIDI JI . J*l.l2i 
KEAD  IlS!N.10l4JJIClJJ»J«1.18) 

READ  USIN.1015IXG2.YGZ.TGZ 
IFINSP-1120U4. 2005. 2004 

2004  READ  USIN.ldie IMPS. VI .H.Cni.COLS.ROW.riOWS.COLX.B 

2005  READ  USIN.1013JNMODO 

READ  USJN.1015M2VI  Jj.VXI  Jl,VYlJJ.d«l.NHOOOI 

WRITE  A  HARD  COPY  OF  ALL  INPUTS 

WRITE  t ISOIIT.1 J  FW.SSAM.SLDTMP, TMSD, S l GMA , TW»  HOB i BZ » HQPART , NSP. 
HPSEIDU).J«1;I2J»  tCRIDUI,j8l,12  5.lDETIDIJl.J«l,i2l.UClJI.J*l. 
2ibl.X3Z.YGZ.TGZ 
|FMSP-ll?006, 2007. 2006 

2006  WRITE  USOIH.2)  MPS. VI. H, COL. COLS. ROW. ROWS, COLX.B 

2007  WRITE  1 1 SOUT . 3  J NhOOO 

WRITE l I SOUT, 3051  J  I  Z  V  I  J] .  VX  l  J  J .  V  Y I JI  .  J»l.  NHODO  J 
WRITEUSOUT.3052INPS 

WR I TE  U  SOUT ;  3053  J I ®3 1 U  J . A I J i , PACT l Jl . 37 1 » J*l. NPS 1 
WRITEUSOUT.3054  JNAT  5 

WRITE  II SOUT, 3C55J  UTEHPC.H  .RHO I JI. Jn.NATl 
WRITEUSOUT.30561NPOSIT 

I TEf i SOU! , 3057  J l vet JJ.ZBI Jl.ZTlJl . VBt J! . VTi J) . J»l»NPOSIT) 
IFMSP-U2003.20r2.2003 
2003  WRITE  IISOUT.3017JNP 

WRITE!  I  SO'JT.  1018 1  IXPUt.ZPU  J.5>  'Ill.Ml.NPJ 

CLEAR  THE  COUNTS  .’F  INPUT  PARTICLES  BY  SIZE  RANGE 
DO  1000  1*1, NPS 
1000  PNUHU  J*0.0 

find  highest  particle,  count  particles  in  each  size  range,  find 

MUST  RAF! ! ALL*  distant  PARTlClE  CF  CAP  AND  STEM 

RMPtl) 

RS*XP I  1 1 
TOP*  ?P ( 1 1 
DO  3002  1*5, NP 
IFIZPU  3  -*)P  3 100? .  t  C  32,1001 
l!»Li  TOP*ZMSi 
1CU2  CC-NTiNUE 


LNK4  346 
LNK4  347 
LNK4  348 
LNK4  349 
LNM  350 
LNK4  351 
LNK4  352 
LNK4  353 
LNM  374 
LNM  355 
LNK4  356 
LNK4  357 
LNK4  358 
LNM  359 
LNK4  360 
LNK4  361 
LNK4  362 
LNK4  363 
LNM  364 
LNM  365 
LNM  366 
LNM  367 
LNK4  368 
LNK4  3fc9 
LNK 4  370 
LNK4  371 
LNM  372 
LNK 4  373 
LNM  374 
LNM  375 
LNK4  376 
LNM  377 
LNM  378 
LNM  379 
LNK 4  360 
LNM  381 
LNM  382 
LNM  o8  3 
LNM  384 
LNM  3S5 
LNK4  386 
LNK 4  367 
LNK 4  388 
LNM  389 
LNM  390 
LNK 4  391 
LNM  392 
LNM  393 
LNK 4  394 
LNK 4  3 Ur 
LNM  3*6 
LNK  4  397 
LNF.4  398 
LNM  399 
»  ;<M  IOC 
LNK 4  401 
LNM  402 
LNM  4j3 
LNM  404 
INK 4  *05 


1?£ 


oooo  ooo  ooo 


LNM  406 

ADD  AN  INCREMENT  TO  ASSURE  TOP  PARTICLE  MILL  BE  WITHIN  YHE  TOP  30WLNM  407 

OF  CROSS  SECTION  LNK4  408 

TOP*TQP*0.0001  LNM  409 

T0PS*T0P-2.'Q*H  LNM  410 

CO  1038  1*1, NF  LNM  411 

IFiTPj! J-TOPSJ1Q03, 1003, 1005  LNK4  412 

100?  iFrRS-XPUmoO^. 1007. 1007  LNM  413 

1004  RS'XPllJ  LNK4  414 

GO  TO  1007  LNK4  415 

1005  !FlR-XPm)1006, 1007, 1007  LNM  416 

1004  R*XP ( 1 1  LNM  417 

1007  J*!PSUi  LNK4  418 

PNUMC  J J *PNUM l J 1*1 . 0  LNK4  419 

1008  CONTINUE  LNK4  420 

LNM  421 

ADD  AN  INCREMENT  TO  ASSURE  THAT  THE  MOST  ►  JlALLY  DISTANT  PARTICLELNK4  422 


WILL  BE  WITHIN  THE  LAST  COLUMN  OF  THE  CROC.,  SECTION  LNK4  423 

RsR*0?onfll  LNK4  424 

FS*RS*9.r,001  LNK4  425 

LNM  426 

COMPUTE  MAGNIFICATION  FACTOR  {NUMBER  OF  SHALL  CELLS  WITHIN  EACH  LNM  427 
LARGE  CELL  1  FOR  THE  STEM,  MAKE  SURE  THE  HORIZONTAL  DIMENSIONS  OF  LNM  428 


THE  SMALL  CELLS  ARE  EilllAL  FOR  THE  CAP  AND  STEM,  INITIALIZE  LNM  429 

TERM*R*ll.fi*1.0/O0LS]/[1.9*l,0/COLI  LNM  430 

0S  =  RS*TERM/R  LNK 4  431 

I*BS-*0„5  LNM  432 

eS3I  LNK 4  433 

RSsR*US/TEP;i  LNK 4  414 

OUX-R/COL  LNK 4  435 

ODXS.RS/COLS  LNK 4  436 

RZ*[R*ODX)/tCOLX*tn  LNK4  437 

P3=B*«3  LNK 4  438 

PS3*8S**3  LNM  439 

V  I  s  4 . 0  •  V  I  LNK4  440 

NCL=0  LNK 4  441 

CX*8Z«R  LNK4  442 

NS:Z*MPS/INPS-2J  LNK4  443 

SIZ’NSIZ  LNK4  444 

NI*U  LNK4  445 

CXS«GZ*HS  LNK4  446 

LNK4  4<«7 

:  CREATE  THE  9ECINNING  OF  Th£  SYMMETRIC  CLOUD  TAPE  JPARJN  LNM  448 

2002  REWIND  JPARIN  LNK<*  449 

WRITE  ( JPAR I N ] DENT  I  LNK 4  450 

WRITE t JPARIN JFW.SSAM.SLDTMP.TMSD, SIUMA, TW.HOB.NSP.XGZ, YGZ.TGZ.BZ.  LNK 4  451 


1NCL.RADMAX 

WRITE  I  JPARIN) iPSfclD(J) ,J*l. 121 
WRITE  l  JPARINJICRIDU) ,  J*1,12J 
WRITE  (JPARIN) IUETID(J1,J?1,L2) 

WRITE  ( JPARINJRCPAHT 
WRITE  IJPARINJNPS 

UH!TE« JPARIN) [PSIJJ ,A{ JI.PACTI JJ.SYI J) ,J*1,NPS) 
WRITE  IJPARINJNAT 

WRITE  t  JPAR  IN)  (ATEMPIJJ.RHOU).  J«1,NAT) 

I F l NSP*1 ) 5 , 20l0  »  5 
?  10  Re AD  t I R I SE ) NP 

IF ( NP J20 11,2911, 2012 
2011  NPs'J 

IFIICI3J J2013, 2013,2014 


LNM  452 
LNK4  453 
LNM  454 
LNK4  435 
LNK 4  456 
LNM  457 
LNM  458 
LNK 4  *59 
*  NM  460 
LNK4  461 
LNM  462 
LNM  463 
i><\4  464 
LNK 4  465 


ooooo  o  *~a  o  noo  noon  o  n  o  o  o  o  o  o  o  o 


2013  URJTE I ISCUT.3013  JNP 

2014  WOttTEIJPAR!NlNP 
END  FILE  JPARIN 
REWIND  JPAR I N 
ACWINO  JRISE 

80  TO  2100 


LNK4  466 
LNM  467 
INK 4  460 
LNM  469 
LNK4  470 
INK 4  471 


2012  READ! IRISE)  ( XPAR{  IJ»YPAR[I],ZPARMJ»TP(Il»PSIZiI)»FMASIl)»l»l,NP)  LNK4  472 


WRITEUPARINJNP  LNK4  473 

WRITEI JPARJN1 {XPARl 1 1 » YPARfl 1 .ZPARf 1 1 «TP( 1 1 »PSIZI 1 1 .FMASI 1 1 #  LNK4  474 

1  I «1»NP I  LNM  475 

1FI1C(3]}2915 *2015,2010  INK 4  476 

2015  WRITE! 1S0UT,3913)NP  LNK4  477 

UNITE  US0UT.41  LNK4  478 

fcJ»!T6llSOUT»1012!lXPARm»VPARm,ZPARm#TPm»PSIZm,FHASHJ,  LNK4  479 

lf»l.NPI  LNK4  480 

SO  TO  2010  LNM  481 

LNK4  482 

STEM  BRANCH  RETURN  POINT  153  LNM  483 

ARE  WE  DOING  stem.  YES  TO  20.  NO  TO  15.  IF  NEITHER.  GENERAL  ERR0RLNK4  484 


STOP  LNK4  485 

5  JFIIII10, 19*20  LNK4  486 

10  f RROR»-5  LNK4  487 

7734  CALL  ERROR IPROGHM. IRROR. ISOUT 3  LNM  408 

LNK4  489 

COMPUTE  DZ.  THE  THICKNESS  OF  A  STRATUM  OF  BIG  CELLS  FOR  CAP/STEM.  LNK4  490 

21.  THE  HEIGHT  OF  THE  TOP  BOUNDARY  OF  THE  TOP  (NUMERICALLY  1ST1  LNK4  491 

STRATUM  OF  CAP/STEM,  MX.  THE  ADJUSTED  NUMBER  OF  COLUMNS  IN  THE  LNM  492 

CAP/STEM  CROSS  SFCTION,  DfcLZ  .  THE  VERTICAL  THICKNESS  OF  A  SMALLLNM  493 

CELL  IN  THE  CAP/STEM  LNM  494 

15  DZ*2.0*H/ROP  LNK4  495 

2 l  »TOP*DZ  LNM  496 

GO  TO  25  LNK4  497 

20  DZ»(T0PS-ZBRSTZJ/R0W  LNK4  498 


2I»TOPS*OZ 
25  MX«COL*2.0 
CELZ#UZ/8 


LNM  499 
LNM  500 


CfcLZ#UZ/8  LNM  501 

LNM  502 

SIZE  BRANCH  RETURN  POINT  (301  LNM  503 

ARE  THERE  ANY  PARTICLES  IN  SIZE  RANGE  IS1ZE.  YES  TO  32,  NO  TO  250LNM  504 

NEGATIVE  TO  GENERAL  ERROR  STOP  LNM  505 

30  iFtPNUMl (SIZE! 331,250, 32  LNK4  506 

31  IRR0R»-31  LNK4  507 

80  TO  7734  LNM  508 

LNK4  509 

INITIALIZE  Z,  THE  Z  COORDINATE  OF  THE  CENTER  OF  A  STRATUM  IN  THE  LNK4  510 

3-D  CLOUD.  SET  NZ.  THE  ADJUSTED  NUMBER  OF  ROWS  IN  THE  CROSS  LNM  511 

SECTION  OF  THE  CA«»/3TEH  LNK4  512 

32  2»ZIoDZ«>B£LZ/2.0  LNK4  513 

NZ“RQU*2 . 0  LNK4  514 

LNK4  515 

CLEAR  THE  CROSS  SECTION  ARRAY  OF  MASS  LNK4  516 

DO  35  IROW»l.NZ  LNM  517 

DO  35  <R!NG»1,NX  LNM  518 

35  XNlIRlNG. INOWJ*C,Q  LNK4  519 

LNM  520 

COMPUTE  MASS  INCREMENTS  FOR  TH£  SMOOTHING  OPERATION.  DELM  IS  THELNK4  52l 

MASS  TO  BE  ADDED  TO  EACH  CELL  THAT  AN  INPUT  PARTICLE  OF  SIZE  ISIZ6LNK4  522 

IS  FOUND  IN.  UH  IS  THE  MASS  INCREMENT  TO  Sg  ADDED  TO  EACH  OF  TME  LNM  523 

NiftREST  NEIGHBORS  OF  THE  AgQvfc* MENTIONED  CELLS  LNM  524 

D6LM«Q.5*A{!S!ZE!/PNUNif5l2El  LNM  525 


128 
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40 

45 

50 

55 


60 


65 


70 


75 

80 


DM*DELM/4.0  LNM 

LNM 

LOAD  THE  HASS  OF  ALL  PARTICLES  IN  THE  CAP/STEM  OF  SIZE  RANGE  1SIZELNK4 
INTO  THE  CROSS  SECTION  MASS  ARRAY  XN 1 1 R I NG, I  ROW |  LNM 

DO  60  L*1»NP  LNM 

IFIII140.40,45  LNM 

IF l ZF  CL  1-TOPS J60, 60,50  LNM 

I F  t  T0PS-ZP CL  J  1 60 • 50  *  50  LNM 

lFnS!ZE-IPS[LlJ60*p5,60  LNM 

|RlNGaXPfLJ/ODX»2.0  LNM 

I  ROW*  t  z I -ZP  C  L 1 l/nz*1.0  LNK4 

XNIIRING, IR0WJ*XN( IRING. I ROWl*DElM  LNK4 

XN{ IRING+l, JR0WJ*XNl IR!NG$1, IRON J*DM  LNK4 

XNlIRtNG-1.  IRGW)*XN(  IK.NG-i,  IRON  J  ♦DM  LNK4 

XNt  IRING.  IR0W*U*XNl  IR!MG#IR0W*1  J*DM  LNK4 

XNIIRING, IROW-1 I *XN( IRING, INOW-ll*DM  LNK4 

continue  lnm 

LNK4 

ALL  SELECTED  PARTICLES  HAVE  BEEN  LOADED.  NOW  FOLD  THE  COLUMN  TO  LNM 
THE  LEFT  OF  THE  Z  AXIS  (COLUMN  1)  INTO  THE  COLUM  TO  THE  RIGHT  OF  LNK4 
THE  Z  AXIS  (COLUMN  2).  LNM 

DO  65  IR0W«1.NZ  LNM 

XNI2.  I  ROW  I  »  XN  1 2  *  J  ROW ] *XN 1 1 ,  I  ROW  ]  LNM 

LNM 

AT  THIS  POINT  XNIIRING, IROWl  REPRESENTS  THE  TOTAL  MASS  IN  THE  LNM 

CROSS  SECTIONAL  CELL  l IRING, IRON  I  AND  ALSO  IN  THE  SIZE  RANGE  ISIZELNM 
SET  NX.  THE  ADJUSTED  NUMBER  OF  COLUMNS  IN  A  QUADRANT  OF  THE  3-0  LNM 
CLOUD  LNM 

NX  =  C0LX+2.0  LNM 

LNM 

CLEAR  THE  3  ARRAYS  USED  TO  REPRESENT  STRATA  OF  THE  3-D  CLOUD  LNM 

DO  70  Ml. 3  LNM 

DO  70  J*1,NX  LNM 

DO  70  1*1, NX  LNM 

FNIK,  I ,  J)*0.0  LNM 

LNM 

initialize  stratum  array  numbers  and  row  index  ,irow  lnm 

11*1  LNK4 

12*?  LNM 

13  =  3  LNM 

I  ROW  =  l  LNM 

LNM 

STRATUM  BkANCH  RETURN  POINT  [75]  LNM 

BEGIN  SMOOTHING  THE  CROSS  SECTION  MASSES  INTO  THE  3-D  CLOUD  ARRAYSI.NM 
START  WITH  IRING  *  2  LNM 

I R  I  NG*2  LNM 

MIRING  LNK4 

LNM 

COMPUTE  V,  THE  NUMBER  OF  ANNULAR  CELLS  IN  RING  IRING  LNM 

Vs  1 2 . 0»T-3. 0  1  •  V I  LNM 


COMPUTE  DEL,  THE  MASS  INCREMENT  TO  BE  ADDED  TO  THE  NEAREST 
NEIGHBORS  OF  THE  3-D  CLOUD  LARGE  CELL  INTO  WHICH  AN  ANNULAR  CELL 
FALLS!  DEL  IS  ADJUSTED  HERE  TO  ACCOUNT  PBR  THE  LATER  SREARUF  ur 
THE  LARGE  CELLS  INTO  SMALL  CELLS 
DEL* VN I  IRING,  IROW)/U2.0*V*B3*SIZ] 

COMPUTE  THE  ANGULAR  COORDINATE  OF  THE  INITIAL  ANNULAR  CELL  IN 
RING  IRING 

THETA«6. 2831856/(2. Q  *  V  J 


LNM 

LNM 

LNM 

LNR4 

LNK  4 
LNM 
LNM 
LNM 
LNK  4 

!  Ai 


526 

527 
520 

529 

530 

531 

532 

533 

534 

535 

536 

537 
530 

539 

540 

541 
342 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 
679 

580 

581 

582 

583 

584 

585 
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c 

c 

c 

c 


compute  the  angular  increment  to  get  to  the  next  annular  cell 

THET«2.0*THETA 

COMPUTE  the  RADIAL  COORDINATE  or  THE  ANNULAR  CELL  IN  RING  IRIN6 
RX»IT-1.51*0DX 

COMPUTE  THF  X  AND  V  COORDINATES  ,  XX. YY,  OF  THE  ANNULAR  CELL  IN 
RING  IRING 
85  XX»RX*C0S  t THETA  J 
YY»RX*SINITHETAJ 

COMPUTE  THE  INDICES  OF  THE  LAROE  CELL  INTO  WHICH  THE  ANNULAR  CELL 
FALLS 

L«XX/DX*2.0 

K«YY/DX*2.0 

PUT  THE  PROPER  AMMOUNT  OF  MASS  INTO  THE  CELL  WHOSE  INDICES  HAVE 

JUST  BEEN  COMPUTED  AND  ITS  NEAREST  NEIGHBORS 

FN(l2«'L»K]aFNI  I2.L.K  1+6.0 *DEL 

FNtl2«LM.KJaFNi:2.L«-l.K)*DEL 

FNU2.L»i.KJ»FNt  I2.L-1.K3*DEL 

FNII2.L.M1UFNI  I2.L.M1  j*DEL 

FNII2.'L#K-1J«FNI  I2,L,K-1I*DEL 

FNm.L»Kl»FNUi.L.KJ*DEL 

FNU3.L.Kl»FNl!3,L,KMDEL 

INCREMENT  AND  TEST  THE  ANGULAR  COORDINATE  TO  SEE  IF  WE  HAVE  DONE 

A  QUADRANT.  YES  TO  90.  NO  TO  85 

TMETA«THETA*THET 

IF(1.570796A-THETAI90.90,85 

HAVE  WE  DONE  ALL  THE  RINGS.  YES  TO  100.  NO  TO  95  WHERE  WE 
INCREMENT  THE  RING  INDEX  AND  BEGIN  AGAIN  AT  60 
90  IFIMX-IRINGU00.1Q0.95 
95  IRING«IRING*1 
GO  TO  80 

FOLD  1ST  ROW  INTO  2ND,  1ST  COLUMN  INTO  2ND 
100  DO  105  Itl, NX 

FNtIl.-2.Il»FNlI1.2.n*FNlll.l.n 
105  FNI 1 171 .2) *FN [ 11. 1 > 2 1+FNI ll . ! .  1 ] 

AT  THIS  POINT  THE  ARRAY  FNf  M . L.K 1 . M«1 , 2, 3,  REPRESENTS  THE  TOTAL 
MASS  IN  CELL  IL.K)  IN  ROM  M  OF  A  3-D  CLOWD  QUADRANT.  WE  NOW 
INITIALIZE  FOR  THE  SMALL  CELL  COORDINATE  CALCULATION 
110  X*-BZ/2.Q 
V*X 
l°t 
NNX»2 
NNY«2 

XPSa(PSUSIZEI*PStISI2i-in/2.0 

DELPS*( IPS  I  IS  I ZE*1 1 *PS t ISlZE  J ) /2 , 0*XP8l/8iZ 

XPS»XPG*DELPS/2.0 

XTEMR«X*8Z 

YTSMP»Y*BZ 

ZTfMP«z-OELZ 

IS  THERE  ANY  MASS  IN  THE  L'ARGS  CELL  W*  ARg  CONSIDERING.  YES  TO 
115.  NO  TO  205  WHICH  GOES  ON  TO  NEXT  CELL.  IF  NEGATIVE.  GENERAL 


LNK4 

LNM 

LNM 

LNM 

LNM 

LNK4 

LNK4 

LNK4 

LNK4 

LNK4 

LNM 

LNM 

LNM 

LNK4 

LNM 

LNM 

LNM 

LNM 

LNM 

LNM 

LNM 

LNM 

LNM 

LNM 

LNM 

LNM 

LNM 

LNM 

LNM 

LNM 

LNM 

LNK4 

LNM 

LNM 

LNM 

LNM 

LNM 

LNM 

LNM 

LNM 

LNM 

LNM 

LNK4 

LNM 

LNK4 

LNM 

LNM 

LNM 

LNM 

LNM 

LNM 

LNM 

LNM 

LNM 

LNM 

LNK4 

LNM 

LNM 

LNM 

LNM 


586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 
601 
602 

603 

604 

605 

606 
607 
ROB 

609 

610 
611 
612 

613 

614 

615 

616 

617 

618 

619 

620 
621 
622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 
6  >4 
645 
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C  ERROR  STOP 

111  IF (FNl II. NNX.NNYJ )112. 205*115 

112  IRR0R»-H2 
GO  TO  7734 

BEGIN  A  LOOP  ON  THE  NUMBER  OF  SIZE  RANGES  EACH  INPUT  SIZE  RANGE 
IS  TO  BE  EXP.IUBEO  TO  (1151 
115  DO  195  IiP«l,NSlZ 

lFUlP-i  J120.120.125 
120  XPR»XPS 
GO  TO  130 
125  XPR»XPR*DELPS 

BEGIN  A  LOOP  ON  THE  NUMBER  OF  STRATA  EACH  LARGE  CELL  IS  TO  BE  ' 
BROKEN  UP  INTO  (Z  DIRECTION]  (130) 

130  DO  195  I  I K> 1 >  N I 

IRI  IK-11135.135,140 
135  ZZ«ZTEMP 
GO  TO  145 

1  40  2 Z*Z2 "DELZ  ^ 

BEGIN  A  LOOP  ON  THE  NUMBER  OF  COLUMNS  EACH  LARGE  CELL  IS  TO  BE 
BROKEN  UP  INTO  (V  DIRECTION}  (145) 

145  DO  195  I  I J*1 , N I 

IF (  I  I J-l  ]  150.150 ,155 
150  YYiYTEMP 
GO  TO  160 
155  YY«YY*BZ 

BEGIN  A  LOOP  ON  THE  NUMBER  OF  COLUMNS  EACH  LARGE  CELL  IS  TO  BE 
BROKEN  UP  INTO  (X  DIRECTION)  11601 
160  DO  195  I (I *1 . N I 

I F  C  I  I  t-l}165.l65.170 
165  XXcXTEHP 
GO  TO  175 
170  XX h XX*B Z 

SET  THE  OUTPUT  QUANTITIES  XPARU),  YPARIJT,  ZPARII)#  PSIZEIII, 
TPtlW  FMASSlIl.  and  EXPAND  THE  SINGLE  QUADRANT  WE  HAVE  INTO  4 
175  ZPAR(I1«7Z 
ZPARl !♦! j  *22 
ZPAR 11 *2  I »ZZ 
ZPARl !«31*ZZ 

XPARt I )*XX 

xPARt  mi».xx 
XPARt |*2)s«XX 
XPAR[|«.3)«XX 
Y P A R  (  M«YY 
YPAR  J I ♦ 1 1 «YY 
YPAR t !♦?  J  »»YY 
YPARl J-31-.YY 
PS1ZI J I«XPR 

ps  i  z :  !*ii«xpr 

PSIZl  U2  J«XPR 
PSIZ( !*3)«XPR 
TP  l  I  1 «TC INPOSI T ] 

TPI  mi*TCINPOSlTl 
TP(  I*2I»TCINP0SlTl 
T  P ( I*3)*TClNP0StT) 

FHASl tl»FNl I l.NNX  »  NNY ) 


LNK4  646 
LNK4  647 
LNN4  648 
LNK4  649 
LNK4  650 
LNK4  651 
LNK4  652 
LNK4  653 
LNK4  654 
LNK4  655 
LNK  4  656 
LNK4  657 
LNK4  658 
LMK4  659 
LNK4  660 
LNK4  661 
LNK4  662 
LNK4  663 
LNK4  664 
LNM  665 
LNK4  666 
LNK4  667 
LNM  668 
LNM  669 
LNM  670 
LNM  671 
LNK4  672 
LNM  673 
LNM  674 
LNM  675 
LNK4  676 
LNM  677 
LNK4  678 
LNM  679 
LNM  660 
LNM  681 
LNM  682 
LNK4  683 
LNK4  684 
LNK4  685 
LNK4  686 
LNM  687 
LNK4  688 
LNM  689 
LNM  690 
LNM  691 
LNM  692 
LNK4  693 
LNM  694 
LNK4  695 
LNM  696 
LNM  697 
LNM  698 
LNK 4  .,99 
LNM  ;oo 
LNK4  701 
LNK4  702 
LNM  703 
LNK4  704 
LNM  705 


131 


o  cn  ci  o  o  o  o  nnn  o  o  no  non 


C 

C 


c 

c 


FHASIt*neFNUi,NNX.NNYJ 
rMASCI**J«FNl ll.NNX.NNY) 
FMAS(l«3]*rNIIl,NNX,NNY] 

t«l*4 


1@0 


ARE  Hi  HEADY  T9  PRINTj 

im*!BUF*SJl95.l9».l»0 

I»I-1 


YfS  TO  190*  NO  TO  199 


LNM 
LNM 
LNK4 
LNK4 
LNK4 
LNK4 
LNM 
LNK4 
LNK4 

00  HE  HANT  OUTPUT  ON  THE  SYSTEM  OUTPUT  TAPE.  YES  TO  189.  NO  TO  190LNM 
lFUCl3ni89.lB9.190  LNK4 

MBITS  IISOUT. 30131 1  LNM 

USQUT.4J  {XPAR(Jt,YPAR(J)«ZPAR(Jl«TP(JI#PSIZ(J),FMA8(Jl,JLNM 

LNM 

(JPAR1N1!  LNK4 

CJPARJNJ IXPARt JJ.YPARtJ], ZPARt JJ.TPI J1.PS1 Z 1 J)  .FMASIJJ  , J«l»  ILNM 

LNK4 
LNK4 
LNK4 
LNK4 

THE  SMALL  CELLS  MITHIN  A  LARGE  CELL  HAVE  BEEN  DETERMINED.  PRINT  LNK4 
OUT  ANY  SHALL  CELLS  NOT  AS  YET  ACCOUNTED  FOR  LNK4 

IF  £  1-11205,209.200  LNK4 

|«!-1  LNM 

LNM 

DO  HE  HANT  OUTPUT  ON  THE  SySTEH  OUTPUT  TAPE.  YES  TO  201.  NO  TO  202LNM 
lFUCl3ll201.i:01.202  LNM 

MRJTE  ( I SOUT ,3013  1  I  LNM 

WRITE  [I SOUT. 41  t XPAR ( J1 . YPAR ( J 1 . ZPAR I J 1 , TP 1J 1 . PS  I Z I J 1 , FHAS l J 1 . JLNM 

1*1. 11  LNM 

202  WRITE  l  JPAPINI  I  LNM 

HRITE  IJPARlMltXPARf J] .YPAR1 J1 .ZPARl J1 ,TPI JJ.PSIZI Jl.FHASI Jl.J-l, ILNK4 
11  LNK4 

1*1  LNM 

LNM 


190 


199 


m~i?s 
i>i#ii 

HRITE 
writs 
11 
!«1 

CONTINUE 


200 


201 


205 


210 


215 


220 


GO  TO  THE 
NNX*NNX*1 


NEXT  CELL  IN  THE  X  DIRECTION  {2051 


HAVE  HF  DONE  A  WHOLE  ROW  IN 
WHERE  HE  INITIALIZE  FOP  THE 
IFINNX-NX1210.210.215 
XPR*XPS 

XTEHP»XTFMP*DX 
GO  TO  111 


THE  X  DIRECTION.  YES  TO  215. 
NEW  CELL  AND  TRANSFER  TO  111 


00  TO  THE 
NNY*NNY*1 


NEXT  CELL  IN  THE  Y  DIRECTION  1215) 


Y  DIRECTION.  YES  TO  225, 
Ct.  AND  TRANSFER  TO  111 


225 


HAVfc  HE  DONE  A  WHOLE  ROW  IN  THE 
WHERE  HE  INITIALIZE  FOR  THE  NEW 
IF f NNY-NY 1 220. 220.22V 
XPS*XPS 
XTEMP«X*BZ 
YTEMP«YTFHP*DX 
NNX*2 
00  TO  111 

60  TO  ?H£-  Ni/T  STRATUM,  INITIALIZE  Z  FOR  THAT  STRATUM. 
STORAGE  ARRAY  FNfJt.J.J},  CYCLE  U.  13,  13 

IROH»!POW*; 


LNK4 

LNK4 

LNK4 

NO  TO  210LNK4 
LNM 
LNM 
LNK  4 
LNM 
LNM 
LNM 
LNM 
LNK  4 
LNM 

NO  TO  220LNK4 
LNK4 
LNK  4 
LNK  4 
LNK  4 
LNK4 
LNK  4 
LNM 
LNK  4 
LNM 
LNM 
LNK4 


CLEAR  the 


706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 


132 


oooo  ooo  oonooo  n  o  n  n 


Z*7TEKR-DZ*DELZ  LNM 
DO  230  1=1, NX  LNM 
DO  230  J*1 , NX  LNM 
FN 1 1 1  *' !  *  J )  *0 , 0  LNM 
11=12  LNM 
12=13  LNM 
13=11  LNM 

LNM 

HAVE  WE  DONE  ALL  STRATA  IN  THE  3-D  CLOUD.  YFS  TO  235,  NO  TO  75  LNK4 
IF11R0W*NZ)75,75.23S  LNK4 
have  WE  done  THE  LAST  TWO  ROWS  OF  THE  STORAGE  ARRAY  FN.  YES  TO  250LNK4 


CLOUD.  YES  TO  235,  NO  TO  75 


THE  LAST  ONE  TO  ?45, 

1 F I JJ124P, 245,250 

JJ=JJ*1 

GO  TO  110 

JJ=JJ*1 

GO  TO  110 


THE  NEXT  TO  LAST  TO  240 


RESET  THE  STRATUM  INDEX  TO  1, 
INCREMENT  THE  S!7€  RANGE 
!NOW=l 
JJ=*1 

I S I ZE= 1 S I ZF  +  1 

HAVE  WE  DOME  ALL  SIZES.  YES 
IFUSIZE-NPS-H  130,30,255 

HAVE  WF  DONE  THE  STEM.  YES  1 
I F  (  1  1  12611,260,265 


THE  LAST  2  STRATA  INDEX  TO 


YES  TO  255,  NO  T6  30 


YES  TO  265,  NO  TO  260 


INITIALIZE  FOR  STEM  CALCULATION  AND  RETURN  TO 

11=11*1 

COL=COLS 

ODX=ODXS 

R*RS 

ROW=RUWS 
B  =  8S 
N  I  =B 
B3=BS3 
DX=DXS 
I S I  Z  E  =  2 
GO  TO  5 


H  R  I  T  fc 
N*  0 


ZERO  ON  THE  STABILIZED  CLOUD  TAPE  TO  SIGNIFY  ITS  END 


275  WHITE  (JPARINJN  LNM 

END  FILE  JPARIN  LNM 

REWIND  JPARIN  lNM 

LNM 

CALL  SUBROUTINE  HN0SFT  WHICH  WILL  SHIFT  THE  CLOUD  IN  ACCORDANCE  LNM 
WITH  THE  PREVAILING  WIND  HQDOGRAPW  AND  CREATE  THE  TAPE  TO  5E  USED  LNM 
AS  INPUT  TO  THE  TRANSPORT  MODULE  LNM 

00  CALL  WNUSFTIIRAH IN, JPARIN, aTEMP.RHO, TC, ZB. VB. ISOUT .NPOSIT,  LNM 

1VX.V/.7V.  I  S  I  N ,  NH0D0,PSlZ.ZfAR.XPAR,YPAR,TP,rMAS,XGZ, YGZ,  TGZ,  LNK4 
2  I C  FROG,  CRIP,  PACT,NSP,ZT,VT. ZBRSTZ!  LNM 

RETURN  INK  4 

END  LNM 

SIPFTC  WINSFX  LIST, DECK, M94/2  WINS 


ono  oo  o  o  o  o  onn  000000000000000  000 


WINS 
WINS 
WINS 
WINS 
W  i  NS 
WINS 
WINS 

•  *•*•*••»***•**««•***•****><  INS 

WINS 

THIS  PROGRAM  READS  A  TAPE  IJPARJN]  OF  DATA  WHICH  DFSCRIBE  AN  WINS 
AXJAll  SYMMETRIC  STABILIZFU  CLOUD  OF  PARTICLES  I  IN  TRANSPORTABLE  WINS 
FORM!  AND  CONVERTS  THE  DATA  TO  REPRESENT  A  ASYMETRIC  CLOUD  THROUGhUNS 
THE  APPLICATION  OF  A  WIND  HQDOGRAPH  AND  A  CLCUD  RISE  HISTORY.  THE*UNS 


SUBROUTINE  WNDSF T 

JJZUCKERHAN#  T , W . SCHWENKE *  H  ,  G . NORMENT 
19  JANUARY  1967 

SUBROUTINE  WNUSFTUPARIN,JPARIN,ATEHP,RH0»TC,Z8.VB,IS0UT,NP0S!T, 

1  VX.VY.ZV, ISSN  ,  NHODO.PSIZ. ZPAR.XPAR, YPAR.TP.FMAS.XGZ, YGZ,  T GZ , 

2  IC, FROG. CRID, PACT, NSP.ZT.VT.ZBRSTZ) 


►  •A#*###**## 


RESULT  is  WR!tTEN  ONTO  tape  IPARIN  IN  TRANSPORTABLE  FORM. 


GLOSSARY 


SEE  THE  CLOUD  RISE  -  TRANSPORT  INTERFACE  MODULE  GLOSSARY 


DIMENSION  CRIDI12I.XC190  I.YC190  ] , PS  I  200 1  , A t 20 0 ] . ATEMP ( 260  I . 
1RHOI260 J .ZCI90  )  , TC  l  90  1 »  VC  C  90  J.IC1181. 

27Vl2Q0],VX[20n  J.VYI20U. 

3ZPAR1200  J.XP AR 1 200  I. YPARI200  I.PS 12  I  20 01  . TP  12001  .FMASl  200). 
APACT1200  J.SVI20  0  J.ZT190 J. ZB  1  90  3  . VB 1901. VT 190) .DPX! 901 


1  FORMATtlX.A6.I3.4El2. 5. IS) 


WINS 

WINS 

►  WINS 
WINS 
WINS 
WINS 

►  WINS 
WINS 
WINS 
WINS 
WINS 
WINS 
WINS 
WINS 

►  WINS 
WINS 
WINS 


?  FORMAT (///P5X.16HCLOUD  TR A jECTOR Y/6X , 2MXC . 12X , 2HYC . 1 2X , 2HZC . 12X . 2HW I  NS 


lTC.12X.2HVC/5tlX.Fl3. 6) ] 

3  F0RHAT[1X,6E13.5] 

4  FORMAT  I IX . f  5 1 


WINS 

WINS 

WINS 

WINS 


******«». 


DATA  PR0GRM/6HWNDSFT/ 

INITIALIZE 
REWIND  IPARIN 
REWIND  JPARIN 

cohpute  cloud  center 


21 


25 


WINS 
WINS 
WINS 
WINS 
WINS 
WINS 
WINS 

AND  STEM  DRIFT  FACTOR  ENTRIES  IN  RISE  TABLE  WINS 

WINS 

DO  25  m.NPOSIT  WINS 

zcm  *  tzsm*ZT[ni/2.o  wins 

VClI5*(VBtn*VT{J))/2.G  WINS 

iFtVBtm  21.21,22  WINS 

OPXtll  »0.0  WINS 

GO  TO  25  WINS 

22  OENGMR*  Z8UJ-ZBRSTZ  WINS 

IFCDENOMP5P4, 21,24  WINS 

24  DPXl I )*V3t I l/DENOMR  WINS 

CONTINUE  WINS 

MPOSiT  *  NPOS I T*1  WiNS 

MHSDQ=NHQDO»i  WINS 

WINS 

FIND  HODOGF.’APH  SECTOR  ALTITUDE  APPROPRIATE  FOR  INITIAL  TIME  WINS 


1 

2 

3 

4 

5 

6 
f 
6 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

55 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 


13U 


**• 

%  + 


"  \ 


I 


K  =  1 

WINS 

62 

29 

I F  {  ZC 1  i  1  -  [  7 V  !  J*i  J  +ZV  t  J 1  J  / '* .  (j  J  35,35,30 

WINS 

63 

30 

inj-NHODO)  31,32,3? 

WINS 

64 

31 

J"J*1 

WINS 

65 

GO  TO  ?o 

WINS 

66 

3? 

1 RROR  =  -3? 

WINS 

67 

GO  TO  7734 

WINS 

68 

C 

WINS 

69 

C 

COMPUTE  HORIZONTAL  DISPLACEMENTS  VS,  TIME  FOR  THF  CLOUD  80tTQH 

WINS 

70 

r 

CENTER. 

WINS 

71 

39 

X  T  =  TC  1 1  J  *  V  X  I  J) 

WINS 

72 

yT=TCI1)*VY( J) 

WINS 

73 

XC(11=XT 

WINS 

74 

YC [ 1 J  = YT 

WINS 

75 

TTF.MP  =  TC  f  1 1 

WINS 

76 

7T6MP--7Cm 

WINS 

77 

C 

WINS 

78 

C  12? 

WHICH  IS  LOWER,  NEXT  CLOUD  POSIT  OR  NEXT  MODOGRAPH  VECTOR 

WINS 

79 

C 

WINS 

80 

12? 

IF! J.GF.NHODO]  GO  TO  124 

WINS 

81 

I F  C  I  Z V [ j  +  l  ]  ♦  ZVIJil/2.  “ZClK  +  ll  1123,124.124 

WINS 

82 

123 

DEL Ts  l  1 Z V [ J+l ) *  7V ( J ] I /2  >  *  ZTEMPI/VCIK) 

WINS 

83 

7TFMP=  I  7V  f  J*1 )  V  I  J  J  )  ..'2  . 

WINS 

84 

TTEhP=TTEMP+ni LT 

WINS 

85 

X  T  =  X  T  *  VX  t  J  I  *Dfcl.T 

WINS 

86 

YTvYT*  V Y  t  J  J  *DfcLT 

WINS 

87 

J  =  J'  1 

WINS 

86 

GO  rc  122 

WINS 

89 

C 

WINS 

90 

C 

NEXT  CLOUD  CELL  CENTER  IS  LOWER 

WINS 

91 

124 

DELTsTCtK*! )«TTfcMP 

WINS 

92 

TTEHP=TCIK*1) 

WINS 

93 

ZTEMP=7CIk*1I 

WINS 

94 

XC(K  +  l)sxT*VXU)'-  :jelt 

WINS 

95 

YC!K+l]eYT*VY[ JJ«DFLT 

WINS 

96 

X  T  =  XC i K*1 J 

WINS 

97 

YTsYCIKY’U 

WINS 

98 

X  =  K  +  1 

WINS 

99 

I F [  K-NPOS 1 T  J 122 , 125, 125 

WINS 

100 

C 

WINS 

101 

C  125 

CLOUD  TRAJECTORY  IS  COMPLETE 

WINS 

102 

125 

WRITE  1 1 S  0  i )  T ,  2  J  IxCI  J),  YCI  J]  ,7CI  Jl.TCUI  ,VCl  JI,U*i,NPOSI  t  1 

WINS 

103 

C 

WINS 

104 

c  copy  the  first  PART  OF  jparjn  onto  iparin 

WINS 

105 

READ  I  JPAR I N ] DFNT 1 

WINS 

106 

WRITE  (  IPARINIDENT  I 

WINS 

107 

C 

MINS 

108 

READ  I JPAR 1 N )  FW,SSAM,SLDTMP,TMSD,SIGHA,TW,HOB.NSP.XGZ, YGZ.TGZ.BZ, 

WINS 

109 

1 

NCL.RAbMAX 

WINS 

110 

WRITE! IPARIN JEW, SS AM, SLDTMP.TMSD, SIGMA, TW,MOH,NSP,XGZ,YGZ,TGZ,0Z, 

WINS 

111 

1 

NCL.RADMAX 

WINS 

112 

DO  100  1=1,3 

WINS 

113 

'’Had  l  JRARINJ  ICRID!  JJ,  J*l*l21 

WINS 

114 

lOo 

WRITE  IIPAPINJ [CRID! JJ , J*l.l?) 

WINS 

115 

C 

WINS 

116 

READ  l JPARINJHOPART 

WINS 

117 

PEaD  (JPARIN)NPS 

WINS 

118 

READ  !  JPARINI  fPSr  JI .  AUJ.PACT!  J)  .svi  J!  ,  J»1,NPS! 

WINS 

119 

READ  t  JPAR I N  I  N 

WINS 

120 

oonoo  o  n  o  o  o  n  n  on  oooooo 


READ  I JPAR ! N ) C  ATFMP  C J I . RHO [ J ) , J*1 , N I 
! TE  C I P AR ! N 1 ROPART 
WRITS  l J PAP  1 N ) WPS 

WRITE  (JPAR  INI  (PSUJ.AI  J 1 .PACT [ J 1 . SV I  JI#J«1,NPS1 

WRITE  cipapjnjn 

WRITE  I IPARIN] (ATEMP(J) ,RHOlJ)»J«i»Nj 
C  SET  ABRANCHING  CONSTANT  ACCORDING  TO  WHETHER  AN  OPTION  A  OR 
C  CLOUD  IS  SPECIFIED 

IflNSP-lJ  1510(1500*1510 
1500  NBRNCH*2 

GO  TO  1520 
1510  NBRNCH*! 


WINS  121 
WINS  122 
WINS  123 
WINS  124 
WINS  125 
WINS  126 
WINS  127 
WINS  12B 
WINS  129 
WINS  130 
WINS  131 
WINS  132 


1520 


104 

104 


101 


PRECOMPUTE  A  CONSTANT  FOR  FALL  RATE  COMPUTATION 
rROG»1.3066667E-l7«Rf)PART 


at  this  point  we  are 

DISTRIBUTION  DATA 


READY  TO  READ  AND  MODIFY  THE  PARTICLE 


READ  AND  TFST  THE  COUNT  OF  PARTICLES  IN  THE  FORTHCOMING  DATA 
RECORD.  A  ZERO  COUNT  INDICATES  THE  END  OF  THE  DATA  SET. 

READ  IJPARINJN 
IF  IN  1 101  *  102  *  103 
I 3R0R* 1 01 


7734  CALL  ERROR  IPROURM* IRROR* I  SOU  T  J 

102  FINAL  EXIT. 

102  N*0 

WRITE  (IPAPININ 
END  FILE  IPARIN 
REWIND  JPAR I N 
REWIND 
RETURN 


WINS 
WINS 
WINS 
WINS 
WINS 
WINS  136 
WINS  139 
WINS 


133 

134 

135 

136 

137 


140 
WINS  141 
WINS  142 
WINS  143 
WINS  144 
WINS  145 
WINS  146 

ALL  DATA  HAVE  BEEN  MODIFIED.  MARK  IPARIN  COMPLETED.  WINS  147 

WINS  148 
WINS  149 
WINS  150 
WINS  151 
WINS  152 
WINS  153 
WINS  154 
WINS  155 
J«1.NWINS  156 
WINS  157 
WINS  158 

NOW  PREPARE  TO  SHIFT  PARTICLES  HORIZONTALLY  IN  ACCORDANCE  WITH  THEWINS  159 
POSITION  OF  THE  CLOUD  AT  THE  TIME  WHEN  THE  PARTICLE  LEFT  THE  CLOUDWINS  160 


IPARIN 


103  READ  A  BLOCK  OF  M  PARTICLE  DESCRIPTIONS 
103  READ  I JPARINHXPaRIJ1,YPAR(JI,ZPAR| Jl.TPl J) .PSIZI Jl .FMASIJ1 , 
11 


WINS  161 

FIRST  INITIALIZE  FOR  ENTERING  A  LOOP  ON  PARTICLES  WINS  162 
0LDZ*"9999R, 0  WINS  163 
OLDPS»-1.0  WINS  164 
0LDT»-1,0  WINS  165 
J*1  WINS  166 


IF  THIS  IS  AN  OPTION  b  CLOUD  SET  ANY  PARTICLES  BELOW  GZ  TO 
ZBRSTZ  AND  ANY  PARTICLES  AT  OR  BELOW  GZ  THAT  ARE  DEFINED  AT  OR 
LATER  THAN  STABILIZATION  TIME  CANNOT  BE  CORRECTED  F  JR  WIND  ORiFT 

105  GO  TOI153O.156OI.N0RNCH 
1530  inZPARt  J1-ZBRST7  1 1540. 1550, 1560 
1540  ZPARIJ1»Z9RSTZ 

1550  jFCTPt jj.TC INPOSJ T 111560.108, 108 
C 

C1560  WAS  THE  CURREN’  IJ-THl  PARTICLE  DEFINED  AT  THE  SAME  TIHE  AS  THE 
C  PREVIOUS  ONE.  YES  TO  105i 
15*0  fnTPljJ-OLDT3106.1051.106 

C 


WINS  167 
WINS  168 
WINS  169 
WINS  170 
WINS  171 
WINS  172 
WINS  173 
WINS  174 
WINS  175 
WINS  176 
WINS  177 
WINS  178 
WINS  179 
WINS  180 


136 


c 

!  C51 

is  T  f-b  CL1'-1  f  NT  T  j  *  T  H  J  PARTICLE  THE  SAME  SIZE  AS  THE  PREVIOUS 

ONE. 

WINS 

181 

r* 

i. 

Yfcs  TC  107 

WINS 

182 

me; 

I  r  !  PS  i  7  i  j  ]  -L'L  Lpb  1  1  0  6 , 107  ,  lflto 

W  I  NS 

18.3 

/*■ 

V 

WINS 

184 

(_, 

107 

IS  Thc  „■>  th  PARTICLE  A1  T Hf  SAME  ALT’TUDE  AS  THE  PREVIOUS  ONE 

• 

WINS 

185 

£ 

YES  TO  106 

WINS 

186 

107 

'UZPARt Jj-OLCZ >1 06. 108,106 

WINS 

107 

r* 

V 

WINS 

188 

c 

lOt* 

THf  PARTICLE  hIll  HAVE  the  samf  horizontal  displacements  as  the 

WINS 

189 

PREVIOUS  ONE  AND  HILL  LEAVE  THE  CLOUD  AT  THE  SAME  TIHE  AND  ALU- 

WINS 

190 

c 

TUDE  AS  THE  PREVIOUS  ONE.  ADDITION  OF  XGZ.YGZ  MAKE  XPAR.YPAK 

WINS 

191 

r 

RELATIVE  TO  COORDINATE  SYSTEM  ORIGIN 

WINS 

192 

106 

TP  I  JUTM  JUT1.7 

WINS 

193 

109 

XPAR[U]*XPAR(jUPX*XGZ 

WINS 

194 

YPARUJSYPAR!  jl+PY+YGZ 

WUS 

195 

C 

WINS 

196 

C 

INCREMENT  A  NU  TEST  J  TO  COnSIDFR  THE  NEXT  PARTICLE  OR  RETURN 

70 

WINS 

197 

c 

FETCH  THE  next  BLOCK  OF  PARTICLE  DATA. 

WINS 

198 

J  =  J*1 

WINS 

199 

IF( J-NJ105.105.110 

WINS 

200 

c 

WINS 

201 

c 

110 

PUT  THF  MOP I F I ED  DATA  ON  ThE  ASYMMETRIC  CLOUD  TAPE  IPARIN  AND 

THENWINS 

£02 

c 

RETURN  TO  FETCH  THE  NEXT  DATA  SLOCK 

WINS 

203 

110 

WRITE  EIPARIN1N 

WINS 

204 

WRITE  IIPAPIN] [XPARI JI.YPARI JJ.ZPARt J) . TP  1 J ) , PS  I Z l J I . FMAS I J 1 , 

J*1 

.WINS 

205 

IN  1 

WINS 

206 

iniCI3niR5.185.104 

WINS 

207 

185 

WRITE  1 1  SOl'T .  4  )  N 

WINS 

208 

WRITE  1 1S0UT.3) IXPARI Jj, YPARIJ) ,ZPAR| J! ,TPl jl ,PSI2( J! ,  F  MAS  1 J 1 , J- 

1  W  I N  S 

209 

1 .  N  1 

WINS 

210 

190 

GO  TO  104 

WINS 

211 

106 

CLDPS=PSIZI J) 

WINS 

212 

OLDZ  =  ZPAR ( J ] 

WINS 

213 

OLDTsTP! j] 

WINS 

214 

C 

WINS 

215 

C 

DID  J-TH  PARTICLE  LEAVE  THE  CLOUD.  NO  Tb  115 

WINS 

216 

IFIZPARI JI-ZBINPnSIT] 1114,115,115 

WINS 

217 

r 

V/ 

WINS 

218 

C 

115 

take  care  of  particles  that  dcnt  leave  the  cloud 

WINS 

219 

115 

DXsXC INPOSI T 1 

WINS 

220 

DY= YC l NPOS I T ' 

WINS 

221 

C 

TPUl  AND  ZPARIJ!  ARE  OK  As  IS. 

WINS 

222 

GO  TO  106 

WINS 

223 

r 

WINS 

224 

C 

114 

THE  PARTICIE  HAS  LEFT  THE  CLOUD 

WINS 

225 

C 

WINS 

226 

114 

ZCURsZPARI J] 

WINS 

227 

tcur=tp  t  J 1 

WINS 

228 

D  X  *  0  , 

WINS 

229 

DY  =  0. 

WINS 

230 

C 

WINS 

231 

c 

LOCATE  PARTICLE  DEFINITION  time  IN  THE  CLOUD  RISE  TABLE. 

WINS 

232 

c 

WINS 

233 

DO  210  K s 1 , NPOS I T 

WINS 

234 

LL=MP0S1T-K 

WINS 

235 

jFlTClLLl.Lr.TPtjn  GO  TO  72\ 

WINS 

236 

2in 

CONTINUE 

WINS 

237 

211 

I RROR=-211 

WINS 

236 

GO  TO  7734 

WINS 

239 

c 

WINS 

24J 

|  137 

y 


2*.  -  *, 


C  221 
C 

221 

230 


240 

C 

C  220 
C 

220 

1221 


C 

r 

C 

C 

C 

C 

r 


LOCATE  PARTICLE  ALTITUDE  IN  THE  WJSD  HODOSRAPH  TABlE. 

DO  230  K«1,MH0DQ 

lF(lZVIKJ*7VIK*l)i/2.0.Gfc,ZPAR(-nSO  TO  J4U 
continue 

HMaNMODO 
GO  TO  220 
MM*K 

FIND  CLOUD  BOTTOM  ALTITUDE  AT  ThE  PARTICLE  DEFINITION  T 

ZBOTOrta  ZBILLJ  ♦  I  T«>  (  J  J -TC  IlL  JI  *VB  C  LL I 
iFltZBOTOM-ZCURi-lO. 11221.1221,250 
DELTEE*0. 

LLL-LL 
MMM*MM 
GO  TO  320 

Index  mmh  identifies  the  hind  hodograph  stratum  in  which 
particle  is  currently  defined. 


I  HE 


the 


index  ll  identfies  the  cloud  rise  history  table  entry 
represents  the  rise  increment  DURNING  WHICH  THE  PARTICt. 
CURRENTLY  DEFINED. 


WHICH 
E  IS 


250  MMM*MM 


C 

c 

c 

c 

c 

c 


251 


251 


252 


DETERMINE  IF  NET  PARTICLE  MOTION  IS  UPWARD  OR  DOWNWARD. 
UPWARD  TO  25 J 
DOWNWARD  TO  253 


CALL  FALRAJ  (ZCLR.PSIZIJl.FV.ATEMP.RHO.FROG.ISOUT) 

RV*  VBILLJ  ♦  [ZCtlR-ZBlLU  J*DPX(LL) 

IFIFV-RV  .GE.CI.OJGO  TO  253 

DETERMINE  THE  DIFFERENCE  BETWEEN  THE  PARTICLE  POSITION 
BOTTOM  OF  THE  HODOGRAPH  STRATUM  IN  WHICH  IT  IS  LOCATED 
BE  THE  ALTITUDE  INCREMENT  OVER  WHICH  THE  PARTICLE  RISE 
COMPUTED  NEXT. 

IFIIHH-1J.BT.01  GO  TO  252 
DELZEE*ZBRSTZ-ZCUR 
GO  TO  270 

DELZEEelZVIMMWvtwM.  111/2,0  -  ZCUR 
MM«MM-1 

IFIDELZEE.LT. 0. J  GO  TO  270 

MMM»HM 

GO  TO  251 


AND  THE 


WINS 

WINS 

WINS 

LINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 

WINS 


c 

c 

c 

c 

c 

c 


253 


253 


260 


DETERMINE  THE  DIFFERENCE  BETWEEN  THE  PARTICE  AND  EITHER 
BOTTOM  OR  THE  BOTTOM  OF  THE  NEXT  HODOGRAPH  STRATUM,  WHl 
CLOSEST.  THIS  WILL  BE  THE  ALTITUDE  INCREMENT  I D6LZEE 1 
THE  PARTICLE  FALL  WILL  BE  COMPUTED  NEXT. 

IF{ lZVtMM4ll*ZVlMM) J/2.0.LE.ZBOTOM  ]  GO  TO  260 
DELZEE«ZBOTQM  -ZCUR 
IF tDELZEE.LT. 10, JOELZEE»OtO 
GO  TO  270 

DELZEE«IZVIHM*1 ]*ZV(MM) 1/2,0  -ZCUR 


this  willwins 

WILL  BE  WINS 
WINS 
WINS 
WINS 
WINS 
WINS 
WINS 
WINS 
WINS 
WINS 
WINS 
WINS 

THE  CLOUD  WINS 
CHEVER  IS  WINS 
OVER  -HICH  WINS 
WINS 
WINS 
WINS 
WINS 
WINS 
WINS 
WINS 


2*1 

242 

243 
24  4 

245 

246 
24? 
240 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 
203 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 
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o  o  o  *>*  o  o  ooooo  oocrooooooo  ooo  a  o  ci  o 


MM=MM*1  WINS 

If  IDELZEF)  262,270,270  WjNS 

26?  ,RR0R=-262  WINS 

GO  TO  7774  WiNS 

WINS 

COMPUTE  THF  7  '  Mfc  Of  PARTICLE  F ALL  iDELTSES  OVER  THE  ALTITUDE  WINS 

INCREMENT  PEcZrE,  WINS 

WINS 

?70  DELTEfc.-DPLZEE/ IFV-PV  )  WINS 

!  F  !0EL'EE)27E.?7t*,?76  WINS 

27*,  iRPijRs-275  WINS 

GO  TO  7734  WINS 

27e  TMIUDTsTCUP-DbLTFE  WINS 

WINS 

FIND  tHE  POSITION  Of  TIME  THIUDT  IN  THE  CLOUD  RISE  TABLE.  WINS 

WINS 

lll=ll  wins 

?fSO  ?F  [TCELL!  .  t  E  .  T  M ! !  i  [i  T  J  GO  TO  293  WINS 

lL=LL*1  WINS 

IF  ILL ’.fife  ,  i  1  GO  TO  280  WINS 

TMJUDT=  TCHi  WINS 

WINS 

COMPUTE  THF  CLOUD  HOTTOM  HE  I GHT . 7E0T0M, A T  THF  TIME  TMIUDT.  WJNS 

'HNS 

29fl  7bOTOM=Z9(LU*VbflL  J  *  !  TM  I UOT -TC  ( LL  1  I  WINS 

WINE 

is  this  cloup  bottom  altitudf  less  than  ok  equal  to  the  particle  wins 

ALTITUHE-  WINS 

YES  TO  310  OK  3?0  WINS 

NO  TO  300  WINS 

WINS 

IFU7B0T0M-  ZCUR-DELZEEI-ln.  .’310,320,300  WINS 

30(1  INCREMENT  FART  I  Cl  E  SHIFT  PARAMETERS  WINS 

3on  nx=Dx+vx (mmm ]  *dpltee  wins 

DY=DY*WY(MMM]  *oeltee  wins 

TCURsTCDR-PFLYEE  WINS 

ZCUR  =  ZCljR  +  PcLZEb  WINS 

GO  TfJ  250  WINS 

WINS 

WINS 

310  MAKt  FINAL  ADJUSTMENTS  TO  PART  I CF  SHIFT  PARAMETERS.  WINS 

WINS 

WINS 

310  Z0nTCM=2FitlLU*VR[lLl)*(TCuH-TC[lll)  1  WINS 

OELTEE=[ZBOTON-ZCUR)/(V8(LLU-RY*FVI  WINS 

ifideltef.it.  o.n )PEiTEE=r,.  wins 

320  DElTRP  e ( TCUR  -DFLTEF-TCILLLJ  J/lTCtLLL+1)  -TCILLU)  WINS 

322  DXsDX  +  VXf MMH ] «Dfcl  TEE  ♦  XOllll)  ♦  [XCILLL  +  U  -XC t LLL II *DELTRP  WINS 

tlY  =  Dr*VYtMMM)*DELTEt  ♦  YC  iLLL  J  +  (YCILLLM)  -YC 1  LLL  II  *DELTRP  WINS 

GO  TO  108  WINS 

WINS 

end  wins 

WINS 

SFTC  DUHPX  LIST, DECK, M94/2 

SUBROUTINE  DUMPP  DUMP 

T ,  v. . SOMWFNKE  TECHNICAL  OPERATIONS  RESEARCH  SR  OUHEP  DUMP 

28  NOVEMBER  1966  DUMP 

DUMP 


301 

302 

303 

304 
3G5 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 
34  3 

344 

345 

346 

347 
340 
3*19 

350 

351 

352 
351 

1 

2 

3 

4 


DUMP 
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THIS  SUBROUTINE  SELECTS  The  BEST  SET  OF  PARTICLES  TO  DUMP ,  DUMP 
SORTS  !T  IN TO  THfc  LOW  NUMBERED  EnD  OF  THE  PARTICLE  ARRAYS.  WRITES  DUMP 
IT  CUT  ONTO  THE  .P^ROPRIaTE  TAPE  AND  ADJUSTS  PARTICLE  SET  COUNTERSDUMP 
THE  SET  SELECTED  FOR  DUMPING  IS  THE  GROUNDED  PARTICLES  SET  WHEN-  DUMP 
EVER  DUMPING  IT  JOULO  HAKE  SUFFICIENT  ROOM  FOR  THE  INCOMING  BLOCK  DUMP 
OF  H  PARTICLES.  IF  THIS  IS  NOT  THE  CASE.  THE  LARGFST  PARTICLE  SETDUMP 


IT  SELECTED.  DUMP 

DUMP 

*4*#*#*<t***«****t****i*  GLOSSARY  *»»**********«**##*(.«****#*********DUH!S 

DUMP 

for  addpional  glossary  entries  see  subroutine  links  dump 

DUMP 

FMAST  see  kpt  dump 

1C!  5  THF  CONTROL  fNTEGEP  ARRAY.  SEE  LINK  5  GLOSSARY  DUMP 

*  CON  SLOCKING  SORT  MODE  INDICATOR.  0«FIRST  PASS.  ♦■BOTTOM  LOOPDUMP 
.-■TOP  LOOP  DUMP 

IOTOPO  THE  Qpr-TOPO  MEMORY  TAPE  NUMBER  DUMP 

I  OR  1  NO  the  OUT-OF-WfND  DATA  MEMORY  TAPE  NUMBER  DUMP 

IPAROT  THE  TIME  LIMIT  BOUNDARY  MEMORY  TAPE  NUMBER  DUMP 

I  POUT  THF  TRANSPORT  MODULE  INTERMEDIATE  OUTPUT  TAPE  NUMBER  DUMP 

fRSET  A  MARKER  FOR  THE  BLOCKING  SORT  WHICH  INDICATES  8V  THE  DUMP 

VALUE  1  THAT  THE  TEMPORARY  STOR'GE  LINE  FOR  A  PARTICLE  DUMP 
IS  LOADED  AND  MUST  BE  EVENTUALLY  UNLOADED  DUMP 

I30UT  THF  FORTRAN  SYSTEM  OUTPUT  TAPE  NUMBER  DUMP 

J  A  GENERAL  INDEX.  IN  THE  BLOCKING  SORT,  IT  IS  USED  TO  DUMP 

IDENTIFY  THE  PARTICLE  THAT  WAS  JUST  CLASSIFIED  DUMP 

JB  "  BOTTOM  LOOP  INDEX  FOR  THE  BLOCKING  SORT  DUMP 

JBL  BLANK  LINE  INDEX  FOR  THE  BLOCKING  SORT  DUMP 

JFR  USFD  TO  RECORD  THE  INDEX  OF  A  FREE  [BLANK]  LINE  IN  THE  DUHP 

BOTTOM  PART  OF  THE  PARTICLE  ARRAY  DURING  THE  CONSOL  I  DAT  I ONDUMP 
OF  N  BLANKS  INTO  ThE  TOP  OF  THE  ARRAY  DUHP 

JT  TOP  LOOP  INDEX  FOR  THE  BLOCKING  SORT  DUMP 

JTEST  A  TEMPORARY  STORAGE  THAT  EVENTUALLY  CONTAINS  THE  NUMBER  DUMP 

OF  PARTICLE  DESCRIPTIONS  IN  THE  CUSS  TO  BE  DUMPED  DUMP 

jTESTi.  A  TEMPORARY  STOR'GE  WHICH  EVENTUALLY  CONTAINS  THE  NUMBER  DUMP 

INDICATING  THE  KIND  (CLASS!  OF  PARTICLE  DESCRIPTION  TO  BE  DUMP 
DUMPED  DUMP 

N  THF  NUMBER  OF  PARTICLES  IN  THE  DATA  BLOCK  THAT  IS  WAITING  DUHP 

TO  HE  READ  NEXT  AT  THE  TIME  WHEN  DUMPP  IS  CALLED  DUMP 

NALOFT  THF  DIMENSIONED  (MAXIMUM!  SIZE  OF  THE  PARTICLE  ARRAY  DUMP 

NBNAX  THF  MAXIMUM  NUM8ER  OF  PARTICLE  DESCRIPTIONS  THAT  CAN  BE  DUMP 

INCLUDED  IN  A  SINGLE  BLOCK  AS  WRITTEN  ON  ANY  MEMORY  OR  DUMP 
INTERMEDIATE  OUTPUT  TAPE  DUMP 

NFREE  THF  NUMBFR  OF  BLANK  LINES  (DENOTED  BY  FMASt  l«OI  IN  THE  DUMP 

PARTICLE  ARRAYS  DUMP 

NG  A  count  OF  IN-CORE  GROUNDED  PARTICLES  DUMP 

NLOST  A  COUNT  OF  THE  PARTICLES  IN  THE  PARTICLE  ARRAY  BUT  LOCATEDDUMP 

BEYOND  THE  COORDINATE  LIMITS  OF  TME  WIND  OR  TOPO  DATA  SETSDUHP 
NTAP  A  TEMPORARY  STORAGE  FOR  THE  NUMBER  OF  THE  TAPE  ONTO  WHICH  DUMP 
THE  DUMP  IS  TO  BE  MADE  DUMP 

NTI  A  COUNT  OF  IN-CORE  PARTICLES  THAT  HAVE  REACHED  THE  TIME  DUMP 

BOUNDARY  lENDTIMJ  DUMP 

NTO  A  COUNT  OF  in-core  PARTICLES  BEYOND  THE  IN-CORE  TOPO  DATA  DUHP 

NW  A  COUNT  OF  IN-CORE  PARTICLES  BEYOND  THE  IN-CORE  WIND  DATA  DUMP 

Ni  AN  ASSIGNED  GO  TO  BRANCH  POINT  FOR  THE  CLASSIFYING  CODE  DUMP 

N2  SEE  Ni  DUHP 

N3  SEE  NI  DUMP 

N4  SEE  Ni  DUMP 

PST  SEE  XPT  DUMP 

TPT  SEE  XPT  DUMP 


7 

6 

9 

10 

n 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 
*3 
*  4 

45 

46 
4  y 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 


e 

XPT 

%  7  0  R  A  G  c 

FOR  XPI 

SOME T i Mt S  USED 

TO  START 

A  SORTDUMP 

o7 

c 

YP” 

SEE  XPT 

DUMP 

68 

c 

7pT 

SEE  VPT 

DUMP 

69 

c 

DUMP 

70 

£#*#******•*********** 

»  * 

►  ***»*sDL'MP 

71 

C 

DUMP 

72 

COMMON 

/SET1/ 

DUMP 

73 

1 

C  !  AM  . 

PE  T I D ! 12  3 

>  I R  !  SE  . 

I  EXEC 

A 

I  S 1  N 

A 

ISOUT 

»  DUMP 

74 

2 

SD 

SPAR  , 

SS  AM 

TME 

A 

TMP 1 

A 

TMP2 

*  DUMP 

75 

3 

T?K  » 

U 

VER 

W 

A 

X 

A 

Z 

.  DUH* 

76 

4 

WH  V  [  4  r  1  » 

RM  J  N 

IDISTR  , 

5PAR1 

A 

SPAR? 

A 

SPAR3 

DUMP 

77 

5 

SP4R4  , 

S  R  A  R5  , 

5PAR6  » 

SPAR? 

A 

SPARS 

9 

SPA»9 

DUMP 

70 

c 

DUMP 

79 

c  »** 

******** 

*********4 

* 

t* 

* 

»#*****« 

•***»*DUMP 

80 

c 

DUMP 

81 

COMMON 

/?erj/ 

DUMP 

82 

1 

s  . 

SUBS  I  D  , 

OR  I  NT  , 

BXLL 

A 

BXLU 

A 

ByLL. 

DUMP 

83 

?. 

PYLU  * 

TXLL 

TXlU 

TYLL 

A 

TYLU 

9 

XGZ 

DUMP 

84 

3. 

YGZ  . 

N3LCK  , 

MTOPO  » 

TTOPO 

9 

ILIM 

9 

JL  I  M 

DUMP 

85 

4, 

KLIM 

I  I 

J  J  A 

KK 

9 

XP 

9 

YP 

DUMP 

86 

5, 

7P  . 

F*  AS 

TP 

PS 

A 

vx 

9 

NY 

DUMP 

87 

6  f 

vz 

IL 

JL 

IBADD 

9 

KOR1NT 

9 

NSTRAT 

DUMP 

88 

/, 

WLL  X  . 

WILY 

W'JRX  , 

WURY 

9 

bOTMIT 

9 

IPARIN 

DUMP 

89 

8, 

IOTOFC  , 

I  OR  I ND  . 

IHTCPC  , 

I  POUT 

9 

IPAROT 

9 

JTOPl 

DUMP 

90 

9. 

JWIND1  1 

1RPCR  . 

TLIMIT  , 

ENDTIM 

9 

IC 

9 

IBYPAS 

DUMP 

91 

1. 

J  TOP  J  » 

MOST  . 

NO  , 

NTO 

A 

NT  I 

9 

NW 

DUMP 

92 

2 , 

NALOFT  . 

JTIMEl  , 

NBMAX  . 

NFREE 

A 

N 

9 

NCL 

DUMP 

93 

3. 

C  R  M  A  X  Y  » 

CRUMT  , 

NORTVP  , 

BZ 

A 

CRM  I  NX 

9 

CRM  I  NY 

DUMP 

94 

4, 

UO  # 

SN  , 

CS 

NLOCIR 

A 

DTlJC 

9 

ATEMP 

DUMP 

95 

5. 

°  H  0 

NA  , 

TOZ 

DTMAC 

9 

f  ROG 

9 

CRMAXX 

DUMP 

96 

6, 

ROPART 

DUMP 

97 

DIMENSION  TPPCLM  (4,4)  »  N  I  NT  AR  l  4  ) 

,  ITUPLMI3.4I 

DUMP 

98 

DIMENSION  RtlO.10!  . SUQS  1  D  f  4  0  0 ) 

» ICI181 

DUMP 

99 

DIMENSION  XP  I  20  0  ) 

D  I  MENS  I  Uf1'  TPI201I) 
DIMENSION  V  X  [  1 5  0  n  . 

d i men: i on  jir’U 

DIMENSION  ViGEt  ’.NT  f70  1 
DIMENSION  Wi'R  ■  I  7 n  J 
DIMENSION  DRMINXfM 
DIMENSION  CRil-HS) 


•YPI200) 

>  PS  f  20  0  ] 

>  VY (  1500  J 

.  18x00170) 

.BOTH! I{70 J 
i  CRMAXX [ 6 ) 
i  NCR  T  YP [ 6  ) 


»  ZP I  200  I 

*  ATfcMP  |  260  ) 
, VZI1500I 

>  WUPX ( 70 ) 

•  RLL  X i 7  0 ) 

#  SN ! 6 ) 
.CHMINX  161 

>  UO I  6 i 


» FMAS I  200 ) 
»  RHO  t  26  0 ) 

,  ILI70I 

.WLLYI7U) 

*  C  S  t  o  ) 

*  C  R  M  A  X  Y  I  6  ! 


DUMP 

DUMP 

DUMP 

DUMP 

DUMP 

DUM’ 

DUMP 

DUMP 

DUMP 


'#***»*♦»►>  **»****•**»*»*•*»< 


DUMP 
DUMP 
DUMP 
DUMP 
DUMP 
DUMP 
DUMP 
DUMP 
DUMP 
DUMP 

*• »»#« ****** ******•*.»*«  »**♦***»* « ****»#*****0LMP 

DUMP 
DUMP 
DUMP 


F0RMATtlHl,4Xl7,!!H  LOST  PARTICLES) 

rORMAT!/6X,2HXP»1Cx2HYP.10v,2h2P,iOX,2HTP»lQX»2HPS,8X,4HFMASI 

r0RMAT!lX,6El2.b' 

FORM.  Tfjni'J! 

FORMATI5X11HBEYOND  TOPO'i 
FORMAT  I  5X1 3HT I  ME  BOUUDARVJ 
FORMAT  I  5X11 HREYOND  HIND) 

FORMAT  { 5X8WGR0UNDEIJ  J 

r**«»r******< 


DATA  PR00RM/6M  UUMPP/ 


DUMP 


100 

101 

102 

103 

1"« 

105 

106 
107 
106 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 
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C  MUST  AN*  PARTICLES  BE  DUMPED  TO  m*kE  ROOM  FOP  THE  INCOMING  BLOCK  DUMP 

C  Of  N  PAHI'CirO  OP  TO  CLEAR  THE  PARTICLE  ARRAYS.  YES  TO  151  DUMP 

jFSN-NFRFt J150.1SC.1S1  DUMP 

150  JTEST*G  DUMP 

GO  T m  ;S?  DUMP 

C  DUMP 

C  151  «-jULO  DUMP  '  NG  THE  GROUNDED  PARTICLES  PROVIDE  Sl'F'lClENT  ROOM  FOR  DUMP 

C  THE  BLOC*  (F  N  INCOMING  PART'CLE  DESCRIPTIONS.  YES  TO  1512  DUMP 

151  IF (NFREE*NL«NJl5ll . 1512# 1 5 1 2  DUMP 

0  DUMP 

;  1512  PREPARE  TO  DUMP  THE  GROUNDED  PARTICLE  DESCRIPTIONS  DUMP 

151?  jTFSTl*l  DUMP 

jTEST  *NG  DUMP 

GO  TO  18  DUMP 

C1511  DETERMINE  WHICH  SET  OF  PARTICLES  TO  DUMP  DUMP 

C  FIND  THE  IDENTIFIER  (JTESTi)  AND  SIZE  SJTFST!  OF  THE  MOST  DUMP 

C  NUMEROUS  CLASS  OR  PARTICLES  IN  THE  PARTICLE  ARRAYS  DUMP 


1511 

in 


11 

12 

13 

14 

15 

16 
17 


10 


C 
C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

18 

104 

7734 

C 

C  182 
C 


lFlNLOST-NGHC.il.  11 

JTEST  =  NG 

jTFSTin 

GO  TO  12 

JTEST«NL0ST 

jTEST1*2 

JFI  JTEST-NT0I3  3.14.14 

jTEST«NTO 

jTESTlsli 

I F I JTEST -NT  I  Jl5.16.16 

JT  ;S T 1 * 4 

jTESTtNT! 

JF[  JTEST-NHJ17.18.18 

jTESTl»5 

JT6ST=NW 

AT  THIS  POINT  JTEST  HAS 
JTESTI  INDICATES  THE  KI 
SEE  THE  FOLLOWING  CODE 


MAX (NG.NL0ST.NTO.NT  I ,NW ! . 

NO  OF  PARTICLE  DESCRIPTION  TO  BE 
EXPLANATION  FOR  JTESTl'l  THRU  5 


DUMPED 


JTESTI  NAME  OF 
VALUE  CLASS  COUNTER 

1  MG 

2  NLOST 


3  NTO 

4  f  TI 


0"'MP 

DU.’P 

.DUMP 

DUMP 

DUMP 

DUMP 

DUMP 

DUMP 

DUMP 

DUMP 

DUMP 

DUMP 

DUMP 

DUMP 

DUMP 

DUMP 

OUMP 

DUMP 

DUMP 

DUMP 

DUMP 

DUMP 

DUMP 

DUMP 

DUMP 

DUMP 


N  W 


TEST  TO  SEf  THAT  jTEST  HAS  AN 
ERROR  STOP  AT  184 

I T  £  JTESTI  184.164.192 
JRROR*  184 

CALL  ERROR  fPROGRp..  IRRORi 
GO  TO  60 

IS  THE  SHF  l.jTESTl  OF 
ALLOWABLf  OUTPUT  BLOCK 


KINO  OF  PARTICLE  DESCRIPTIONS 
TO  BE  DUMPED  ONTO  TAPE 
GROUNDED  PARTICLES 

particles  betond  the  areas  for  which 

BOTH  TOPO  AND  WINDS  HAVE  BEEN  SPEC¬ 
IFIED 

PARTICLES  BEYOND  THE  LIMITS  OF  THE 
TOPD  OATA  CURRENTLY  AVAIL  AfaLE  IN  COHEDUMP 
PARTICLES  THAT  CANNOT  BE  VALIDLY  DUMP 

TRANSPOR1ED  FURTHER  UNTIL  THE  WIND  DUMP 
FIELD  DESCRIPTION  IS  UPDATED  DUMP 

PARTICLES  BEYOND  THE  LIMITS  OF  THE  DUMP 
WIND  OATA  CURRENTLY  AVAILABLE  IN  COHEDUMP 

DUMP 

acceptable  value.  unacceptable  to 


!  S  0  u  "  3 


THE  SELECTED  CLASS  GREATER  THAN  THE 
SIZE  ! NRMAX 1 1 .  YES  TO  183. 


DUMP 
DUMP 
DUMP 
DUMP 
DUMP 
DUMP 
DUMP 
DUMP 
MAXIMUMDUMP 
DUMP 


127 

126 

129 
13  0 

131 

132 

133 

134 

135 

136 

137 

130 

139 

140 

141 
342 

143 

144 

14*. 

146 

147 
140 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 
1/2 

173 

174 

175 

176 

177 

178 

179 

180 
181 
192 

163 

164 

185 

186 


Iks 


1P2  IF!  JTfeST-K.JMA>')181.',.»5l,lbJ 


»'/ 


C  183  RESET  JTFST  EQUAL  TO  VHE  MAXIMUM  ALLOWABLE  BLOCK  SIZE  SO 
C  ACCEPTABLE  BLOCK  3IZF  WILL  BE  DUMPED. 

1  P3  jTPSr=NfaMAX 


1 

-  .  ■  ■’  3 1  s 
1*4 
/  ^  H  _  ILL 


H  '  •  4  -  £ 

C  181  MAKE  ASSIGNMENTS  FOR  the  EFFICIENT  CONTROL  OF  THF  CODE  THAI  WILL  ,  jMp  193 

C  LATER  BE  USED  Tu  CLASSIFY  PARTICLE  DESCRIPTIONS  aS  TO  wkEThlW  DUMP  194 

C  THEY  APE  To  BF  DUMPED,  NOT  TO  PE  LUMPED,  OR  MERELY  BLANK.  AlS'O  DLO-h  195 

C  DECREASE  THE  aRRpOpRIATE  CLASS  COUNTER  BY  THE  NUMBFR  OF  DESCH1P-  DUMB  196 

C  TIONS  A B (' U T  TO  bF  DUMPED  (jTESTJ  AND  MAKE  An  APPROPRIATE  SETTING  DUMP  al7 

C  CP  THE  OUTPUT  TAPE  NAME  NTaP.  DUMP  iYB 

C  161  GO  TO  THP  APPROPRIATE  SELECTION  CODE  DUMP  199 

161  GO  TO  !1R,?0,21»?2.23].  JTESTl  Q,JMP  200 


C  DUMP  20i 

C  19  CODE  TO  MAKF  ASSIGNMENTS  FOR  THE  SELECTION  OF  GROUNDED  PARTICLES.  DUMP  20/ 

C  GROUNDED  PARTICLES  ARE  IDENTIFIED  0 Y  THE  PATTERN  IN  THE  DUMP  2  f  3 

C  SIGNS  Or  FMASI  1  AND  TP  t  J  UNDER  THE  CONDITION  THAT  TP  f  ]*1LIMIT  DUMP  204 

C  DOES  NOT  ECUAL  ZFRQ.  DUMP  205 

C  DESCRIPTIONS  OF  GROUNDED  PARTICLES  ARE  ALWAYS  WRITTEN  ONTO  THE  DUMP  206 

C  TRANSPORT  INTERMEDIATE  OUTPUT  TAPE  IPOUT  DUMP  2n 

19  NGsNG-JTEST  DUMP  200 

NT  APs IPOUT  DUMP  2Q9 

ASSIGN  3(JP  TO  N1  DUMP  2lH 

ASSIGN  A  0  (I  TO  N3  DUMp  4ll 

ASSIGN  2  TO  N?  dump  iX2 

ASSIGN  9?  TO  N4  DUMP  213 

GO  TC  99  DUMP 

c  DUMP  215 

C  20  CODE  TO  MAKE  ASSIGNMENTS  P OR  THE  SELECTION  OF  PARTICLES  THAT  ARE  DUMP  21a 

C  LOOT  TO  trf  INVESTIGATION.  THESE  PARTICLES  ARE  IDENT1FIFD  BY  A  DUMP  217 

C  NEGATIVE  FMASI  )  AND  A  TP|  }  WHICH  EQUALS  TLIMIT,  THE  TIME  WHEN  DUMP  218 


C  THE  TRANSPORT  OF  PARTICLES  IS  TO  CEASE.  LOST  PARTICLES  ARE  MFP~:LYDUMP  219 


C  WHITTEN  ONTO  THl  SYSTEM  OUTPUT  TAPE  TO  INFORM  THE  RESEARCHER  OF  DUMP  220 

C  THF  I R  RE-MOVAL  FROM  Th£  TRANSPORT,  DUMP  2?l 

20  NLOST=NLOST.JTEST  DUpp  222 

NTAP=1S0L'T  DUMP  223 

ASSIGN  500  TO  N1  DUMP  224 

ASSIGN  4J  TO  1.2  DUMP  225 

GU  TO  99  DUMP  226 

c  ,  DUMP  227 

C  21  CODE  TO  hake  ASSIGNMENTS  FOR  THE  SELECTION  OF  PARTICLES  ThaT  HAVE  DUMP  220 
C  GUNE  BFYOND  THE  IN-COKE  TOPOGRAPHY,  THESE  PARTICLES  ARE  I  DENT  I  -  DUMP  229 
C  F I  ED  BY  A  POSITIVE  FMASI  I  AND  A  NEGATIVE  TPI  I,  THEY  ARE  DUMP  230 

C  WRITTEN  ONTO  the  OFF-TOPO  TAPE  rjoTCPO!  BUT  IF  USE  OF  IOTOPO  HAS  DUMP  231 
C  BfcFII  SUPPRESSED  f  BY  SETTING  IF  1 2  J  S1 1 »  THEY  ARE  WRITTEN  ONTO  THE  DUMP  232 
C  SYSTEM  OUTPUT  TAPE  INSTEAD.  THIS  IS  TO  LET  THE  RESEARCHER  KNOW  DUMP  233 

C  THAT  HIS  SUPPRESSION  OF  IOTOPO  HAS  LED  TO  A  LOSS  OF  PARTICLES  FROMDUMP  2M 

C  THE  TRANSPORT  PROCESS.  DUMP  2^5 

21  IFt IC!?)-1]211,212,?11  DUMP  236 

212  NTAPrlSOUT  DUMP  237 

GO  TO  213  OUMP  238 

C  211  jTOP 1  *  1  INDICATES  THAT  THE  ONLY  OFF-TOPO  PARTICLES  THAT  REMAIN  IN  DUMP  239 
C  THF  TRANSPORT  ARE  THOSE  THAT  ARE  IN  CORE  iN  THE  PARTICLE  ARRAYS .  DUMP  240 

c  DUMP  241 

211  jTOPl=l  DUMP  242 

MTAPs I OTOPO  DUMP  243 

213  NTO=NTO-jTFST  DUMP  244 

ASSIGN  300  TO,  N2  DUMP  245 

ASSIGN  100  TQ  N3  OUMh  246 


14; 


ASSIGN  4?  TO  N4 

DUMP 

24? 

ASSIGN  42  TV  M 

DUMP 

248 

GO  TO  99 

DUMP 

249 

c 

DUMP 

250 

C  22 

CODE  TO  MAKE  ASSIGNMENTS  FOR  THE  SELECTION  OF  PARTICLES  THAT 

CAN 

DUMP 

251 

C 

NOT  BE  TRANSPORTED  FURTHER  UNTIL  THE  WIND  FIELD  IS  UPDATED. 

THESEDUMP 

252 

C 

PARTICLES  ARE  IDENTIFIED  By  A  POSITIVE  FHASI  )  AND  A  TP  t  I  EQUAL 

DUMP 

253 

c 

TO  ENDTIM.  NORMALLY  THEY  are  written  on  tape  iparot.but  when  THE 

DUMP 

254 

c 

USER  HAS  SFT  IC(4)*1  TO  SUPPRESS  JPAROT.  THEY  ARE  WRITTEN  ON 

THE 

DUMP 

255 

c 

SYSTEM  OUTPUT  TAPE  TO  NOTIFY  THE  USER. 

DUMP 

256 

22 

lFtICl4J-lS221.222.221 

DUMP 

257 

222 

ntap«isout 

JUMP 

258 

GO  TO  223 

DUMP 

259 

C 

DUMP 

260 

C  221 

JT I ME1*1  INDICATES  THAT  THE  ONLY  OUT-OF-WIND  PARTICLES  THAT 

REMAINDUMP 

261 

C 

IN  THE  TRANSPORT  ARE  THOSE  THAT  ARE  IN  THE  PARTICLE  ARRAYS. 

DUMP 

262 

221 

JTIME1«1 

DUMP 

263 

ntap*;parot 

DUMP 

264 

223 

NTI«NTI-JTEST 

DUMP 

265 

ASSIGN  600  TO  N2 

DUMP 

266 

ASSIGN  42  TO  M 

DUMP 

267 

G  3  TO  59 

DUMP 

268 

C 

DUMP 

269 

C  23 

CODE  TO  MAKE  ASSIGNMENTS  FOR  THE  SELECTION  OF  PARTICLES  THAT 

ARE 

DUMP 

270 

C 

BEYOND  THE  LIMITS  OF  THE  WIND  DATA  CURRENTLY  AVAILABLE  IN  CORE. 

DUMP 

271 

C 

THESE  PARTJH.ES  ARE  IDENTIFIED  BY  A  NEGATIVE  FMASS  )  AND  POSITIVEDUMP 

272 

C 

TP  I  I.  NORMALLY  THEY  ARE  WRITTEN  ONTO  TAPE  I0WIND,  BUT  WHEN 

THE 

DUMP 

273 

C 

U3EP  HAS  SFT  ;cm=l  TO  SUPPRESS  10WINC,  they  are  written  on 

THE 

DUMP 

274 

C 

system  OUTPUT  TAPE  TO  NOTIFY  THE  USER. 

DUMP 

275 

23 

IF{IC131*1]231.232.231 

DUMP 

276 

232 

NTAP* I SOUT 

DUMP 

277 

GO  TO  233 

DUMP 

278 

C 

DUMP 

279 

C  231 

JW I ND1«1  INDICATES  THAT  THE  ONLY  OUT-OF-WiND-FIELD  PARTICi.ES 

THAT 

DUMP 

280 

C 

REMAIN  IN  THE  TRANSPORT  ARE  THOSE  THAT  ARE  IN  THE  PARTICLE  ARRAYS, 

.DUMP 

281 

231 

JW I ND1* 1 

DUMP 

282 

ntap*icwinp 

DUMP 

283 

233 

nw*nh-jtest 

DUMP 

284 

ASSIGN  300  TO  N1 

DUMP 

285 

ASSIGU  100  TO  N4 

DUMP 

286 

ASSIGN  42  TO  N2 

DUMP 

287 

ASSIGN  42  TO  N3 

DUMP 

268 

C 

DUMP 

289 

C  9? 

initialize  for  blocking  sort 

DUMP 

290 

39 

IrtSET«0 

DUMP 

291 

I  CON»0 

DUK® 

292 

jeunaloft 

DUMP 

293 

jT«i 

DUMP 

294 

«i*  JB 

DUMP 

295 

C 

DUMP 

296 

C 

WRtTE  OUl  A  DUMP  SUMMARY 

DUMP 

297 

WRITE  MSOUT.41 JTEST. JTESTl , NFREE , NG , NLOST , NTQ , NT  I ,NW 

DUMP 

298 

c 

NOW  BEGIN  THE  BLOCKING  SORT 

DUMP 

299 

C  98 

CLASSIFY  THE  JTH  PARTICLE  AS  BLANh,  TO  BE  DUMPED,  OR  NOT  TO  HE 

DUMP 

300 

C 

DUMPED 

DUMP 

301 

9n 

lFtFMASljJI30.31.32 

DUMP 

302 

30 

GO  TO  NJ .1300.500.42) 

DUMP 

303 

32 

GO  >0  N2. [42.300,500,600! 

DUMP 

304 

300 

!rCTPi  J  5  333.35,35 

DUMP 

305 

33 

GO  TO  N3 » {400,100.42  ) 

DUMP 

3"6 

1W» 


35 

GO  TO  N*. 142,100] 

DUMP 

307 

4  0  0 

IF (TPt Jj+FNDTJM JiOO.42, 100 

DUMP 

308 

500 

I F ( TP [ J 1 -Tl I H I T }  42.100,42 

DUMP 

309 

600 

IF ( TP  £  Jj-ENDTIMI42.10C.100 

DUMP 

310 

C 

DUMP 

311 

C  31 

BLANK  NOT  to  BE  OUHPiD 

DUMP 

312 

31 

IF [  I  CON ] 42? »  901 . 424 

DUMP 

313 

C  4  2 

non-Blank  not  to  Rfc  dumped 

DUMP 

314 

42 

IF (  I  CON  1421.424, 424 

DUMP 

315 

C  100 

TO  BE  PUMPED 

DUMP 

316 

100 

IF [ ICOMI903.904.900 

DUMP 

317 

c 

DUMP 

318 

c 

ICONsU  FIRST  PASS 

DUMP 

319 

c 

!CON=*l  BOTTOM  LOOP 

DUMP 

320 

c 

ILONs-1  TOP  .[OOP 

DUMP 

321 

c 

DUMP 

322 

C  900 

MOVE  THF  JR- TH  LINE  TO  THE  BLANK  LINE 

[JBL] 

DUMP 

323 

900 

XPl JBL]*XPI JB] 

DUMP 

324 

YPUBLJ*YPtJB) 

DUMP 

325 

ZPI J9L 1 =  ZP I JB1 

DUMP 

326 

TP ( JRL 1  =  TP  t  JR  3 

DUMP 

327 

PSC JBLl»PSt JBJ 

DUMP 

328 

FMASl JBL)=FMASt JBI 

DUMP 

329 

jT  =  JT  +  1 

DUMP 

330 

FM AS  I  JR  I  =  0  .  0 

DUMP 

331 

IF [ JT-JTESTJ9U1. 901,1103 

DUMP 

332 

901 

JHL=JB 

DUMP 

333 

iCOMs-l 

DUMP 

334 

J  =  JT 

DUMP 

335 

902 

JB=JR-1 

DUMP 

336 

GO  TO  9b 

DUMP 

337 

C  904 

STORE  THE  J8-7H  PARTICLE  IM  TEMPORARY 

STORAGE  AND  SET  IRSET*1 

TO 

DUMP 

338 

C 

indicate  that  it  most  be  put  back  into 

the  particle  arrays  at 

THE 

DUMP 

339 

C 

END  OF  This  dump  o°eration. 

DUMP 

340 

904 

XPTSXPI JBI 

DUMP 

341 

YPT=YP[ JB] 

DUMP 

342 

7PTSZPI JB) 

DUMP 

343 

TPT=TPf JB] 

DUMP 

344 

PST=PSt JH] 

DUMP 

345 

FMAST=FMASl JB] 

DUMP 

346 

]RSET3  1 

DUMP 

347 

FMASl JB 5=0.0 

DUMP 

348 

GO  TO  901 

DUMP 

349 

903 

jT= JT+1 

DUMP 

350 

Js  JT 

DUMP 

351 

IF[JT-JTEST]98,98,110 

DUMP 

352 

424 

J  =  J~1 

DUMP 

353 

JB=J0-1 

DUMP 

354 

GO  TO  1104 

DUMP 

355 

C 

DUMP 

356 

C  421 

move  the  jt«th  line  to  the  blank  line 

l  JBL] 

DUMP 

357 

421 

XP I JBL ] *XP ( JT ] 

DUMP 

358 

YP  t  J8L ] ® YP [ JT  3 

DUMP 

359 

7PI JBLl«ZPf JT) 

DUMP 

360 

TP  I JBL ) "TP  t  JT  ) 

DUMP 

361 

PSI JBL J«PS( JT) 

DUMP 

362 

FMASl JBLJ-FMASIJT) 

DUMP 

363 

422 

jBL=JT 

DUMP 

364 

423 

I  CON  =  1 

DUMP 

365 

J*  JB 

DUMP 

366 

1*5 


OOOO  O^JOOOOOOO  ooo 


1104  JF t  jB-JTEST1110.li0.9a 
1103  jBL  *  JB 

C  110  IS  THE  TEMPORARY  STORAGE  LOADED.  YES  TO  1101 

110  iniRSETJllOl,  1102. 1101 
C 

C  1101  REPLACE  The  TEMPORARILY  STORED  PARTICLE  IN  THE  BLANK  LINE  ( J8L ) 

1101  XPIJBLI  «  XPT 
YPtJBLI  «  YPT 
ZPtJBLl  «  7PT 
TPCJBL1  «  TPT 
PSIJBLJ  *  PST 
FMAS l JBL  J  *FHA5T 

1102  CONTINUE 

RESET  KEYS  OF  HAPTICLES  BEING  DUMPED  JUST  BEFORE  PRINTING  OR 
DUMPING  THEM 
DO  131  J»l, JTEST 
iFlFMASUniOl.lH. Ill 
101  FMAStJI»-FMASIJ3 

111  IFITPI JJJ121.131.131 
121  TP  t  J  3  S"TP  f  J  J 

131  CONTINUE 


NOW  DUMP  THE  SELECTED  DESCRIPTIONS 
50  IF  THE  SYSTEM  OUTPUT  TAPE  IS  TO  BE  WRITTEN.  FIRST  SELECT  AND 
WRITE  AN  APPROPRIATE  TITLE. 

50  lFlNTAP-IsnUTI52.5l.52 

IF  THE  PRINTING  OF  LOST  PARTICLE  DESCRIPTIONS  IS  TO  BE  SU2RESSED, 
GO  TO  54 

51  lFlICt81.NE.03  GO  TO  54 
WRITE  1 1 SOIIT  ,  1 3  JTEST 
WRITE  (ISOUT.23 

GO  TO  [511. 51A. 513, 514. 5153. JTFST1 
511  WRITE  IIS0UT.9J 
GO  TO  516 

513  WRITE  1 1 SOtlT . 6 1 
GO  TO  516 

514  WRITE  I1S0UT.7) 

GO  TO  515 

515  WRITE  { I SOUT , 8  J 

516  WRITE  1 1 SOUT. 3 1 (XPf Jl.YPt J] ,ZPt J J.TP! J] ,PS- J I, FMAS! J! , J«i, JTEST J 
GO  TO  54 

52  WRITE  t  NTAP  3  JTfcST 
iFINTAP-IPnUT J 25?, 155. 252 

155  WRITE  INTAPltXPljl.rplJl.  TP ( J J , PS  1 1 .FMAS ! J ] , J»l , JTEST 1 
GO  TO  54 

252  WRITE  INT4P) (XP l Jl.YPt JJ.ZP I Jl, TPIJJ.PS l JI. FMAS I J I. J«l, JTEST J 
IF! IC161-1I54, 2521, 2521 

2521  WRITE  II  SOUT,  31  IXPI  Jl.YPt  JI.ZPIJJ.TPI  JI.PSI  Jl.FMASIJ!.,  J»l,  JTEST  J 

54  ADD  THE  NUMBER  OF  LINES  JUST  DUMPED  TC  THE  NUMBER  OF  LIN'S  EMPTY 
PREVIOUSLY  AND  THEN  ZERO  OUT  THE  IOP  OF  THE  LINES  JUST  DUMPED  TO 
AVOID  DOUBLE  COUNTING 
54  NFREE*NFREF*JTEST 
DO  54 i  J«l, JTEST 
541  FMASt J1«0 .0 
C 


DUMP 

367 

DUMP 

368 

DUMP 

369 

DUMP 

370 

DUMP 

371 

DUMP 

372 

DUMP 

373 

DUMP 

374 

DUMP 

375 

DUMP 

376 

DUMP 

377 

DUMP 

378 

DUMP 

379 

DUMP 

380 

DUMP 

381 

DUMP 

382 

DUMP 

383 

DUMP 

384 

DUMP 

385 

DUMP 

386 

DUMP 

387 

DUMP 

386 

DUMP 

389 

DUMP 

390 

DUMP 

391 

DUMP 

392 

DUMP 

393 

DUMP 

394 

DUMP 

395 

DUMP 

396 

DUMP 

397 

DUMP 

398 

DUMP 

399 

DUMP 

400 

DUMP 

401 

DUMP 

40? 

DUMP 

403 

DUMP 

404 

DUMP 

405 

DUMP 

406 

DUMP 

4C7 

DUMP 

406 

DUMP 

409 

DUMP 

410 

DUMP 

411 

DUMP 

412 

DUMP 

413 

DUMP 

414 

DUMP 

415 

DUMP 

416 

DUMP 

417 

DUMP 

418 

DUMP 

419 

DUMP 

420 

PUMP 

421 

DUMP 

422 

DUMP 

423 

DUMP 

424 

DUMP 

425 

DUMP 

426 

1U6 


0, 


} 

J 


I 


j 


ooo  oooonooo  b*  o  o  o  o  n  o  o  o 


lF[NFREE"NJ15l#152,152 

152  ARE  THERE  NOR  E NT  UGH  CONTIGUOUS  BLANK  LINES  IN  THE  TOP  OF  THfc 

PARTICLE  ARRAY  T*>  RECIEV6  THE  N  PARTICLES  THAT  ARE  WAITING  TO  BE 
READ  IN.  YfcS  TO  6  . 

152  f F  [ N- JTEST ) 6U . 60,154 


154 

154 


57 

57 

58 
59 

59 


CONSOLIDATE  N  BLANK  LINES  INTO  THE  TOP  OF  THE  PARTICLE  ARRAY 
jFR=NALOFT*1 
K  * JTEST  *1 
DO  56  jsK.N 
IF (FMAPlJI 157.56,57 
A  PARTICLE  MUST  BE  MOVED  DOWN 
JFR  =  JFR- 1 

IFIFMASI JFP])58,59,5fl 
JF( JFK-JTEST]b0.60.57 
OOVF  THE  PARTICLE 
XPI JFR]*Xp[ J) 

YPI JFRISYPI J] 

7PI  J!‘RI=ZP[  JJ 
TPl JFRjeTPt J] 

PS  f JFR]=PSf JI 
FHASIJFRlsFMASt J) 

FMASI J]=n.O 
56  CONTINUE 
60  RETURN 
END 

IRFTC  RDTOP  LIST. DECK  «  M94/2 
SUBROUTINE  RDTOPO  (LB  I 
11  OCT  66 

T.  W.  SCHWFNKF  TECHNICAL  OPERATIONS 
THIS  SUBROUTINE  MERELY  READS  ONE  TOPO 
SURSID.  IT  EXPECTS  READ  LIMITS  TO  BE 
ERROR  EXIT  IF  BAD  LIMITS 


DUMP  427 
DUMP  428 
DUMP  429 
DUMP  430 
DUMP  431 
DUMP  432 
DUMP  433 
DUMP  434 
DUMP  435 
DUMP  436 
DUMP  437 
DUMP  438 
DUMP  439 
DUMP  440 
DUMP  441 
DUMP  442 
DUMP  44J 
DUMP  444 
DUMP  445 
DUMP  446 
DUMP  447 
DUMP  448 
DUMP  449 
DUMP  450 
DUMP  451 
DUMP  452 
DUMP  453 


RESEARCH  SR  OUTPRO  CHAI 
BLOCK  INTO  ARRAYS  S  AND 
IN  COMMON  WORDS  ll.JJ.KK, 


RDTO 

RDTO 

RDTO 

NRDTO 

RDTO 

RDTO 

RDTO 

RDTO 


RDTO  9 


COMMON 

/SETl/ 

RDTO 

10 

1 

D  1  AM 

9 

DETID 

9 

IRISF 

9 

I  EXEC 

.  ISIN 

9 

ISOUT 

$ 

RDTO 

11 

SD 

» 

S»AR 

9 

SSAM 

9 

TME 

,  TMP1 

9 

TMP2 

9 

RDTO 

12 

5 

T2M 

9 

U 

9 

VPR 

9 

W 

.  X 

9 

Z 

9 

RDTO 

13 

WH  v 

1 

RMIN 

9 

IDISTR 

9 

SPARl 

.  SPAR2 

9 

SPAR3 

9 

RDTO 

14 

5 

SPAR4 

9 

SPAR5 

9 

SPAR6 

9 

SPAR7 

,  SPARfl 

9 

SPAR9 

RDTO 

15 

DIMENS 

ION  DE  T  I 

D  { 1  2  I  »  WrlY  (  40  J 

RDTO 

16 
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MAXIMUM  NUMBER  OF  ATMOSPHERIC  STRATUM  DESCRIPT-  LNK5 
IONS  THAT  THE  PROGRAM  CAN  ACCOMODATE  LNK5 
NUMBER  OF  PARTICLES  AT  TIME  BARRIER  MN  CORE)  LNK5 
NUMBER  OF  PARTICLES  AT  TOPO  BARRIER  (IN  CORE)  LNK5 
INTEGER  ZERO  LNK5 
NUMBER  OF  PARTICLES  AT  WIND  BARRIER  (IN  CORE!  LNK5 
ASSIGNED  GO  TO  VARIABLES  FOR  USE  IN  SPEEDING  UP  LNK5 
THE  COMPUTATION  OF  TIME  OF  FLIGHT  TO  LOCAL  CIRC-LNK5 
ULATION  SYSTEM  CELL  BOUNDARIES.  LNK5 
CANNED  COPY  OF  GROUNDED  PARTICLES  TAPC  1DENT-  LNK5 
IFIER  LITERAL  IIPOUT  I  LNK5 
CONTAINS  PROGRAM  NAME  IN  BCD  LNK5 
MID-RANGE  PARTICLE  SIZE  (MICRONS)  OF  THE  J-TH  l  NK5 
PARTICLE  SIZE  RANGE  DESCRIBED  IN  THE  PARTICLE  LNK5 
SIZE  DISTRIBUTION  ARRAYS  LNK5 
PARTICLE  SET  EXPANSION  PROGRAM  OF  INTERFACE  LNK5 
PROGRAM  RUN  IDENTIFICATION  LNK5 
TEMPORARY  STORAGE  FOR  PARTICLE  SIZE  OF  CURRENT  LNK5 
PARTICLE  LNK5 
MAXIMUM  CLOUD  RADIUS  DURING  CLOUD  RISE  LNK5 
SUBROUTINE  READS  IN  A  TOPO  DATA  »LOCK  LNK5 
SUBROUTINE  RIOSE  WIND  CIRCULATION  MODEL  LNK5 
ATMOSPHERIC  DENSITY  IN  THE  J-TH  TABULATED  LNK5 
STRATUM  LNK5 
FALLOUT  PARTICLE  DENSITY  |MKSI  LNK5 
TEMPORARY  STORAGE  LN«5 
STANDARD  DEVIATION  OF  PARTICLE  SIZE  DISTRIBUTI0NLNK5 
PARTICLE  SOLIDIFACATION  TEMPERATURF  IK)  LNK5 

LNK5 

MASS  OF  CONDENSED  PHASE  MATERIAL  AT  SPECIFICAT-  LNK5 
ION  TIME  LNK5 
TEMPORARY  STORAGE  LNK5 
TIME  OF  DETONATION  LNK5 
TRANSPORT  IDENTIFICATION  LNK5 
TIMES  OF  FLIGHT  TO  THE  FIRST  X» Y.AND  Z  MACRO  LNK5 
CELL  BOUNDING  PLANES  LNK5 
TIME  SPECIFIED  FOR  THE  TERMINATION  OF  TRANSPORT  LNK5 
TEMPORARY  STORAGE  FOR  LARGEST  OF  ITX1.TX2)  AND  LNKJ 
ITY1.TY2!  LNK5 
TEMPORARY  STORAGE  FOR  SMALLEST  OF  (TX1.TX2I  AND  LNK5 
ITY1.TY2]  RESPECTIVELY  LNK5 
TIME  OF  SOLIDIFICATION  LNK5 
TOPOGRAPHY  IDSNUFIER  LNK5 
FLOATING  POINT  TOPOGRAPHIC  DATA  ARRAY  LNK5 
MIN.  X-COORDINATE  FOR  J-TH  TOPO  DATA  BLOCK  I.NK5 
MIN.  Y-COOROINATE  FOR  J-TH  TOPO  DATA  BLOCK  LNK5 
INITIAL  (REGULAR!  GRID  INTERVAL  FOR  J-TH  TOPO  LNK5 
DATA  BLOCK  LNK5 
HEIIHEST  TOPO  HEIGHT  IN  THE  J-TK  TOPO  DATA  8L0CKLNK5 
PARTICLE  TIRE  STATUS  LNK J 
TIME  OF  FLIGHT  TO  POINT  OF  ENTRANCE  TO  CURRENT  LNK? 
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ooo  noooo 


TTOPO 
▼  w 

TMND 

TXlL»T*LU,TYLl» 

TX1.TX2 

TYLU 
TY1.TY2 
VPX, VPY 
VPZ 
VPZT 

VX.  VY,  VZ 
WGR I  NT [ K  J 
winuj 
WLLXtKl 
WURY(K) 

X,  Y 

XBL,  XBU 


LOCAL  HIND  CELL  LNK5 
HEIGHEST  TOPO  ELEVATION  iN  THE  IN  CORE  DATA  LNK5 
TOTAL  YIELD  LNK5 
TIME  OF  FLIGHT  TO  TIME  BOUNDARY  LNK5 
LOWER  AND  UPPER  AND  Y  COORDINATE  LIMITS  FOR  LNK5 

times  of  flight  to  the  two  x-plawes  bounding  thelnks 

CURRENT  local  CIRCULATION  CELL.  LNK5 
THE  AREA  ACCOUNTED  FOR  ON  THE  TOPuGRAPHY  T APE  LNK5 
SEE  TX1  RUT  FOR  Y-PLANES  LNK5 
TEMPORARY  STORAGE  FOR  X  AND  Y  PARTICLE  VELOCITY  LNK5 
NET  VERTICAL  VELOCITY  OF  PARTICLE  LNK5 
TEMPORARY  STORAGE  FOR  PRECEDING  VALUE  UF  VPZ  LNK* 
WIND  VELOCITY  COMPONENTS  lNK5 
GRID  INTERVAL  OF  KTH  WIND  DATA  BLOCK  LNK5 
WIND  FIELD  DESCRIPTION  IDENTIFICATION  LNK5 
HORIZONTAL  LIMITS  OF  KTH  WIND  DATA  BLOCK  LNK5 
HORIZONTAL  LIMITS  OF  KTH  WIND  DATA  BLOCK  LNK5 
TEMPORARY  STORAGE  FOR  PARTICLE  COORDINATES  LNK5 
LOWEF  ..NO  UPPER  X  COORDINATES  OF  MACRO  CELL  C0N-LNK5 


TAINING  “ARTICLE  LNK<5 

XGZ.YGZ  COORDINATES  OF  GROUND  ZERO  LNK5 

XIN.YJN.ZJN  X.YiA.VD  Z  INCREMENTAL  DISTANCES  FOR  USE  IN  LNK5 

CONSTANT  time  (NTERVAL  STEPPING  BELOW  MAXIMUM  LNK5 

TOPO  HEIGHT.  LNK5 

XP.  YP,  ZP  PARTICLE  POSITION  COORDINATES  LNK5 

XX.YY.ZZ  TEMPORARY  STORAGE  FOR  X.Y.AND  Z  PARTICLE  C00RDINLNK5 

*TES  LNK5 

YBL.YBU  SEE  XBL.  FOR  Y  COORDINATE  LNK5 

LNl\5 

******************************* **,LNK 5 


XP.  YP,  ZP 
XX, YY.ZZ 

YBL.YBU 


COMMON 

/SET1/ 

LNK5 

281 

1 

DIAM 

»  HE T I D [ 12  J , IRJSE 

9 

IEXfcC 

,  ISIN 

9 

ISOUT 

LNK5 

202 

2 

SD 

» 

SPAR 

,  SSAM 

9 

ThF 

,  TMP1 

9 

TMP? 

LNK5 

283 

3 

T2M 

» 

U 

.  VPR 

9 

W 

,  X 

9 

z 

LNK5 

264 

4 

WHY [ 40 I 

9 

RMIN 

.  IDISTR 

9 

SPARl 

»  SPAR? 

9 

JDONE  , 

LNK5 

285 

5 

SPAR4 

9 

SPAR5 

,  SPAR6 

9 

SPAR7 

,  SPARH 

9 

SPAR9 

LNK5 

266 

LNK5 

267 

*******  »  * 

* 

• 

******* 

** 

*LNK5 

2ea 

LNK5 

269 

COMmON 

/SET2/ 

LNK5 

2C  il 

1 

S 

sues i n 

GRINT 

BXLL 

»  BXLU 

9 

BYLL 

LNK5 

291 

2, 

HYLU 

TXLL 

TXLU 

TYLL 

»  TYLJ 

9 

XGZ 

LNK5 

292 

3. 

YGZ 

N9LCK 

HTOPO 

TTOPO 

,  I L  I  M 

9 

JL  I M 

LNK5 

293 

A. 

KLIM 

I  I 

JJ 

KK 

.  XP 

9 

YP 

LNK  5 

294 

5. 

ZP 

FMAS 

TP 

PS 

,  VX 

9 

VY 

LNK5 

295 

6, 

VZ 

1  L 

JL 

IBADD 

,  WGRINT 

9 

NSTRAT 

LNK5 

296 

7. 

WLLX 

wlly 

WURX 

WURY 

,  BOTHIT 

9 

JPARIN 

LNK5 

297 

0. 

IOTOPO 

I  OW I  NO 

I  hTOPC 

I  POUT 

,  IPARUT 

9 

JTOP1 

LNK5 

298 

V. 

JWIND1 

IRROR 

TLIM[T 

t 

ENDTIM 

.  1C 

9 

IBYPAS 

LNK5 

299 

1. 

JTOPJ 

NLOST 

NU 

NTO 

,  MI 

9 

NW 

LNK5 

300 

2. 

KAI.OFT 

JT1ME1 

NBMAX 

NFREE 

»  N 

9 

NCL 

LNK5 

301 

3, 

CRMAXY 

CRUMT 

NCR  T  YP 

BZ 

»  crminx 

9 

CRM  I  NY 

LNK5 

302 

4, 

UO 

SN 

CS 

NLOCIR 

.  DTLOC 

9 

ATEMP 

LNK5 

303 

5, 

RHO 

NA 

TU7 

DTMAC 

»  FHOG 

9 

CRMAXX 

LNK5 

304 

6, 

POPART 

LNK5 

305 

DIMENSION  TOPOLM {4,4]  , 

N i NTAR [ 4  1 

. IT0PLMI3,4| 

LNK5 

306 

DIMENSION  Still, 

10J  , 

SUBS  10(400 

, ICI18I 

LNK5 

307 

DIMENSION  XP  t  20  0  J 

9 

YP [ 200  J 

» ZP 1 200  1 

» FMAS ! 20 0  I 

LNK5 

3CB 

DIMENSION  TP [ 200  I 

, PS l  20  0  I 

, AT6MP 1260) 

»  RHO 1 ?6U I 

LNK5 

309 

DIMENSION  VX ( 1 5 C 0  i  , 

VY  { 1500  I 

*  v  z  1 1 5  n  o 

,  ILI7CI 

LNKe 

310 

c 

c 
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24 

27 

20 

29 

30 

31 


C 

C 

c 


0 1  HENS  I  OH 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 


JU70I 
WGRINTf'u) 
WURY I  7 0  3 
CRM  I  NX  f  6  I 
CRL'HT  C  6  I 


. I8ADDC70  3 

•  BOTH  I T  C  70  J 
,CRMAXX(61 
i NCRT YP ( 6  ) 


<  WURX  !  70  ' 

» WLLX 170) 

*  SN | 6 1 
»  CRM  I  NY ( 6 1 
«  UO I  6 ] 


*  WILY  1701 

•  CS  t  6  I 

, CRMAX Y I  6 i 


LNK5  311 
LNK5  312 
INKS  313 
LNK5  314 
LNK5  315 
LNK5  316 


DIMENSION  CR I D ! 12 3 
DIMENSION  W I D ( 12  J 
F0RMATI12A6J 
F0RMAT[///25X,56H**** 


a 

9 

in 

11 

12 

13 

14 

15 

16 
17 

10 

19 

20 
21 
22 
23 


LNK5  327 
LNK5  328 
LNK5  329 
INK5  330 


*********************** *****.**.***.*.,.****LNK5  317 

LNK5  318 

*PSEIDll21  < T I D { 12 1  LNK5  319 

» TOP  I D 1 1 2 )  LNK5  320 

INKS  321 

INITIAL  CONDITIONS  (FIREBALL!  IDENTIf ICATI0LNK5  322 
IN  **W25X.12A6,//25X.3?H.***  CLOUD  RISE  IDENTIFICATION  >***/25LNK5  323 
2X.12A6,//25X,49H*«**  PARTICLE  SET  EXPANSION  IDENTIFICATION  ****  LNX5  324 
3  /25X.12A6//25X.63H****  THIS  RUN  OF  THE  TRANSPORT  MODULE  HAS  LNK5  325 

4GIVEN  THE  FOLLOWING  IDENTIFICATION  ****/25X» 12A6///25X, 28H****  0LNK5  326 
5THER  INPUT  DATA  ««**1 
FORMAT { 1 6  v > 12A6 ) 

F0RMATII5 

F0RMATI2F1  53  un(V, 

F0RMAT(lHl,24X.M8HATM0SPHnRIC  PROPERTIES  FOR  FALL  RATE  CALCULAT I 0NLNK5  33i 
1//25X16HHE I GHt  Zi  aUTTOM4X,9HVISC0SITYl2X,7HDENSITY/26Xl0HOF  STRATLNK5  332 
2UM/25X1 6HMETERS  ABOVE  MSL6X5H ( MKS J 15X5HI MKS 1 // J  LNK5  333 

FORMAT (/ 15X7 1HTHE  CONTROL  VARIABLE  ARRAY,  iCtJI.  HAS  BEEN  GIVEN  THLNK5  334 
IE  FOLLOWING  VALUES.)  LNK5  335 

FORHAT115X. 18141  LNK5  336 

FORMAT I/15X28HTHF  TRANSPORT  TIME  LIMIT  IS  F12.3I  LNK5  337 

FORMAT ( 18X63H  IN  THIS  RUN  WE  ASSUME  A  PLANAR  DEPOSITION  SURFACE  ATLNX5  333 
T  ELE  VAT  I  ONFlO  ■  5 3  LNK5  339 

FORMAT (42H0PAKT ICLES  REMAINING  ON  TIME  BOUNDARY  TAPE)  LNK5  340 

FORMAT (6 [ 1X,E13 . 6 3 3  LNK5  341 

F0RMATlA6,4Fin.3.I3I  LNK!i  342 

FORMAT  I29H0  WRONG  TAPE  REEL  ON  DRIVE  121  (_NK5  343 

FORMAT  1 42H0PLEASE  MOUNT  CORRECT  TAPE  AND  PRESS  STAPTl  LNK5  344 

F0RMATI/18X.35HIDENTIFICATI0N  FROM  T 0P06RAPHY  TAPE18X12A63  LNK5  345 

FORMAT ( 25X, E13 . 5, 5X . E13 .5, 6X , El3 , 5 1  LNK5  3<6 

FORMAT l 58HOTRANSPORT  IS  COMPLETED.  INTERMEDIATE  PESULTS  ARE  ON  TAPLNK5  34; 


LNK5  348 
AT  TLNK5  349 
LNK5  350 
LNK5  351 
LNK5  352 
LNK5  353 
A  R  TLNK5  354 
I  0LNK5  355 


IE  12  J 

FORMAT [44H0PLEASE  PILE  PROTECT  THE  REEL  ON  TAPE  DRIVE  I2.25H 
ihE  End  of  this  Rijn,  j 

FORMAT  1 6F10 .5 I 
FORMAT  1 18  1 4  J 
F0RMATIA6.I3.4E12.5, 15] 

FORMAT  1 1H1///51X19H*  ********  *//l2Xl()lHT  HE  D  E  P 
1MSNT  OF  DEFENSE  FALLOUT  PREDIC 
k  H  S  Y  S  T  E  M.//51X.19H*  ********  *////52X, 16HTRANSP0RT  LNK5  356 
3M0DULE///55X, UNPREPARED  BY/43X, 34HTECHNICAL  OPERATIONS  RESEARCH, ILNK5  357 
4NC./52X»1 7HBURL I NGTON,  MASS . // //29X. 63H****  SUMMARY  OF  INPUT  I DENLNK5  358 
5TIFIERS  AND  INITIAL  CONDITIONS  ***•!  LNK5  359 

FORMATI//15X16HTOPOGRAPHIC  DATA!  L N K 3  360 

F0RMATI//15X13HP ARTICLE  DATA/18 X28HOENS I T Y  OF  FALLOUT  PARTICLESF20LNK5  361 
1 » 3, 2X /7HK8/M**3 J  LNK5  362 

FORMAT {//15X9HWIND  DATA/)  LNK5  363 

F0RMAT(18XrA6,lX,l6,4llX#El3,5I,lX.I10)  LNK5  364 

F0RMAT118X, Aft, 4I1X.F13. 51,161  LNr«  36- 

F0RMATI6F12.3)  LNK3  366 

LNK5  367 


DATA  HTST.DTST, BLANK, POUTfENOWFD/OMlMTO^Of 6HI PARI N,6H 

& 


,*******LNK5  360 
LNK5  369 
, 6HIP0ULNK5  370 


IT  , 6HEND  OF/ 


LNK5 
LNK5 
»v*LNK5 


371 

372 

373 

374 


c 

LNK5 

375 

c 

THIS  BYPASSES  INITIALIZATION 

CODING 

AFTER 

THE 

FIRST 

PASS 

LNK5 

376 

NUI  =  0 

LNK5 

381 

IF  UWYPAS-91B2731201.200 

.201 

INK  5 

377 

201 

1 8VPAS  =  918??3 

LNX.5 

378 

c 

initialize 

LNaS 

379 

JDONE=0 

LNK5 

380 

I  pah i n= ii 

LNKS 

382 

I0T0P0=4 

LNK& 

3!  3 

r  ow i nu= 3 

LNK5 

384 

IHTOPOslO 

LNK5 

365 

I Pf)UTs  V 

LNK5 

386 

IPAR0T=1 

LNKS 

387 

JTOP1=0 

LNK5 

338 

J  W  I  N  D 1  =  0 

LNK5 

389 

jTIMElnl 

LNK5 

390 

ENOTIMsU.D 

LNK5 

391 

jF  TOOUsl 

LNK5 

392 

waT0P0=4 

LNK5 

393 

DTMAC  =  1II. 

LNK? 

394 

nTLOC=lU. 

LNK5 

395 

NALOFT=200 

LNK5 

396 

NBMaX=150 

LNK5 

397 

NFREE=NALOFT 

LI.*  5 

398 

N  L  0  S  T  8  0 

LNK5 

399 

NSTHAT  S70 

LNK5 

400 

NH  =  0 

LNK5 

401 

NTO=0 

LNK  5 

402 

NG  =  0 

LNK5 

403 

c 

LNK5 

404 

c 

ILIM.JLIH, KLIM, ARE  LIMITS 

ON 

TOPO  ARRAYS. 

SEE 

DIMENSION. 

LNK5 

415 

ILIHslO 

LNKS 

406 

JLIM=10 

LNKS 

407 

K  L  I  H  =  4  0  0 

LNK5 

4C8 

DO  2011  J=1 # NALOFT 

LNK5 

409 

2011 

FMASI J!"0. 0 

LNK  e 

410 

C 

LNKS 

411 

c 

READ  IDENTIFICATION  FOR  TRANSPORT 

LNK5 

412 

READ  (ISiN,l)[TlDUI,J  =  l. 

1 21 

LNK5 

413 

c 

LNK5 

414 

c 

READ  CONTROL  DATA  FOR  TRANSPORT 

LNK  5 

*  15 

c 

THESE  CONTROL  PARAMETERS 

ARE 

FOR  USE 

AS  SIMPLIFYING 

SWITCHES 

LNKS 

i.6 

REAn  f I S I N# 21 3 I I C I J  J  * J  =  1 » 

181 

LNK5 

417 

READ  II S ! i'J# 31 3 TL IM I T 

LNK5 

418 

c 

LNK5 

-  x  9 

c 

rewind  all  tapes  involved 

IN 

TRANSPORT 

LNK5 

420 

Ir  (  ICm-13150.151,151 

LNK5 

421 

150 

REWIND  I MTOPO 

LNK5 

422 

151 

lFtICI23-lJ152.153.153 

LNK5 

423 

152 

REWIND  10T0P0 

LNK  5 

424 

153 

IF ( ICI3J-1J154.155.155 

LNK5 

425 

154 

RFW1N0  IOWIND 

LNK5 

426 

155 

IF(  IC14  J- U156. 157. 157 

LNK5 

427 

156 

REWIND  iparot 

LNK5 

428 

157 

CONTINUE 

lNK5 

429 

REWIND  IPARIN 

LNK5 

4j0 

155 


ooooo  ooooo  oo  ooo  non  o  o  o 


2C6 

198 


C 

C  2C2 
202 


REWIND  I  POUT 

CHECK  IDENTIFICATIONS  ON  T0P0  AND  PARTICLE  INPUT  TAPES 
IF  IICCl  1*1 )158 *203; 203 
READ  I IHT0PD1DENTI 
RTSTtANDIDENTI.COHPUHTSTn 
1FIRT8T}20?*2031|202 

WRONG  TAPE  AS  IHTOPO 
PRINT  14, IHTOPO 
WRITE  CISOUT, 14] IHTOPO 
PRINT  15 
REWIND  IHTOPO 
PAUSE 

REWIND  IHTOPO 
GO  TO  206 

294  WRONG  TAPE  AS  IPARIN 
204  PRINT  l<».t«»4RlN 

WRITE  1 1 SOUT , 14 3 IPARIN 
PRINT  15 
REWIND  IPARIN 
PAUSE 

REWIND  IPARIN 
GO  TO  207 

2031  READUHTOPOJTXLL,TXlU,TYLL.TYLU,NBLCK 

203  CONTINUE 

207  READ  I IPARINIOENTI 

RTST«ANDlDFNTT,COMPLtDTST)J 

IFIRTSTJ?04,208,?Q4 

208  READ  ARBITRARY  72  CHARACTER  F J REBALL. CLOUD-RI SE , AND  PARTICLE 
ACTIVITY  IDENTIFICATIONS  FROM  JPARIN 
208  READ  CIPARINI  FW . SSAM, SLDTMP , TMSD, SI*HA,TW,HOB, NSP. XGZ, YGZ, TGZ.PZ 
1  NCL.RADMAX 

READ  IIPARIN][PSEID;jJ,J«l,12) 

READ  I  IPARIN] ECRIDIJI » J*1 fr 12 J 
READ  i IPARIN! IDETJDI Jj , J*1 , 12 1 

READ  density  of  fallout  particles 

ropart  IS  particlf  density  in  kilograms  peh  cubic  meter 

read  I ipariniropart 

READ  PARTICLE  SI2S  MASS  and  AC7IVITV  0 1 STRIBMT IONS 
READ  IIPARIN1NPS 

VX!  I  is  USED  To  TEMPORARILY  STORE  THE  S'  FACE  TO  VOLUME  RATIO 
ARRAY  sv 

VYr  J  IS  USED  TO  TEMPORARILY  store  the  a  ARRAY  FROM  PSE  (LINK4I 
V2t  I  IS  USED  To  TEMPORARILY  STORE  THE  PAL T  ARRAY  FROM  PSE ILINK4 

read  1 1  par  in  j  ips  t  n,vYm*vzm*vxm*ui*NPsi 

READ  ATMOSPHERIC  DENSITY  AND  VISCOSITY 

A  TABLE  OF  ATMOSPHERIC  VISCOSITY  I ATEMPI Jt  J  AND  DENSITY  IRhO(J1| 
STATED  IN  THE  HKS  SYSTEM  PoR  200  METER  STRATA  STARTING  FROM  1100 
METERS  BELOW  MOL 
ASAD  IIPARININA 

READ  f IPARIN J {AT«MPtjl.RMOiJS,J*i,NA I 


LNK5  431 
LNK5  432 
LNK5  433 
LNK5  434 
LNX5  435 
LNK5  436 
LNK5  437 
LNK5  430 
LNK5  439 
LNK5  440 
LNK5  441 
LNK5  442 
LNK5  443 
LNK5  444 
LNK5  445 
LNK5  446 
LNK5  447 
LNK5  448 
LWK5  449 
LNK5  450 
LNK5  451 
LNK5  452 
I.NK5  453 
LNK5  454 
I.NK5  455 
LNK5  456 
LNK5  457 
LNK5  458 
LNK5  459 
LNK5  460 
LNK5  -61 
LNK5  462 
LNK5  461 
LNK5  464 
,LNK5  465 
LP*5  466 
LN  5  467 
LNK5  468 
LNK5  469 
LNK5  470 
LNK5  471 
LNK5  472 
LNK5  473 
LNK5  47*. 
LNK5  <75 
LNK?  476 
LNK5  477 
LNK5  478 
LNK5  479 
LNK5  480 
JLNK5  401 
LNK5  482 
LNK5  483 
LNK5  -84 
LNK5  485 
LNK5  486 
LMK5  4" 7 
LNK9  488 
409 
LNK5  490 


15^ 


n 


160 


159 


171 

170 


compute  constant  for  fall  rats  calculations 

FR<?G»1.3066667E-l7*ROPART 

READ  ARBITRARY  TOPO  IDENTIFICATION 
IF  UCil)-11159,160.160 
READ  I  IS1N.201TTOPO 
GO  TO  2U5 

READ  lIHTCP0IIT0PIDtJ].J=1.12] 

READ  TOPO  TABLE  Of  CONTENTS 
READ  I  IHTOPOITOPOLM 

READ  i ihtopoi itoplm 

FIND  HIGHEST  TOPO  HEIGHT 

HTOPO=0.0 

DO  170  J*1 , N8LCK 

IFIHTOPO-TOPOLMU#  J 11171 .1 70 .170 
HT0PC  =  T0P01  h  [  4  >  J  ) 

CONTINUE 


READ 

call 


FIRST  TOPO 
RDTOPO  III 


DATA  BLOCK 


205 

205 


2055 


2054 


PUT  AN  IDENTIFICATION  ON  THE  TRANSPORT  INTERMEDIATE  OUTPUT  TAPE 
READ  l I S I N , 1 1 IWIDIJJ . J  =  1 > 1 2 ) 

WRITE  UPOUTJPOUT 

WRITEUPOUT  1  FWfSSAM,SLDTMP,TMSD»SIGMA,',W,HOB,NCL,TLIMlT,eZ. 
t  ROPART.XGZ.YGZ.TGZ.RADMAX 

WRITE  II  POUT]  IDETIDIjJ,  J-1,12I* ICRIDI JI ,J=i,121, IPSEIDI J),J«l,i; 
1# [TI01JJ»J*1#1?I, tWlD(J)*J=l,12J 
WRITE  IIPOUTJNPS 

WRITE  I IPOUT) (PSt JJ. VYI JI.VZIJI.VXI Jl » Jal.NPSI 

lFUClll-112054, 2055. 2054 

continue 

WRITE  £ l POUT  1  tbLANK, J  =  1,12J 
GO  TO  2056 

WRITE  UPOUTHTOPim j), J=1,12J 


2056 


(CRIDI J|. uel,12J 


205? 

2051 


2053 


2057 


PRINT  TRANSPORT  OUTPUT  HEADING 
WRITE  IIS0UT.23] 

WRITE  MS0UT.2J  tDETI0(J].J«l,l21, 

121. ( T I D I J I # J=1 . 121 
WRITE  t I SOUT  t 7  J 
WRITE  f ISOUT.B1 ( ICt Jl. J*l.l8J 
WRITE  f ISOUT » 9 1 TL IM J  T 
WRITE  IISOUT.27 JROPART 

WRITE  I IS0UT,29lnENTT,NSP,XGZ.YGZ.TGZ.BZ»NCL 

WRITE  IISOUT, 24J 

in  ICllJ-11205i» 2052, 2051 

write  (ISOUT. lOJTTOPO 

GO  TO  2053 

WRITE  l ISOUT, 16 J [TOP  ID t J J  * J«1 .121 

WHITE  t  !SOUr,30lDENTl.TXLL,TXLUtTYLL,TYLUtNBlCK 

WRITE  (ISOUT, 2BJ 

WRITE  [ ISOUT, 33 lWlD(J] ,J=1.12J 

WRI  TEl ISOUT, 6) 

NSs-ilOO.O 
DO  2057  J«1,NA 

WR.TEl  ISOUT.17IHS.  ATEMPUt.RHOi  J) 

HS=HS*20C . 0 
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LNK5 

491 

LNK5 

492 

LNK5 

493 

LNK5 

494 

LNK5 

495 

LNK5 

496 

LNK5 

497 

LNK5 

498 

LNK5 

499 

LNK5 

500 

LNK5 

501 

LNK5 

502 

LNK5 

503 

LNK5 

504 

LNK5 

505 

LNK5 

506 

LNK5 

507 

LNK5 

508 

LNK5 

509 

LNX5 

510 

LNK5 

511 

LNK5 

512 

LNK5 

513 

LNK5 

514 

LNK5 

515 

LNK5 

516 

LNK5 

517 

LNK5 

518 

IILNK5 

519 

LNK5 

520 

LNK5 

521 

LNX5 

522 

LNK5 

523 

LNK5 

524 

LNK5 

525 

LNK5 

526 

LNK5 

527 

LNK5 

528 

LNK5 

529 

LNK5 

530 

1LNK5 

531 

LNK5 

532 

LNK5 

533 

LNK5 

534 

LNK5 

535 

LNK5 

536 

LNK5 

537 

LNK5 

538 

LNK5 

539 

LNK5 

540 

LNK5 

541 

LNK5 

542 

LNK5 

543 

LNK5 

544 

LNK5 

545 

LNK5 

546 

LNK5 

547 

LNK5 

548 

LNK5 

549 

LNK5 

550 

no  o  o  o  o  no  ooo  ooo  n  n  nn  oooo 


NO  TO  S00 


LNK5  551 

****************************************************** *************LNK5  552 

LNK5  553 

ANY  MORE  TINE  INTERVALS  TO  BE  DEALT  WITH.  NO  TO  500  LNK5  554 

jnTLlMlT-ENOTIHJ5OO.5O0.4OO  LNK5  555 

LNS5  556 

HAKE  FINAL  TRANSPORT  PROGRAM  OUTPUT  AND  COMMENTS  LLK5  557 

SET  N-NALOFT  TO  CAUSE  DUMPP  TO  CLEAR  OUT  THE  ENTIRE  PARTICLE  ARRLNK5  558 

LNK5  559 

N'NALOFT  LNK5  560 

CALL  DUMPP  LNK5  561 

LNK5  562 

ARE  AW Y  PARTICLES  ON  THE  TIME  BOUNDARY  TAPE.  YES  TO  700  LNK5  563 

»•••**•«*•***«*••  temp  LNK5  564 

JT!ME1«0  LNK5  565 

IFUTIMEI  1501,501.700  LNK5  566 

LNK5  567 

PRINT  ANY  PARTICLE  DESCRIPTIONS  THAT  REMAIN  ON  THE  TIME  BOUNDARY  LNK5  568 

OVERFLOW  TAPE,  IPAROT  LNK5  569 

WRITE! IPAROTlNUL  LNK5  570 

REWIND  IPAROT  LNK5  571 

WRITE  IISPUT.lll  LNK5  572 

READ  I IPAROTlN  LNK5  573 

IFINJ501.501.701  LNK5  574 

READ  C IPAROT 1 t  XP  t J  J . YP  f J J . 2P U ] , TP l J I » PS U 1 , F MAS f J ] . J»l, N )  LNK5  575 

WRITE  IISOUT.121 t XP IJ J , YP! J J ,ZP t Jl .TPI J J ,PSI Jl .FMASI J J , J*1,N|  LNK5  576 

OO  TO  702  LNK5  577 


ARE  AW Y  PARTICLES  ON  THE  TIME  BOUNDARY  TAPE. 

»••••*•**•*«*«*••  temp 

JT!ME1«0 

IFUTIME1J501.501.700 


C 

C  400 
400 


JI0FTC 


SIBFTC 


WRITE  A  FINAL  ZERO  BLOCK  COUNT  AND  EOF  ON  IPOUT 
WRITE  IIPOUTJNUL 
REWIND  IPOUT 
WRITE  ( ISOUT , 1 8 1 IPOUT 
PRINT  18. IPOUT 
PRINT  19. IPOUT 

)  SKIP  OVER  ANY  UNUSED  WIND  DATA 

A  CARD  CONTAINING  PENS  OF  WIND  FIELD  DATA#  MUST  MARK  THE  END  OF 

THE  WIND  FIELD  DATA  DECK 

READ! ISIN.l JRTST 

R7ST»ANDtENDWFD.C0MPL!RTSTl) 

lFfRTSTj5010, 800. 5010 

PREPARE  TO  CALL  OUTPUT  PROCESSOR  PROGRAM 

IEXEC*2 

RETURN 

GET  OR  OTHERWISE  PRODUCE  THE  NEXT  TIME  INTERVALS  WIND  FIELD. 

NT  I  *0 
JEXEC  «  1 
RETURN 
END 

RETURN 

I  LNK6  LIST, BECK. M9472 
SUBROUTINE  LINK6 
CALL  MKWIND 
RETURN 
END 

;  MKWIN2  LIST, DECK, H94/2 
SUBROUTINE  MKWIND 
28  NOVEMBER  1966 


LNK5  569 
LNK5  570 
LNK5  571 
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T;  W.  SCHWENKH  tECHNICAL  OPERATIONS  RESEARCH  SR  MKWINU  MK2  MKWI 


MKWJ 

I**..***.***,...,*..*,, 4 ».*,»....*,„,*»,*****•*«.*»•*••. ..•»»t*«^,HKW I 

HKUI 

THIS  SUBROUTINE  FORMS  A  HORIZONTALLY  AND  VERTICALLY  VARIANT  HIND  MKWJ 
DESCRIPTION  IN  CORE  ON  THE  BASIS  OF  INPUTS  FROH  THE  SYSTEM  INPUT  MKWI 
TAPE.  INPUTS  ARE  AS  FOLLOWS..  MKWJ 

1  CONTROL  VARIABLES  ENDTlM  ,  WHICH  GIVES  THE  TIME  AT  WHICH  HKW] 

the  following  data  cease  to  be  valid  ,  alpha  ,  which  is  a  mkwi 

WEIGHTING  FACTOR  TO  BE  APPLIED  TO  VERTICAL  DISTANCES#  BETA,  HKWI 
WHICH  IS  A  WEIGHTING  FACTOR  TO  BE  APPLIED  TO  HORIZONTAL  HKWI 

C I STANCFS#  AND  NN  ,  WHICH  SPECIFIES  THE  NUMBER  OF  NEAREST  MKWI 

VECTORS  TO  RE  USED  IN  ESTIMATING  THE  WIND  VECTOR  AT  A  GRID  MKWI 

POINT.  MKWI 

2  WIND  GRID  SPECIFICATIONS  IN  THE  FORM  BOTHI T I J ) . WGR1 NT  I J J ,  HKWI 

WLLXlJ] » WLL Y [ J  J , WURX I J  J  #WURY[J)  I6F10.3)  MKWI 

WHERE  BOTHI T ( J ]  IS  THE  HEIGHT  OF  THE  BOTTOM  OF  THE  J-TH  ARHAY,  MKWI 
WGRINTtJ]  IS  the  GRID  INTERVAL  TO  BE  USED  IN  THE  J-TH  LAYER,  MKWI 
AND  WLLXtJ],  WLL Y I J 1 , WURX I J I , WURY ( J)  ARE  LOWER  LEFT  CORNER  AND  MKWI 
UPPER  RIGHT  CORNER  LIMIT  COORDINATES.  MKWI 

3  WIND  '/ECTOR  DATA  IN  THE  FORM  i  BOTHI  T  I  J I ,  ZS  I  J I ,  XS  I  JI  ,  YS  ( J )  ,  MKWI 

SX [ J] ,SY [ J] , SZ  t  J  J  MKWI 

(6F12.3J  WHERE  ZSIJ)  IS  THE  HEIGHT  OF  THE  J-TJ  VECTUR,  MKWI 

♦SX  I J 1  IS  THE  EASTWARD  POINTING  COMPONENT  OF  THE  J-TH  VECTOR,  MKWI 
♦S V C J I  IS  THE  NORTHWARD  POINTING  COMPONENT  OF  THE  J-TH  VECTOR,  MKWI 
♦SZ  f  J 1  IS  THE  UPWARD  COMPONENT  OP  THE  J-TH  VECTOR,  XSIJJ  IS  THEMKWJ 
EAST-WEST  COORDINATE  OF  THE  J-'i'H  VECTOR,  AND  YSIJJ  IS  THE  MKWI 

NORTH-SOUTH  COORDINATE  OF  THE  J-TH  VECTOR.  MKWJ 

THE  LAYER  READING  OPERATION  IS  TERMINATED  WHEN  BOTH1TIJJ  >  MKWI 
999999.  OR  MORE  IS  ENCOUNTERED.  THE  VECTOR  READING  OPERATION  MKWJ 
IS  TERMINATED  WHEN  ZS t J J »999999 . 0  OR  MORE  IS  ENCOUNTERED.  MKWI 

A  WIND  FIELD  TAPE  IS-  NOT-  WRITTEN  BY  THIS  PROGRAM.  MKWI 

MKWI 

>*•»•*»**•#•*••*«*•••  glossary*** ************* *********************mkwi 

MKWI 

ALPHA  A  WEIGHTING  FACTOR  FOR  THE  VERTICAL  DISTANCES  MKWI 

beta  a  weighting  factor  for  the  horizontal  distances  mkwi 

BIG  AN  ARBITRARILY  LARGF  NUMBER  MKWI 

DM  DISTANCE  BETWEEN  THE  CURRENT  GRID  POINT  AND  THE  MOST  MKWI 

REMOTE  OF  THE  NEAREST  NN  DATA  POINTS  MKWI 

DY2UJ  SEE  OZ2IJJ.  FOR  Y-DJRECTION  BUT  UNWEIGHTED  MKWJ 

DZ2IJ1  SQUARE  OF  WEIGHTED  Z  DISTANCE  BETWEEN  GRID  POINT  AND  MKwl 

THE  J-TH  DATA  VECTOR  MKWI 

GIB  AN  ARBITRARILY  SMALL  NUMBFR  MKWI 

I S I N  SYSTEM  INPUT  TAPE  NUMBER  MKWI 

ISOUT  SYSTEM  OUTPUT  TAPE  NUMBER  MKWI 

JM  FINAL  IHIGHERJ  X  INDEX  .  SEE  JLL  MKWI 

JJH  NUMBER  OF  X  ROWS  IN  OUTPUT  GRID  MKWI 

JLL  INITIAL  [LOWER!  X. INDEX  FOR  PRINTING  PLANE  OF  THE  MKWI 

WIND  FIELD  ARRAY  MKWI 

JTOPJ  THE  NUMBER  OF  WIND  STRATA  IN  THE  DESIRED  WIND  FIELD  MKWI 

DESCRIPTION  MKWI 

JTOPV  THE  TOTAL  NUMBER  OF  WIND  DATA  POINTS  BEING  USED  MKWJ 

K  USED  BY  MKWIND  AS  A  5TRATUM  INDEX  AT  PRINTING  TIME  MKWI 

KK  Y-DIRECTION  INDEX  AT  PRINTING  TIME  MKWI 

NADU!  INDICES  OF  DISTANCES  BETWEEN  THE  CURHENT  GRID  POINT  MKWI 

AND  THE  JTH  DATA  POINT  MKWI 

NADT  INDEX  OF  THE  NAD  THAT  CONTAINS  THE  ADDRESS  OF  THE  D2  MKWI 

WHICH  IS  THE  LARGEST  OF  NEAREST  f:N  DATA  POINTS  MKWI 

NCODE  IDENTIFICATION  NUMBER  FOR  THE  METHOD  OF  COMPUTATION  TO  MKWI 


3 

4 

5 

6 
7 

a 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 
4  A 
4  ) 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 


BE  USED  IN  TRANSLATING 

THE  WIND 

DATA  INTO 

THE  WIND 

MKW I 

63 

ARRAYS 

MKW  I 

64 

THE  NUH3ER  OF  NEAREST 

3ATA  VECTORS  THAT 

THE  USER  W I 8HE8MKW I 

65 

TO  BE  USED  IN  COMPUTATIONS 

MKW  1 

66 

TEMPORARY  STORACE 

MKW  I 

67 

■;  male  or  GRID  INTERVAL 

WGRINTl JW] 

MKW  I 

68 

X  COORDINATE  OF  GRID  POINT 

MKW  I 

!)  9 

KLIM  AN  X-D1RECTION  LIMIT  TOR  TESTING  FOR  THE 

completion  or 

MKW  I 

70 

A  ROW  IN  THE  WIND  FIELD 

ARRAY 

MKW  I 

7  i 

VG  Y  COORDINATE  OP  GRID  POINT 

MKW  J 

72 

YLIM  SEE  XLIM.  FOR  THE  Y- 

DIRECTION 

MKW  I 

73 

?G  Z  COORDINATE  OF  GRID  POINT 

MKW  1 

74 

MKW  I 

75 

• 

* 

*MKWI 

76 

MKW  I 

77 

COMMON  /SETS./ 

MKW  I 

78 

DIAM  .  DET1D  .  IRISE 

I  EXEC 

.  ISIN 

9 

ISOUT  , 

MKW  J 

79 

3D  .  SPAR  ,  SS AM 

THE 

.  TMP1 

9 

TMP2  , 

MKW  I 

00 

T2M  *  U  »  VPR 

W 

.  X 

0 

Z 

HKW  I 

01 

WHY  •  RM I N  .  IDISTR 

8PAR1 

.  SPAR2 

9 

SPARS  . 

MKW  I 

02 

SPAR-5  .  SPARS  .  SPAR6 

SPAR7 

.  SPARS 

9 

SPAR9 

MKW  I 

83 

•JIMENSJOM  DETIDI 12  J.KHYMO  J 

HKW  I 

04 

COMMON  / 3ET2/ 

MKW  I 

05 

S  .  SUBS  ID  .  GPINT 

BXLL 

.  BXLU 

9 

BYLL 

MKW  I 

06 

BYLU  *  TXLL  *  TXLU 

TYLL 

.  TYLU 

9 

XGZ 

MKW  I 

07 

YGZ  .  NBLCK  .  HTOPO 

TTOPO 

.  IL  I  M 

9 

JLIM 

MKW  I 

80 

,  KLIM  .11  .  JJ 

KK 

.  XP 

9 

YP 

MKW  I 

89 

2P  .  FMAS  c  TP 

PS 

.  VX 

9 

VY 

MKW  I 

90 

VZ  .  IL  .  JL 

IBADD 

.  WGRINT 

9 

NSTRAT 

MKU  I 

91 

,  »LL*  .  NLLY  .  HURX 

WURY 

.  BOTHIT 

9 

IPARIN 

MKW! 

92 

1 OTOPO  .  JOHIND  .  I HTOPO 

IPOUT 

,  IPAROT 

9 

JTOP1 

MKW  I 

93 

,  JH ! ND1  .  IRROR  .  TL IN  I T 

INDTIM 

.  IC 

9 

I0YPAS 

MKW  I 

94 

,  J70PJ  *  NLOST  .  NG 

NTO 

.  NT  I 

9 

NW 

MKW  I 

95 

,  N ALOFT  .  JTlMEl  ,  N0MAX 

NFREE 

»  N 

9 

NCL 

MKW  I 

96 

CRMAXY  .  CRUHT  ,  NdlTYP 

BZ 

.  CRM I NX 

9 

CRM  1  NY 

MKW  I 

97 

SiO  .  SN  .  CS 

NLOCIR 

»  DTLOC 

9 

ATEMP 

MKW  I 

98 

UNO  .  NA  .  TGZ 

DTMAC 

.  FROG 

9 

CRMAXX 

MKW  I 

99 

HOP ART 

MKW  I 

100 

I  MENS  I  Of!  TOPOLMM.AJ  .NfNTARMJ 

. IT9PIMI3.4) 

MKW  I 

101 

‘DIMENSION  SUO.lOl  .  SUBS  1 0  f  4 0 0 

!  . I C I 16 1 

MKW  I 

102 

DIMENSION  XPI200J  .YP(200] 

.ZPI200) 

# PMAS { 20  0 1 

MKW  I 

103 

DIMENSION  TPI2S0J  . PS ( 280  J 

.  ATE'MP  1 260  1 

.RMOI2601 

MKW  I 

104 

DIMENSION  VXU5GS1  . VYI1500 J 

. VZ 1 1500 1 

•  IL  t  70 1 

MKW  I 

105 

DIMENSION  Jit  701  *  I BADD  I  70  } 

.WURXI701 

MKW  I 

1C6 

i)ir?SN3lOX  M8R I  NT  f  70  1 

» WLCX |70l 

» WLLY I 70 I 

MKW  I 

107 

DIMENSION  MUF-Yf?0l  tBOTHlTl701 

»  BN  |  A  | 

»  C8  1 6  1 

MKW  I 

108 

DIMENSION  CRMiaXIfiJ  . CRMAXX ( t J 

.CRBINYI61 

. CRMAX Y 1 6 1 

HKW  I 

109 

DIMENSION  CSUWYlPl  »NCrTYPI6J 

r  (JO  I  6  3 

MKW  J 

110 

PARAMETERS  PSCUllAR  TO  HKWfND  HK2 

MKW  I 

111 

DIHSM8I0H  Xi  1 318  S.  Y8f  109!  MX  1300  1 

1 

PYI3GO!#SZf3O0J.Z8 

13001 . 

MKW  I 

112 

n???3®0 J,DY8t3BD J.Df 1309 J9NADI300! 

HKW  I 

113 

MKW  I 

114 

115 

MKW  I 

116 

formatiafib.j 1 

MKW! 

117 

;  2RNATr//78N8tBl  F0U0MIN3  BIND  VECTORS  MAVf  BEEN  U»ED  TO  DEFINE 

AMKWI 

118 

,N  ATN08PM8R1  UP  ’TO  TIB*  FSO.Cl 

MKWJ 

119 

ra®MAT!/?XA»Y8B?8B7Xt8HH08lIPNTAl  COORD l NA TI8BX A 7H VECTOR  LONPONSNTMKVI 

120 

^/?lBBNf!Hlft9«ftN8tlfltflftt*lffllVmfMimi8*8H«tl 

MKW  I 

121 

rCf!«AT{«Y»Brs8*85 

MKW! 

1Z2 

Copy 


lfio 


o  o  o  o  noa 


5  F 0RMATI/62H  INADEQUATE  CONTROL  DATA.  COMPUTATION  METHOD  1  WILL  IMKW 

16  USED.!  MKW 

6  F0RHATI64H  ENCOUNTERED  TWO  WIND  ORID  LATER  REQUESTS  FOR  THE  SAME  AMNW 

ILTITUOE.1  HKW 

S  F0RMATI5I41  MKW 

9  FORMATI19HOCOMPUTATION  METHOD, 14, 17H  IS  NOT  AVAILABLE)  MKW 

10  FORMAT! /I 0X26HREQUES TED  GRID  ARRANGEMENT/7X6HHE 16MT9X8HJNTERVAL22XMKW 

16HLIM! TS/33X4HWLLX8X4HWLLVRX4HWURX8X4HWURV/ I 4X6F12.3) )  MKW 

11  FQRMATI16H1WIN0  COMPONENTS)  MKW 

12  FORMAT!! X. 13HEAST#WEST  ROW, 16)  MKW 

13  FORMAT11X.10F12.5J  MKW 

14  FORMAT I19HOCOMPUTAT ION  METHOD  16# 17H  WAS  USED  ON  THE  I6,2lH  NEARESTMKW 

1  DATA  POINTS.)  MKW 

15  FORMAT I//6H  LEVEL I3» 6X. 8HBASE  AT  ,F12.3»7N  METERS)  MKW 

16  FORMAT f/19H  NN  WAS  REDUCED  TO  15 1  MKW 

17  FORMAT ( 6F1? , 3  J  MKW 

22  FORMATI6E20.8J  HKW 


23  FORMAT!  /  119H  AN  EXCESSIVE  NUMBER  OF  SIGNIFICANT  FIGURES  ARE  LOSNKW 


123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 


IT  IN  The  LEAST  SQUARES  CALCULATION.  THE  DATA  POINTS  APPROACH  A  LIMKW 
2NE/63H  OR  A  PLANE.  THE  WEIGHTED  VECTOR  METHOD  IS  USED  FOR  GRID  PONKW 
3INT.  5X.  9H(X.Y,Z)«t.  F12,3»1H,,F12.3,1H,,F12.3,1H))  MKW 

FORMAT!//  78H  NO  VECTORS  LIE  WITHIN  THE  SPECIFIED  WEIGHTING  REGIONMKW 
1,  A  RANDOM  SELECTION  OF  #J4,  30H  VECTORS  ARE  EQUALLY  WEIGHTED  .  MKW 
2/  5X»  15H  FOR  GRID  POINT,  MKW 

3  5X*  9HlX,Y.Z)«l,  F12,3.1H,.F12.3.1H.»F12.3.1HJ)  MKW 

FORMAT  (  //  10X.8HALPHA  *  F14.3.  7HMETERS»15X  7HBETA  «  F14.3#  MKW 
1  7HMETERS.  )  MKW 

MKW 

»*«•*»**•*••*••••••»•. +**•*•*•»*•**. ************»***»«******«*******mkw 

MKW 

DATA  PROGRM.B I G«NH IND.NWTST.GIB  /6HMKWI NDkI. 0E+30. 1500, 0, 1 . 0E-30/  MKW 

MKW 

**************** **••***(»* ******************************* ************kkw 
»•*****•••**•**•** **************************************************MKW 

MKW 

READ  '  ISIN.DENDTIM.  ALPHA, 8ETA  MKW 

ALPHA2=ALPHA*ALPHA  MKW 

8ETA2*BETA*8ETA  MKW 

READ  SPECIFICATION  OF  DESIRED  WIND  ARRAY  PHOPERTIES  MKW 

READ  !  I S IN, 8 1 NN, NCOOE  MKW 

IFINNI204, 204. 2041  MKW 

JRROR«204  MKW 

4  CALL  ERROR IPROORM , IRROR, ISOUT)  MKW 

1  DO  104  Jel.NSTRAT  MKW 

READ  USIN.1J  BOTH  I T [ J  J ,  WGR I  NT l J ! , WLLX I J ) . WLL Y I JJ , WURX I J J , JURY  I J I MKW 
IF l BOTH JT I J 1-999999.0)104,105,105  MKw 

CONTINUE  MKW 

JRR0R*1Q4  MKW 

CALL  ERRORtPROGRM, IRROR. ISOUT)  MKW 

1  READ!  ISIN.1JXST  MKW 

IFIXST-999999. 0)1041, 105, 105  MKW 

jTOPjsj-1  MKW 

MKW 

NOW  SORT  MKW 

4  KS*0  MKW 

DO  1051  J*2»  JTOPj  MKW 

IFIBOTH!  T  t  JJ-B0THIT I  J-1))U53. 1052,1051  MKW 

3  KS»1  MKW 

HTST«0OTHIT!J-1)  MKW 

VXT»WGRINTI  J-l I  MKW 
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i  n  o  o  r->  o 


vn«ML'L»t  J*ll  HKW 

VZTBHL'LVt  J«1  )  HKW 

XST»W(JRX(  J«U  HKW 

YS?«HURTI  J*i  J  HKW 

SOTHITf  v>U«B0TH!Tt  JJ  MKW 

HQRlNTr 3-l)«wa*lNT( J)  MKW 

teLLX  I J- 1 5  sWLLX  t  J !  HkW 

HLLVtJ-llaWLLVUl  HKW 

itUR*!  J«:l  I«WURXt  JJ  MKW 

KURY  I  J-il«WURYI  JJ  MKW 

!?QTHITU)«HTsT  MKW 

WQRlNTI J JaVXT  MKW 

iiUX!  J»«VYT  MKW 

ytLYtJl«VZT  MKW 

3?imXtJ)»XST  MKW 

WURYf JJcysT  MKW 

1051  CONTINUE  MKW 

;F[KS JlC54,l055,l054  MKw 

10-52  WRITE  HSuUT.dJ  MKW 

t RROR*1052  MKW 

GO  TO  7734  MKW 

MKW 


:•  1 0 5 'j  SORT  Of  THE  REQUESTED  UAYERS  IS  COMPLETE  MKW 

:  COW  MAKE  SURE  that  THERE  IS  SUFFICIENT  SPACE  for  THE  WIND  FIELD  MKW 

)  0t55  DO  1056  J«1,JT0PJ  MKW 

KlsfWURXI JJ-HLLXf JI J/WGRINTI JJ*1.0  MKW 

f;2*  IWURYf  JJ-WLLYtJJ  J/WGRINTt  Jj+l.O  MKW 

N  W  7  S  T  3  N  H  T  S  T  ♦  K 1  *  K  2  MKW 

MKW 

IS  AVAILABLE  WIND  MLMORY  EXCEEDED  mkw 

TFIHWlND  ,GT,  NWTSTJ  GO  TO  1057  MKW 

3.058  !RROR*-105fl  MKw 

GO  TO  7734  MKW 

10:57  CO  100  J'*l,300  MKW 

«EAD  IJS!N,17JZSf JJ.XSlJJtYSfJJ/SXIJI.SYIJI.SZIJ)  HKW 

?  F  t  7  S  l  J  ?  "999999.0  1  100, 101  HOI  MKW 

101  ,  j  7  O  P  V  *  J  *  I.  MKW 

’J  INN-jrriP7J106.106.2051  MKW 

2t}5t  hN*JTOPV  MKW 

WRITE  U GOUT. 16 J JTOPV  MKW 

GO  TO  106  MKW 

100  continue  mkw 

?RROR*10G  MKW 

GO  TO  7734  MKW 

MKW 

VECTOR  DArA  ARE  IN  WIND  ARRAYS  ON  INDICES  J»i,JTOPV  HKW 

FIRST  USE  ncode  as  a  method  control  variable,  branch  on  ncode  viamkw 

A  COMPUTED  GO  TO  TO  THE  DESIRED  COMPUTATION  METHOD  CODE.  MKW 

106  NNl*NN*i  MKW 


lFrNCODElllG.110, 112  MKw 

112  IF  CM  CODE -*6  1113.113. 110  MKW 

C  HKW 

C  110  NCODE  IS  INCORRECT  MKW 

110  WRITE  tfSOUT.51  MKW 

N  C  0  D  E  *  1  MKW 

11 3  no  TO  1115, 116,117.118,119,1201. NCODE  MKW 

c  mkw 

c  i 15  METHOD  1  USES  Tm*  NN  NEAREST  BAtA  POlUt,  NETMODt  2,3  AND  4  ALSO  MKW 

USB  TMtS  CODE  t'Jt  FOR  HffHOD  *,  NN*t  tOf  NfTWMJ  It  NNOTOPV.  MKW 
r  rop  METHOD  4,  THE  NN  BPPCfFIED  IY  THt  U«M  IS  UflB  (N  THE  MKW 
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164 
183 
186 
187 
13  8 
139 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 
219 
22  0 
221 
222 

223 

224 

225 

226 
227 
226 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 


Ecsl 


l6c 


o  o  ooooo  d  o  o  o  o  r>  o 


LEAST  SQUARES  METHOD [ NN  MUST  BF  GREATER  THAN  THREE).  MKWi 

I BADD 1 1 J  =  1  MKWI 

K«0  MKWI 

jWsl  MKW ! 

MKWI 

NOW  FILL.  IN  THE  WIND  GRID  SIZE  WORDS  MKWI 

ILCJWl*! CWU°X[JW1-WLLX[ JWjlI/WGRINTt JW!  ♦.999999?  MKWI 

jLf  JW  J*{  IWURYl  JWJ-.'LLY!  JWH  J/WGRINTI  JWI  +.9999999  MKWI 

MKWI 

NOW  INITIALIZE  for  FILLING  IN  THE  WIND  GRID  MKWI 

WG?=WURINTf JWI/2.0  MKWI 

lX*l  MKWI 

LY=1  MKWI 

XG=WLLXt JWJ+WG2  MKWJ 

YG=WLLYf JWJ+WG2  MKWI 

inJW-jTOPJIll54, 1155. 115)9  MKWI 

I RR0R=1159  MKWI 

GO  TO  7734  MKwI 

lFlJW-111156. 1156, 1157  MKWI 

ZGsBOTH I T I JW )  MKWI 

GO  TO  1158  MKWi 

ZG=ZG*R0THITIJW)-B0THIT[ JW-1 J  MKWI 

GO  TO  1158  MKWI 

ZGstBOTHITI  JWI+BOTHITUW  +  I}  J/2.C  MKWI 

MKWI 

SET  ALL  NAIHJ]  EQUAL  TO  J  TO  PRUVIDfc  INDICES  FOR  THE  FULL  SET  OF  MKwI 

DATA  POINTS  AND  TO  PROVIDE  AN  INITIAL  SET  OF  -NEAREST-  DATA  POINTSMKWJ 
SET  NADTsl  TO  BEGIN  THE  SORT  PROCEDURE  VIAT  SELECTS  THE  MOST  MKWI 

REMOTE  OF  THE  SET  OF  -NEAREST-  DATA  POINTS.  NOTE  THAT  FOR  THE  lSlMKwI 

PASS  ALL  THE  NN  -NEAREST-  POINTS  ARE  EQUALLY  LIKELY  TO  BE  THE  MOSTMKWI 

REMOTE  OF  THE  SET.  MKWI 

DO  203  J=l,JTOPV  MKWI 

NADUJsJ  MKWI 

NADTsl  MKW I 

MKWi 

COMPUTE  DISTANCES  BETWEEN  THE  CURRENT  GRIJ  POINT  IXG.YG.ZG)  AND  MKWI 

EACH  OF  THE  DATA  VECTOR  LOCATIONS  MKWi 

MKWI 

COMPUTE  SQUARED  7  DELTAS  MKWI 

DO  199  J*1 .  JTOPV  MKWI 

Tl=tZSf JJ-ZGJ  MKWI 

T1*T1*T1  MKWI 

T2slALPHA2-Tl J  MKWI 

I F  l  T2TLE  .  0 . 0  3  T?sl.O  MKWI 

DZ2U)«T2/IALPHA?^T1)  MKWI 


COMPUTE  SClII  A  RE  0  Y 
DO  201  J~l, JTOPV 
T1  =  YS  C Jl-YG 
DY2C j!»Tl*Tl 


DELTAS 


COMPUTE  SQUARED  DISTANCES 

DO  202  J*l, JTOPV 

TlslXSIJI-XGIMXSl  J)-XGJ^Dv2U! 

T2*UBETA2-T1  J/IBETA2  +  T1J).D22IJ) 

IF  l  T 2 - G 1 8  J  2021.2021,2022 

D2I J I «B I G 

GJ  TO  202 

U2f J)»1.0/T2 

CONTINUE 


• — ***&%&? 


c 

MKW! 

303 

c 

FIND  THfi  ADDRESS  or  AND  DISTANCE  TO  THE  HOST  REHOTE  POINT  OF  THE 

MKWI 

304 

c 

NN  -NEAREST-  POINTS  (THE  POINTS  WHOSE  ADDRESSES  ARE  QIVEN  ST 

MKW  I 

30$ 

c 

NAD 1 1 1 .NAD (NN 1 « ]  STORE  THAT  HAXIHUH  DISTANCE  IN  THE  WORD  DH  AND 

MKWI 

306 

c 

SET  NADT  SUCH  THAT  DH*O2INA0(NADTI 1 . 

MKWI 

307 

KliBNAOINADT) 

MKWI 

308 

DH-D2IKU 

MKWI 

309 

DO  207  J«1,NN 

MKWI 

310 

KL*NAD(J) 

MKWI 

311 

JFI DM- D2IKL11208, 207.207 

MKWI 

312 

208 

DK«D21KU 

MKWI 

313 

NADT«J 

MKW! 

314 

207 

CONTINUE 

MKWI 

315 

C 

AT  THIS  POINT.  OH  IS  THE  LARGEST  D2IJI  FOR  J-NAD 1 J) , NAD ( NN I 

MKWI 

316 

C 

MKWI 

317 

IF  INN1-JTOPVI2072. 2072, 2073 

MKWI 

316 

C 

MKWI 

319 

C2072 

HOW  SELECT  BEST  NN  POINTS 

MKWI 

320 

C 

SCAN  THE  SFT  D2tJ). J«NADINN*1. JTOPV)  UNTIL  A  D2IJI  LESS  THAN  DK 

MKW  I 

321 

C 

IS  FOUND.  IF  ONE  IS  FOUND.  SWITCH  NADINADT)  WITH  THE  SELECTED  NADMKW1 

322 

C 

THEN  RESET  DH  AND  NADT  TO  INDICATE  THE  HOST  REHOTE  OF  THE  NEAREST 

MKWI 

323 

C 

NN  POINTS.  WHEN  THE  FULL  SET  D2I Jl , J»NAD INN* 1. JTOPV!  HAS  BEEN 

MKW! 

324 

C 

SCANNED,  THE  SET  OF  NEAREST  DATA  POINTS  HAS  BEFN  SELECTED.  ONLY 

MKW! 

325 

C 

ONE  SCAN  IS  REQUIRED. 

MKWI 

326 

2072 

DO  210  J«NN1. JTOPV 

MKWI 

327 

XLsNAD(J) 

MKWI 

326 

IF  I DH *02 (KLJ 1 210, 210,211 

MKW  I 

329 

211 

NTEMP»NADC Jl 

MKW! 

330 

NADlJJ«NADINADT] 

MKWI 

331 

NA0CNADT1«NTEMP 

MKWI 

332 

C 

HKW I 

333 

C 

NOW  RESET  DH  AND  NADT  TO  THE  NEW  MOST  REMOTE  POINT 

MKWI 

334 

0H>D2lKLl 

HKW! 

335 

DO  212  KKKal.NN 

HKW! 

336 

KL»NA0IKKK1 

MKWI 

337 

5F[DM-D2tKLlI2l3.2l2,212 

MKWI 

330 

213 

DM*D2(KL1 

MKWI 

339 

nadt*kkk 

NKWI 

340 

C 

MKWI 

341 

C 

DH  AND  NADT  ARE  SET  WITH  THE  PARAMETERS  OF  THE  MOST  REHOTE  OF 

HKW  I 

3*2 

c 

THE  NEAREST  NN  POINTS 

*.*wl 

343 

212 

CONTINUE 

MKW  I 

344 

210 

CONTINUE 

MKWI 

345 

2073 

continue 

MKWI 

346 

C 

HKW  I 

347 

C 

THE  NEAREST  NN  HAVE  BEEN  POUND 

HKW  I 

346 

C 

•MKWI 

349 

C 

HKW  I 

350 

C 

INCREMENT  INDEX  FOR  STORING  VECTOR  COMPUTED  FOR  POINT  |XG.YS,TfiJ 

HKW  I 

351 

K»K*1 

HKW! 

352 

C 

MKWI 

353 

C 

IS  THE  LEAST  SBUARES  METHOD  TO  BE  USED.  YES  TO  2061 

MKWI 

354 

IFCNC0DS-4J2OIO, 2081. 2080 

HKW! 

355 

C 

MKW! 

356 

C2081 

THIS  IS  THE  LEAST  SQUARES  METHOD 

MKWJ 

357 

C 

INITIALIZE  FOR  LEAST  SQUARES  METHOD 

HKW! 

358 

2081 

SNN»NN 

HKW! 

359 

80X*0.C 

MKWI 

360 

i6v*oie 

MKWI 

361 

s3i*o:o 

MKW! 

362 

16k 


1 


c 

c 


3100 


SUX2=0.0 

MKW  I 

363 

SDY2=0.0 

MKW  I 

364 

SDZ2s0.i) 

MKWl 

365 

SOXY  =  l) .  0 

MKW  I 

366 

soxzso.n 

MKW  1 

367 

sdyz=o.o 

MKW  I 

368 

SAU=OTo 

MKW  I 

369 

S  A  V  s  0  •  0 

MKW  I 

370 

SAW*o7o 

MKW  I 

371 

sux=o7o 

MKW  I 

37? 

SUY*07o 

MKWl 

373 

S  U  Z  s  0  7  0 

MKW  I 

374 

SVX=07o 

MKWl 

375 

S V Y  =  0  7  0 

MKWl 

376 

SVZ=OVO 

MKWl 

377 

SWX*o7o 

MKWl 

378 

SHY=0.0 

MKWl 

379 

S  W  Z  s  0  7  0 

MKWl 

MKWl 

380 

381 

begin  loop  to  evaluate  intermediate  step  for  least  squares 

CALC. 

MKWl 

362 

DO  3100  J=1.NN 

MKWl 

383 

KL=NAD[ J] 

MKW] 

MKWl 

384 

385 

COMPILE  DISTANCE  BETWEEN  KL-TH  DATA  POINT  ANO  CURRENT  GRID 

POINT 

MKWl 

386 

T1=XSIKLI-XG 

MKW] 

387 

TY=YSIKLI-YG 

MKWl 

366 

TZ=2SIKL J-ZG 

MKWl 

MKWl 

389 

390 

COMPUTF  ELEMENTS  OF  LEAST  SQUARES  MATRIX.  B 

MKWl 

391 

SDX=SDX*T 1 

MKWl 

392 

SDYsSDY+TY 

MKWl 

393 

SDZ3SD?*TZ 

MKW] 

394 

SDX2*SDX2+T1*T1 

MKWl 

395 

S0Y2  =  S0Y2*nY2IKL  1 

MKWJ 

396 

SUZ2-SnZ2*DZ2(KLl 

MKWl 

397 

SDXY=SnXY*Tl*TY 

MKWl 

398 

SDxZsSnxZ*Tl*TZ 

MKWl 

399 

?OYZsSDYZ*TY*TZ 

MKW] 

400 

SAU=SAU*SXtKL J 

MKWl 

401 

SAV*SAV  +  SY  f KL  J 

MKW) 

402 

SAW*SAW*SZ  f  K L ] 

MKWl 

403 

SUX=SUX+Tl*SXlXL J 

MKWl 

404 

SUY=SUV*TY*SXtKL J 

MKWl 

405 

SUZ*SUZ*TZ»SX[KLJ 

MKW! 

406 

SVX*SVX  +  T1*SY(KL  ] 

MKW! 

407 

SVY*SVY*TY*SY(KL J 

MKWl 

408 

SVZ=SVZ*TZ*SY(KL J 

MKW! 

409 

SWX*SWX*T1*SZIKL! 

MKW! 

410 

SWY=SWY+TY*SZ(KLJ 

MKWl 

411 

SWZ*SWZ»TZ*SZ(KL) 

MKWl 

412 

SAUGlssDY2*SUZ2-SDYZ*SDYZ 

MKWl 

413 

SAllG2  =  SDXY*SDZ2*SDYZ*SDXZ 

MKWl 

414 

SAUG3»SDXY*SDYZ-SDY2*SDXZ 

MKWl 

415 

SAU04=SDX2*SDYZ-SDXY*SnXZ 

MKWl 

MKWl 

416 

417 

compute  complementary  minors  of  matrix  b 

MKW! 

418 

B11«SDX2»SAUG1-SDXY*SAUG2*SDXZ*SAUG3 

MKWl 

419 

B2l«SDx*SAUGi-SDY*SAUG2»SD7*SAUQ3 

MKWl 

420 

031*SDX*SAUG2-SDY«[SOX2*SDZ2-SDXZ»SDXZ1*SDZ*SAUG« 

MKWl 

421 

84ieSDX*SAUG3-SDY*SAUG4*SDZ*ISDX2»  3DY?-SDXY*SDXY) 

MKWl 

422 

3 


165 
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c 

C  TEST  TO  SEE  IF  A  ROW  OR  COLUMN  IS  APPROXIMATELY  ZERO 

BB«  AMAXltA«S{SNM»RllJ,ABStSDX*8211#ABSIS0Y*B31) ,  ASS t S0Z*841 )  1 
JF  f  88-1. 0E<#20J  3600. 3800.3700 
C 

C  COMPUTE  DETERMINANT  OF  B 

3700  888»SNN*Bll«SDX*P21*SDY*S3l-SDZ*R41 
C 

C  TEST  FOR  LOSS  OF  PRECISION 

tF ( ASS IRRB/88 1-0. 001 13800.3800,3900 
C 

C3800  TOO  MANY  SIGNIFICANT  FIGURES  ARE  LOST  IN  *HE  LFAST  SQUARES 
C  CALCULATION.  THE  DATA  POINTS  APPROACH  A  POINT,  A  LINE,  OR  A 
C  PLANE!  USF  THE  WEIGHTED  VECTOR  METHOD 

3800  WRITE  tISOUT,23JXG,YG,23 
GO  TO  2080 
C 

C  compute  WIND  vectors 

3900  VXtKl«I811*SAU-821«SUX*831*SUY.e41*5UZ|/B88 
VY(KJ«(Hll*SAV-b21*SvX*831*SVY-B41*SVZf /BBS 
VZtKl»tBil*SAH-b?l*SWX*B31*SWY.B41*SWZ)/BBB 
GO  TO  2090 
C 

C2080  COMPUTF  AND  SUM  THE  WEIGHTING  FACTORS 
2080  SUMsOlO 

DO  214  Jel.NN 
L«NADt Jl 

21*2  D2(L]«l.n/n2ll) 

214  SUM*SUM+D2 1 L  3 

IFISUM/FLOATINNj  ,LE.  GIB1  WR I TE 1 1 SOUT, 24 1  NN.XG.YG.ZG 
C 

C  NOW  COMPUTF  VECTOR  ESTIMATE  AT  GRID  POINT 
C  COMPUTE  STORAGE  INDEX 

C  COMPUTE  AND  STORE  WIND  ESTIMATE  AT  GRID  POINT 
VX (K )  *0  •  0 
V T ( K  1  *0 . 0 
VZ 1 K I *0 . 0 
DO  216  Jsl.NN 
L’NADI Jl 

VXtK]«VXrK)*SXlLJ*D2tU 

VY(Kl*VY(KI*SYlLl*D2tLI 

216  vZIKl*VZ[KJ*SZtlJ*D2tLJ 

VX  t  K  I  *VX  ( K  I  /StjM 
V Y  C  K 1 »VY  t  K 1 /SUM 
vZtK>»vzm/suM 
2090  XG»XG*WGRINT(JHl 
LX«LX-»1 

IFILX-ILI JWII 2011, 2011, 2012 
2012  X6»WLLXlJWl*WG2 
L Y»LY*1 
LX*1 

YG«YG*WGR!NTtJWJ 
IFILY-JLI JWJ 1200,  200.1152 
1152  JW«JW*1 

IF IJW-JTOPJ 11160, 1160. 130 
1160  JT«JW-1 

JBADD I JW )*JBADD( JT ) * [ I L  t JT 1 1  * C JL ( JT 1 1 
GO  TO  1151 
C 

C  116  METHOD  2  NEAREST  VECTOR 
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MKWI  423 
MKW 1  424 
MKW I  425 
MKWI  426 
MKWI  427 
MKWI  428 
MKWI  429 
MKWI  430 
MKWI  431 
MKWI  432 
MKWI  433 
MKWI  434 
MKWI  435 
MKW]  436 
MKWI  437 
MKWI  438 
MKWI  439 
MKWI  440 
MKWI  441 
MKWI  442 
MKWI  443 
MKWI  444 
MKWI  445 
MKWI  446 
MKWI  447 
MKWI  448 
MKWI  449 
MKWI  450 
MKWI  451 
MKWI  452 
MKWI  453 
MKWI  454 
MKWI  455 
MKWI  456 
MKW 1  457 
MKWI  458 
MKWI  459 
MKWI  460 
MKWI  461 
MKWI  462 
MKWI  463 
MKWI  464 
MKWI  465 
MKWI  466 
MKWI  467 
MKWI  466 
PlKWl  469 
MKWI  4/0 
MKWI  471 
MKWI  472 
MKWI  473 
MKWI  474 
MKWI  475 
MKWI  476 
MKWI  477 
MKWI  478 
MKWI  479 
MKWI  460 
MKWI  481 
MKWI  482 


116 

NN  =  1 

MKW 1 

483 

GO  TO  115 

MKW I 

464 

C 

MKW  I 

485 

C  117 

1ETH0D  3  ALL  VECTORS  weighted 

MKW  1 

486 

117 

SNaJTOPV 

MKW  I 

487 

GO  TO  115 

KKW I 

488 

118 

CONTINUE 

MKW  I 

489 

C 

HKU I 

490 

C  118 

METHOD  4  least  SQUARES 

MKW  I 

491 

C 

USE  BRANCH  ON  NCODEM  TO  BRANCH  TO  LEAST  SUUARES  IN  CODE 

KKW  I 

492 

C 

NN  MUST  BE  GREATER  THAN  3  FOR  THE  LEAST  SQUARES  METHOD 

MKW  I 

493 

1181) 

IFINN-4 11181,115,115 

MKW  I 

494 

1181 

I RROR*1181 

MKW] 

495 

GO  TO  7734 

MKW  I 

496 

119 

CONTINUE 

MKW! 

497 

120 

CONTINUE 

MKW  I 

498 

121 

WRITE  I  ISOilT.RlNCUDE 

MKW  I 

499 

I RROR=l21 

MKW  I 

500 

GO  TO  7734 

MKW  I 

501 

130 

WRITE  1 1  SOliT  ,  2  I  EnDT  I  M 

MKW  I 

532 

WRITE  nsoilT.31 

MKW  1 

503 

WRITE  IISOUT.4) 17SIJI.XSI JI.YStJl.SXIJJ  SY ( J I , SZ I J 1 . JM, JTOPV ] 

MKW] 

504 

WRITE  [ ISOUT.10 ] (BOTHITt Jj.RGRlNTt JI.WLLXIJI,  WLL Y  f  J ) , WURX [  J  1  , 

UUHYMKW! 

505 

INI.  J  =  l.  JTOPJ] 

MKW  I 

506 

WRITE  I  ISOUT.14INCODE.NN 

MKW  I 

507 

WRITE  l I SOUT , 25 ]  ALPHA,  BETA 

MKW  I 

508 

IF  (  IC17I-1U09, 1091. 109 

MKW  I 

509 

1091 

WRITE  f I SOUT , 11 J 

MKW  I 

510 

DO  107  K=l, JTOPJ 

MKW  I 

511 

WRITE  (ISOUT.i5)k,BOTHIT[K1 

MKW  I 

512 

JJH=JL(K1 

MKW  I 

513 

jllmbaodcki 

MKW  1 

514 

DO  Hd  KKrl.JjH 

MKW  I 

515 

JH  =  JLL+ I L  t  K  J -1 

MKW! 

516 

WRITE  USOUT.12JKK 

MKW! 

517 

WRi TE  ( I SOUT, 13 J IVXIJJ, JsJLL, JHJ 

MKW  I 

518 

WRITE  [ I SOUT, 13 J IVY  I JJ, JsJLL, JHJ 

MKW  I 

519 

WRITE  I  IS0IJT.131  IVZC  JJ  ,  JsJLL,  JHJ 

MKW  I 

520 

JLL* JH*1 

MKW! 

521 

108 

CONTINUE 

HKW! 

522 

107 

continue  $ 

HKWI 

523 

109 

CALL  RDCIRS 

MKW  I 

524 

RETURN 

MKW  I 

525 

END 

MKUI 

526 

JIRFTC  RDC  1 R  LIST, DECK, M94/2 

RDC I 

0 

SUBROUTINE  RDCIRS 

RDCI 

1 

C 

12  OCT  66 

RDC  I 

2 

r* 

o 

T  .  W . SCHWENKE  TECHNICAL  OPERATIONS  RESEARCH,  INC. 

RDC! 

3 

C 

RDCI 

4 

C  •*  +  ' 

»***RDC I 

5 

c 

RDCI 

6 

c 

THIS  PROGRAM  READS  LOCAL  CIRCULATION  SYSTEM  INPUTS.  IT  READS 

RDC! 

7 

c 

SYSTEM  COORDINATE  LIMITS,  ClRMINXi  J.CRMAXXI  I.CRMINYI  J.CRMAS 

I'M  RDC! 

8 

c 

THE  INDE)  or  THE  APPLICABLE  COMPUTATION  CODE  FOR  EACH  LOCAL 

RDCI 

9 

r» 

Kr 

system  IS  STORED  IN  NCRTYPI  1 

RDCI 

10 

c 

A  COUNT  OF  THE  NUMBER  OF  LOCAL  SYSTEMS  IS  RECuRDED  IN  NLOCIH 

RDCI 

11 

c 

HOC! 

12 

C  •***»**»*» ♦  **•****•***»*<►****#***»*,>«***«  ***#**#**#»«(r****#**#**»****#RQC 1 

13 

c 

RDCI 

14 

COMMON  /SET1/ 

RDCI 

15 

167 


* 


i  DIAK  ,  DET1D 

»  f RISE  . 

IEXEC 

»  ISIN 

f 

ISOUT  , 

RDCI 

16 

2  S9  .  SPAR 

.  SS AM  , 

TME 

»  TMP1 

9 

TMP2  , 

RDCl 

17 

3  T2M  s  U 

»  VPR  » 

W 

9  X 

9 

Z 

RDCI 

18 

4  WHY  .  RMIN 

*  IDISTR  , 

SPAR1 

.  SPAR2 

9 

SPAR3  , 

RDCI 

IS 

5  SPAR4  »  SPARS 

.  RPAR6  . 

SPAR7 

.  SPARS 

9 

SPAR9 

RDCI 

20 

DIMENSION  DETID112 1 « MHY (40 1 

RDCI 

21 

c 

RDCI 

22 

c  ** 

1# 

»*RDCI 

23 

c 

RDCI 

24 

COMMON  /SET2/ 

PDCI 

25 

1  S  #  SUBSID  *  GRINT  . 

0XLL 

•  BMU 

9 

BYU 

RDCI 

26 

2,  BYIU  .  TXLL 

.  TXLU  . 

TYLL 

*  TYLU 

9 

XGZ 

RDCI 

27 

3.  VQZ  .  NBLCK 

.  HTOPQ  , 

TTPPO 

»  ILIM 

9 

JLIH 

RDCI 

28 

4.  KLIM  .  !  I 

•  JJ  . 

KK 

.  XP 

9 

YP 

RDCI 

29 

5,  ZP  .  FMAS 

.  TP  , 

PS 

.  VX 

9 

VY 

RDCI 

30 

6.  V2  »  IL 

9  JL  > 

JBADB 

*  MGRINT 

9 

NSTRAT 

RDCI 

31 

7.  WLIX  ,  MLLY 

.  WURX  . 

MURY 

»  BOTHIT 

9 

IPARIN 

RDCI 

32 

8.  IOTOPO  »  7 ON IND  ,  JMTOPO  , 

1POUV 

.  IPAROT 

9 

JTOPl 

RDCI 

33 

9.  JMIND1  #  IRROR 

»  TL1MIT  , 

ENDTIM 

•  IC 

9 

IBYPAS 

RDCI 

34 

1.  JTOPJ  #  PLOST 

*  N('«  » 

NTO 

.  NT! 

9 

NW 

RDCI 

35 

2.  NALOFr  o  JTIM61  .  NbMAx  , 

NFREE 

.  N 

9 

NCL 

RDCI 

36 

3,  CRMAXV  ,  CRUMT 

.  NCRTYP  , 

BZ 

,  CRM  I  NX 

* 

CRHINY 

RDCI 

37 

4,  00  ,  SN 

.  C  3  , 

NLOCI« 

*  DTLOC 

f 

ATEMP 

RDCI 

38 

i,  RMO  #  NA 

.  TG7  , 

5TMAC 

*  FROG 

9 

CRMAXX 

RDCI 

39 

6,  ROPART 

RDCI 

40 

DIMENSION  TOPCLM 14.41 

•  N  INTAR [ 4 1 

.  I  TOPLM  {  3»  *;  I 

RDCI 

41 

DIMENSION  SUO.iOl 

•  SUBS  I D [ 400 1 

•  I C 1 18 1 

RDCI 

42 

DIMENSION  XPI200] 

» YP  (200  I 

#ZPl 200) 

•  FMAS 1 200 ) 

RDCI 

43 

DIMENSION  TP (200 1 

.PSI200I 

* ATFMP | 2601 

» RHO ( 260 1 

RDCI 

44 

DIMENSION  VXU500J 

» VY 1 1500 1 

•  VZ 1 15001 

» IL 1 70 1 

PDCI 

45 

DIMENSION  JL1701 

. :b*dd(70 j 

.WCRXI70! 

RDCI 

46 

DIMENSION  MGRJNT (70 I 

.MLLX17QI 

» WLLY  J  70  j 

RDCI 

47 

DIMENSION  MURYI70I 

•  BOTH I T  r  70 J 

. SNI6) 

*  CS 1 6 ) 

RDCI 

48 

DIMENSION  CRm:NXI6J 

»  CRMAXX  1 6  I 

.CRHINY 1 6 I 

#  CRMAX Y I 6 ] 

RDCI 

49 

DIMENSION  CRUMT I  ft ] 

•  NCRTYP 1 6  I 

»U0I6I 

RDCI 

50 

c 

RDCI 

51 

c  *• 

******* 

** 

52 

c 

RDC» 

53 

1 

FQRMATI4E12.5.I31 

RDCI 

54 

A 

£ 

FORMAT i///l5x«22ML0CAL 

CIRCULATION 

CODE (4. 

18M  IS  NOT 

AVAILABLE.) 

RDCI 

55 

c 

RDCI 

56 

c  **< 

******* 

#* 

*RDC  I 

57 

c 

RDCI 

58 

DATA  PROGRM  /6MRCCIRS/ 

RDCI 

59 

c 

RDCI 

60 

v  »******»***lrCMfr#»**#*****e**f'**<:.  ******»>£**#***«# ****»**#*#####***fr#**#flQCJ 

61 

C  #**#*»***«#»ft  •#•**»**#♦+•*  ***#«*#*ft##*##«*  #*****  +  *«,}#*' 

62 

c 

RDC I 

63 

c 

READ  LEFINtNG  DATA  FOR 

LOCAL  circulation  systems 

RDCI 

64 

c 

RDCI 

65 

RDCI 

66 

uc 

RDCI 

67 

READ  US5N.1I  CRMjN?t*l 

.CRMAXX IK J.CRMSNY'KliCRMAXYlKI 

.  NCRTYP(K) 

RDCI 

68 

nC!R»NCRT  YP(K  5 

RDCI 

69 

lF(NCJRl,2?«10n,?25 

RDCI 

70 

122 

|RR0Sn?2 

RDCI 

71 

uO  TO  7734 

RDCI 

72 

m 

lF(NclR-51l2P,120.i24 

RDCI 

73 

124 

IRDOR  ' : 24 

RDCI 

74 

NRITE  US0«T,2J.HelR 

RDCI 

75 

168 


) 


7734 
C  100 
C 
C 

100 


call  erroriprogrm, irror. isout j 

THIS  IS  THF  NORMAL  EXIT 


UOCIR 


ROC  I 
ROCi 


THE  NUMBER  OF  LOCAL  CIRCULATION  SYSTEMS  DEFINED  FOR  USEROCI 


NLOCIC 
RETURN 
END 

RETURN 
SIBFTC  LIN7 


IN  TRANSPORTING  PARTICLES 
K-l 


LIST. DECK, M94/2 
SUBROUTINE  LINK7 
t.w.schwenke 

19  OCT  6, a 

THIRD  PART  OF  TRANSPORT  MODULE, 


TECHNICAL  OPERATIONS  RESEARCH 


PARTICLE  TRANSPORT. 


LINK  7 


SEE  SUBROUTINE  LINKS  FOR  A  TRANSPORT  GLOSSARY 


COMMON  /SET1/ 

1  OIAM  .DETI0112), JH1SE  ,  IEXEC 

2  SD  .  S°AR  ,  SSAM  ,  THE 

3  T2M  .  U  ,  VPR  .  W 

4  WH Y [ 4 U I .  RMIN  ,  IDISTR  ,  SPARl 

5  SPAR4  .  SOARS  ,  SPAR A  ,  SPAR7 


COMMON 

1 

2. 

3. 

4. 

5. 

6. 

7. 

8. 

9. 

1. 

2. 

3, 


/SET2/ 

S 

bylu 

YGZ 

KLIM 

ZP 

vz 

WLLX 

IOTOPG 

JWIND1 

J  TOP  J 

NALOFT 

CRMAXY 


SUBS  ID 

txll 

NBLCK 

II 

FMAS 

IL 

WLLY 

IOWIND 

IRROR 

NLOST 

UTIMfc). 

CRUHT 


GRINT  . 
TXLU  , 
HTOPO  , 
JJ  . 
TP 

JL  . 
WURX 

I  HTOPO  . 
TLIMIT  . 
MG  , 
NBMAX  . 
NCRTYP  , 


BXLL 

TYLL 

TTOPO 

KK 

PS 

1BADD 

WURY 

ipocr 

ENDTIM 

NTO 

NFREE 

BZ 


I  SI  N 
TMPl 
X 

SPAR2 

SPAR8 


ISOUT 

TMP2 

Z 

JOUNE 

SPAR9 


BXLU 
TYLU 
IL  IM 
XP 
VX 

WGRIMT 

BOTHIT 

IPAROT 

IC 

NTI 

N 

CRM  I  NX 


BYLL 

XGZ 

JLIM 

YP 

VY 

NSTRAT 

IPAPIN 

JTOP1 

IBYPAS 

NW 

NCL 

CRMINY 


1 

10 


l,  UO  .  SV 

.  CS 

NLOCIR  ,  DTIOC 

,  ATEMP 

LIN7 

».  RHO  .  NA 

).  ROPART 

.  TGZ 

DTHAC  .  FROG 

,  CRMAXX 

LIN? 

LIN7 

DIMENSION  T0P0LMIA.4] 

*  N I  NT  AR  1 4  J 

.  IT0PLM13.4) 

UN7 

DIMENSION  StlO.lOJ 

>  SUBS  I  D [ 4  0  0 

I  .  IC 1 18 1 

LIN7 

DIMENSION  XP I  200  1 

. YP  1 200  J 

>  ZP I  200  1 

. FMAS (2001 

LIN7 

DIMENSION  TP  C  20  0  1 

#  PS  C  200  J 

.  ATEMP (2601 

• RHO (2601 

LIN? 

DIMENSION  VX  1 150 0  1 

»  VY ( 1500  I 

.  VZ  1 1500 ) 

»  11170) 

LIN7 

0 I  MENS  I  ON  JL  t  70  J 

. i baud i 70 j 

.WURX 1701 

L  IN? 

DIMENSION  WGRINT (70  J 

. WLLX  t  70 1 

*  WLLY 1701 

LIN7 

DIMENSION  WURYI70] 

. BOTH  I T [ 7  0 ) 

•  SN ( 6 1 

. CS ( 6 1 

LIN7 

DIMENSION  CRMINXf 6) 

. CRMAXX ( 6 I 

.CRMINY161 

. CRMAXY 1 6  J 

LIN7 

DIMENSION  CRUHT ( 6  J 

.NCRTYP ( 6 1 

»  UO 1 6 1 

LIN7 

LIN7 

LIN7 

F0RMAT13I5.6E12.5J  ijn? 

FORMAT  II 5  I  LIN7 

76 

77 

78 

79 

80 
81 
82 
81 

0 

1 

2 

3 

4 

5 

6 
7 


RDCI 
RDCI 
RDCI 
RDCI 
RDCI 
LIN7 
LIN7 
LIN7 
LIN7 
LIN7 
LIN7 
*LIN7 
L  »N7 
LIN?  8 
LIN7  9 
*LIN7  10 
LIN7  11 
LIN7  12 
LIN7  13 
LIN7  14 
LIN7  15 
LIN7  16 
UN7  17 
LIN7  18 
*LIN7  19 
LIN7  20 
LIN7  21 
LIN7  22 
LIN7  23 
LIN7  24 
LIN7  25 
LIN7  26 
LIN7  27 
LIN7  28 
LJN7  29 
LIN7  30 
LIN7  31 
UN7  32 
LIN7  33 


38 


40 


46 

47 

48 

49 


3 


169 


11 

F0RMAT[6E15.5] 

LIN7 

52 

12 

FORMAT I5E15.5.615) 

LIN7 

53 

C 

LIN7 

54 

C  •**' 

St* 

•  * 

**LIN7 

55 

c 

LIN? 

56 

DATA  PR06RM  /6HLINK7  / 

LIN? 

57 

c 

LIN7 

5S 

C  ***' 

frftfti 

*•1 

»*tt 

»*LIN7 

59 

c 

**# 

•  *< 

*•< 

.*** 

**#*•*’ 

**LIN7 

60 

c 

LIN7 

61 

JM«0 

LIN7 

62 

*UL*0 

LIN7 

63 

EP3Il*1.0 

LIN7 

64 

c 

LIN7 

65 

c 

are  transport  traces  to  Bl 

HRITTEN.. 

YES 

TO 

5500 

LIN? 

66 

IF  UC  161-1 15510. 5510. 5500 

L1N7 

67 

5900 

HPNT«2 

L1N7 

68 

60  TO  5520 

LIN7 

69 

5510 

MPNT  «1 

LIN7 

70 

C 

LIN7 

71 

C 

BRANCH  TO  READ  ADDITIONAL  1 

DATA 

LIN7 

72 

C 

READ  DATA  PECULIAR  TO  EACH 

LOCAL  HIND 

SYSTEM 

LIN7 

73 

5520 

IFINLOCIR1  510.510.511 

LIN7 

74 

C 

LIN7 

75 

C  511 

SETTING  J  NEGATIVE  MILL  CAUSE 

THE  LOCAL 

CIRCULATION 

SYSTEM  COOES 

L I N7 

76 

C 

TO  READ  THE  DATA  THAT  THEV 

NEED  WHEN 

THEY 

ARE 

FIRST 

ENTERED 

LIN7 

77 

511 

J«-l 

LIN7 

78 

DO  SOU  I*1*NL0CIR 

LIN7 

79 

K*  I 

LIN7 

80 

NCIR»NCRTYPlIJ 

LIN7 

01 

60  TO  1501. 502. 503. 504. 505]. NCIR 

LIN7 

82 

501 

CALL  HTMNDlt J.K. AX.AY.AZ 3 

LIN7 

03 

60  TO  500 

LIN7 

84 

502 

CALL  R6HND1I J.K. AX. AY. AZI 

LIN7 

85 

60  TO  500 

LIN7 

86 

503 

CALL  CBREZ1I J.K. AX. AY.AZ) 

LIN7 

87 

GO  TO  500 

LIN7 

88 

C  ***i 

POINTS 

#1 

•LIN7 

89 

504 

continue 

LIN7 

90 

505 

CONTINUE 

LIN7 

91 

C  •**< 

POINTS 

♦  1 

»*< 

*L  I N  7 

92 

506 

IRROR*-506 

LIN7 

93 

60  TO  300 

LIN7 

94 

500 

CONTINUE 

L1N7 

95 

C 

LIN7 

96 

510 

IFCTLIHIT-EN0T1HJ48.49.49 

L1N7 

97 

40 

ENDTIM-TLIHJT 

LIN7 

98 

4* 

lFIICIH-llfl.50.5l 

LIN7 

99 

50 

ASSIGN  TO  IT 

LIN7 

100 

ASSIGN  ISO  TO  ITT 

LIN7 

101 

60  TO  1000 

UN7 

102 

51 

ASSIGN  1071  TO  IT 

LIN7 

103 

ASS I ON  ISIS  TO  ITT 

LIN? 

104 

1000 

if.kauoft 

LIN7 

105 

IFUTIHIIJIIIS. 1112. 1112 

LIN7 

106 

1113 

jTINilcO 

LJN7 

107 

GO  TO  1081 

LIN7 

108 

C 

LIN? 

109 

C 

ATTEMPT  TO  READ  tN  A  BLOCK 

OF 

PARTICLES 

ALOFT 

RECORDS 

LIN7 

110 

C 

FIRST  READ  SLOCK  SIZE 

L1N7 

111 

no 


O  O  O  O  O  O  O  O  O  CJ  oooooo 


IF  BLOCK  SIZE  IS  NEGATIVE  OR  ZERO,  NO  BLOCK  EXISTS 
iFiNiioo.ioo.ioi 

check  to  see  IF  block  hill  fit  in  array 

IF [N-NALOFT] 1021, 1021, 103 

ERROR  -  ALOFT  LIST  TOO  LARGE,  SHOULD  NEVER  HAPPEN.  GO  TO  EXIT, 
IRROR*103 

GENERALIZED  ERROR  STOP 
call  errorcprogrm, IRROR, 1SOUTI 

call  diimpp 

NOW  READ  A  BLOCK  OF  PARTICLE  ALOFT  DESCRIPTIONS 
I F  =  N 

READ  UPARINI (XPf Jl.YPlJJ.ZPf J I . TP  I J 1 , PS  I U 1 . F MAS  I J) . J«1  ,IFJ 

ARE  TRANSPORT  TRACES  TO  BE  WRITTEN..  YcS  TO  5522 
IFUC[6J  15521,5521,5522 

WRITE  U SORT. Ill rx°lJ).YPlj),ZPC JJ,TP(J),PSI JJ .FMASl J) ,J«l.NALOFT 
NFREE*NFREF-N 


BEGINNING  OF  PARTICLES  ALOFT  LIST  LOOP 
1001  DO  160  J*1 »  IF 

ASSIGN  3052  TO  IPAS 
GO  TO  1 5540,5530  J  *  WPNT 

5530  WRITE  C ISO-T# 11 J  XP[Jl,YPtJJ,ZP{j|,TPIJI»PS(Jl»FMASId) 


C 

C 

101 

C 

Cl03 

103 

C 

C300 

300 

C 

1021 
c  • 

C  102 
102 


SELECT  PARTICLE  TO  BE  TRANSPORTED  --  ♦TP  ♦FHAS 
55 AO  IFtFMASUI  1160,160,192 

192  IFITPI  JH160.193.194 

194  IFITPI Jl-CMUTI*Jl95. 160,1971 
1971  lFt7PUI-TLIMITll60.160.l97 

193  IRRORa-193 
GO  TO  300 

197  IHR0R*-1R/ 

GO  TO  300 

195  a  particle  has  been  selected 

IS  ThE  CURRENT  PARTICLE  WITHIN  A  LOCAL  CIRCULATION  SYSTEM 

195  IFJNLOCIR11950. 1950. 1951 

1951  DO  1952  K«l,NLOC!R  t 

•  MM.t.M.MM.,...,,,..  TEMP  ♦•••••*******»*»***«***ft**»*****4 

WRITE  (ISOUT.lJJ.K.NLOCIR.FMAStJl.XPUl.YPIJl.ZPlJl.  TPIJ1 
IF  I  XP I J I -CRM  I  NX  I K 1  11952,1953, 1953 

1953  IF t CRMAXX IK J-XPtjH 1952. 1954. 1954 

1954  IF  (  YPUHCRMINY  IK  1  1 1952. 1955. 1955 

1955  !FICRMAXVtKl-YPlj)11952.1956.1956 

1956  THE  JTH  PARTICLE  IS  WITHIN  THE  KTH  LOCAL  CIRCULATION  SYSTEM 
SUBROUTINE  LOTRANIJ.K)  TRANSPORTS  THE  JTH  PARTICLE  IN  THE  KTH 
LOCAL  WIND  SYSTEW. 

1956  CALL  LOTRANU.Kl 

1»8  IS  WHERE  GROUNDED  PARTICLES  ARE  DEALT  WITH, 


LIN/  IIJ 

LIN7  114 
UN7  115 
LIN7  116 
LIN7  117 
UN7  118 
LIN7  119 
LIN7  120 
LIN7  121 
LIN7  122 
UN7  123 
UN7  124 
LIN7  125 
LIN7  126 
LIN7  127 
LIN7  128 
LIN7  129 
L1N7  130 
LIN7  131 
LIN7  132 
L1N7  133 
ILIN7  134 
LIN7  135 
UN7  136 
*LIN7  137 
LIN7  138 
LIN7  139 
LIN7  140 
LIN7  141 
LIN7  142 
LIN7  143 
LIN7  144 
LIN7  145 
LIN7  146 
LIN7  147 
L1N7  140 
LIN7  149 
LIN7  150 
LIN7  151 
LIN7  152 
UN7  153 
LIN7  154 
UN7  155 
LIN7  156 
LIN7  157 
LIN7  158 
UN7  159 
LIN7  160 
LIN7  161 
LIN7  162 
LIN7  163 
LIN7  164 
LIN7  165 
LIN7  166 
LJN7  167 
LIN7  160 
LIN7  169 
UN7  170 
L1N7  171 


ooo  nn  o  o  o  non 


lFtZPlJl*9O0O. 01186, 188. 1997 

1957  iriTMjJ-|N0TlM)j951, 1958*1998 

1958  NTf*NTl*l 
80  TO  188 

1992  CONTI  Mill 
C 

1998  X2»XPtjl 
VY»YPtJl 
JZ'ZPtJ) 

PtlZE«PStJ) 

1981  CAU  tEYNNDtXX* YY.ZZ. JMADtJNl 
ir tJMAC 11999. 1988 .198 
C 

C  1999  THE  NEEDED  NINO  HELD  IS  NOT  !N  CORE 

1999  FMASt J)**FNAS( Jl 
TPIJWLIMIY 
NL0ST»NL0ST*1 
80  TO  180 

1988  |RROR»-19*0 
00  TO  308 
C 

C  198  SET  PARTICLE  PALL  RATE.  PUT  IT  IN  FV  NITM  SI6N  POSITIVE. 

198  CALL  FALRATlZZ.PSIZE.FV.ATEMP.RHO.FROG.ISOUTl 

COMPUTE  VERTICAL  PARTICLE  NOTION  COMPONENT 
A. POSITIVE  VPZ  DENOTES  AN  UPNARO  POINTING  VECTOR 
VP2«VZ(JNADI*FV 

COMPUTE  TIMES  TO  NEXT  MACRO  MIND  FIELD  BORDERS 
COMPUTE  TIX  —  TRANSIT  TIME  TO  X  BOUNDARY 

xBL«(AINTt(XP(J]-NLLX(JNII/N6RINTUNm«W8RINT(JW|  ♦NLLXlJNl 
XBU«XBL*M8RINTUMI 

VBflAINTH  VPC  Jl»NLLY  l  JM)  I /NOR  I  NT  (JH)  1 1  *NSRINT I Jwl  ♦NLLYfJNI 
YBu* YBL*N8R I NT ( JM I 
ASSION  917  TO  N1 
IF(VXlJNADni61«162.183 

181  TlX*lXBL»XPl Jl 1/tVXt JNADI I 
80T0  184 

183  TlX»10000Bl0 

ASSION  918  TO  N1 
GO  TO  184 

163  TlX"tXBU*XPC Jl 1/tVXl JNAD1 1 


COMPUTE  TIV  —  TRANSIT  TIME  TO  Y  BOUNDARY 
164  ASSIBN  919  TO  N3 

lFtVYUNADlI169.166.lA7 
169  TlY»tYBL*YPtJll/tVYtJNADlt  . 

80  TO  168  • 

166  YIV*109I60?G 
ASSIBN  929  TO  N2 
80  TC  j.68 

167  Y I Y*  t  V#U« YP  t  J 1 1 / 1 V  Y l JNAD 1 1 


COMPUTE  TIZ  ••  TRANSIT  TIME  TO  Z  BOUNDARY 
168  IS  PARTICLE  HOVlNt  UP  OR  DOMN.  UP  TO  171 

168  lFtVP21169.l78.171 
C 

C  169  It  PARTICLE  BBLON  MAX  TOPO  HEIGHT .  YES  TO  1691 

169  IF  tZPtJI«YT09B11691 ,1691*1893 
C 


IIN7  172 
LIN7  173 
LIN7  174 
LIN7  175 
LIN7  176 
LIM7  177 
LIN7  176 
LIN7  179 
LIN?  iao 

un?  r.ii 

L1N7  182 
L(N7  183 
LIN7  184 
LIN7  189 
LIN7  186 
LIN7  187 
LIN7  168 
L1N7  189 
LIN7  190 
LIN7  191 
LIN7  192 
LIN7  193 
LIN7  194 
LIN7  199 
LIN7  196 
LIN7  197 
LIN7  196 
LIN?  199 
LIK7  200 
LIN7  201 
LIN7  202 
LIN7  203 
LIN7  204 
LIN7  209 
LIN7  206 
LIN7  207 
LIN7  208 
UN7  209 
LIN7  210 
LIN7  211 
LIN7  212 
LIN7  213 
LIN7  214 
LIN7  215 
UN7  216 
LIN7  217 
LIN7  218 
LIN7  219 
LIN7  220 
LIN7  221 
LIN7  222 
LIN7  223 
LIN7  224 
LIN7  229 
LIN7  226 
LIN7  227 
LIN7  228 
LIN7  229 
LIN7  330 
LIN7  231 


178 


c 

1693  IS  MAX  TOPO  HEIGHT  ABOVE  SLICE  BOTTOM. 

YES 

TO 

1692 

UN7 

232 

1693 

IF  ITT0P0-P0THlTlJwni69l»l691, 

1692 

LIN? 

233 

1692 

TIZ  =  ITTOPO-ZPlJJ I/VPZ 

UN7 

234 

GO  TO  1711 

UN? 

235 

1691 

TlZ=IB0TH!TlJW)-7PUn/VPZ 

LIN7 

236 

GO  TO  1711 

UN7 

237 

170 

Tiznooooo-.o 

L1N7 

238 

GO  TO  1711 

LIN? 

239 

171 

TlZ*t BO THlT(JW*l]*ZPtJJ I/VPZ 

LIN7 

248 

C 

LIN7 

241 

C1711 

FIND  THE  EARLIfcST  INTERSECTION 

WITH  A  LOCAL 

CIRCULATION 

SYSTEM 

LIN7 

242 

1711 

CIRMIN=TLIMIT 

LIN7 

243 

C 

ARE  THERE  ANY  LOCAL  CIRCULATION 

SYSTEMS. 

YES  TO  1712 

LIN7 

244 

IFINLOCIRU72. 172. 1712 

LIN7 

245 

C 

LIN7 

246 

C  1712 

!  COMPUTE  TIME  Of  FLIGHT  TO  EACH 

OF  THE  FOUR 

VERTICAL 

PLANES  THAT 

LIN7 

247 

C 

BOUND  THE  l.J-TH  LOCAL  CIRCULATION  CELL. 

LIN? 

248 

1712 

DO  1713  L  J*1 » NLOr I R 

LIN? 

249 

GO  TO  [917, 9181. N1 

LIN7 

250 

9i8 

TX1=1C00H00.0 

UN7 

251 

Tx?=iooooon,o 

LIN7 

252 

GO  TO  921 

LIN7 

253 

917 

TX1*(CRMINXILJ1*XPI JII/VXIJWADI 

LIN7 

254 

TX2s[CRMAXX[LJ]*XEIJn/VX(jHAD] 

LIN7 

255 

921 

GO  TO  [919, 9201. N? 

LIN7 

256 

920 

Tn*iooooon.o 

LIN7 

257 

TY2*innooon.o 

LIN7 

258 

GO  TO  922 

LIN7 

259 

91  9 

TYlslCPMlNYtLJl-YPf  JU/VYI  JWAD) 

LIN7 

260 

TY2*[CRMAXYILJI-YP( JlI/VYljWAD] 

LIN7 

261 

C 

LIN7 

262 

C 

TEST  X  INTERCEPTS 

LIN7 

263 

C 

IS  THE  FIRST  X  DIRECTION  INTERCEPT  IN  TNE  PAST. 

YES 

TO 

1714 

LIN7 

264 

922 

IF[TXJ.I1714, 1716, 1716 

LIN7 

265 

C 

LIN7 

266 

C  1714  IS  THE  SECOND  X  DIHECTION  INTERCEPT  ALSO  IN  THE 

PAST. 

IF  YES, 

LIN7 

267 

C 

BOTH  X  UIRFCT10N  INTERCEPTS  ARE 

IN  THE  PAST 

AND 

THE  1 

PARTICLE  WILL 

LIN7 

268 

c 

not  intersect  this  cell,  go  to 

1713  TO  CONSIDER 

THE 

NEXT  CELL. 

LIN7 

269 

1714 

IFITX2U713. 1715, 1715 

LIN7 

270 

1715 

TMINX*TX1 

LIN7 

271 

TMAXX=TX2 

LIN7 

2/2 

GO  TO  1717 

LIN7 

273 

1716 

IF[TX2J1718, 1719, 1719 

LIN7 

274 

1718 

TMINX=TX2 

LIN7 

275 

TMAXX=TX1 

LIN7 

276 

GO  TO  1717 

LIN7 

277 

C 

LIN7 

278 

C  171S 

1  BOTH  X  intercepts  are  in  the  FUTURE 

LIN7 

279 

1719 

IF  (Tn-TX2U7l5, 1715,1718 

LIN7 

280 

C 

LIN7 

281 

C  1717 

'  NOW  TEST  FOR  Y  INTERCEPTS 

LIN7 

282 

1717 

IF(TY1)1720, 1721, 1721 

LIN7 

283 

1720 

IF(TY2I1713, 1723, 1723 

LIN7 

284 

1723 

TM I NY*TY1 

LIN7 

285 

TMAX Y*TY2 

LIN7 

286 

GO  TO  1724 

LIN7 

287 

1721 

IF[TY2)1725, 1726, 1726 

LIN7 

298 

1725 

TMINY-TY2 

LIN7 

269 

TMAXT«TY1 

UM7 

290 

GO  TO  1724 

LIN7 

291 

0 


173 


i<  f 


c 

LIN7 

292 

C  im  IOTH  Y  INTERCEPTS  ARE  IN  THE  FUTURE 

LIN7 

293 

1716  IFITY1-TY21172S.1723.1725 

LIN7 

294 

C  1714  NON  SELECT  FIRST  INTERCEPT 

LIN7 

295 

C 

LIN7 

296 

C  SELECT  THE  SECfiNB  PLANE  PIERCE  (LAST 

OF  FIRSTX.FIR8TYI 

L1N7 

297 

1714  IF (TMlNX*TMt NY  11727* 172E* 1726 

LIN7 

298 

1726  TS*THINX 

L1N7 

299 

TC«THAXY 

LIN7 

300 

GO  TO  1729 

LIN7 

301 

1727  T8«THINY 

LIN7 

302 

TC*TNAXX 

LIN7 

303 

172*  IF I Ti-TC 11736. 1711.1713 

LIN7 

304 

C 

LIN7 

305 

C  1730  KEEP  TINE  OF  EARLIEST  INTERCEPT 

L1N7 

306 

1731  IFITS-CIRNINH731.1713.1713 

L1N7 

307 

1731  CIRH!N«TS 

LIN7 

308 

1713  CONTINUE 

LIN7 

309 

LIN7 

310 

NRITE  (IS0UT.111CIRHIN 

LIN7 

311 

C 

LIN7 

312 

C  AT  THIS  POINT  C1RMIN  CONTAINS  THE  TINE 

OF  ThE 

FIRST 

INTERCEPT 

LIN7 

313 

C  BETHEEN  PARTICLE  ANO  A  LOCAL  CIRCULATION  SYSTEN 

LIN7 

314 

C  172  NON  SELECT  EARLIEST  BOUNOARY 

LIN7 

315 

172  lFtTlX-TIYH*3.175.175 

LIN7 

316 

173  IFITIX-Tmi7a.176.178 

LIN7 

317 

176  TSK*TIX 

LIN7 

318 

!*T«1 

LIN7 

319 

60  TO  179 

L1N7 

320 

C 

LIN7 

321 

C  178  SET  SNALLEST  TINE  OF  FLIGHT  STORAGE  AT 

THE  TINE  OF  1 

FL18HT  TO  THE 

LIN7 

322 

C  2  BOUNDARY 

L1N7 

323 

178  T3H*?I2 

LIN7 

324 

IR»3 

LIN7 

325 

60  TO  179 

LIN7 

326 

17S  IFITIY-TI21180.176.178 

LIN7 

327 

166  TSH»T l V 

L1N7 

328 

|R»2 

L1N7 

329 

C 

LIN7 

330 

C  179  IS  INTERSECTION  WITH  LOCAL  SYSTEN  PRIOR  TO  EARLIEST 

BOUNDARY 

L1N7 

331 

5  INTERCEPT.  YES  TO  1792 

LIN7 

332 

179  IFITSN-CIRMINU791. 1793. 1792 

LIN7 

333 

1792  TSN«CIRNIN 

LIN7 

334 

1793  IR*5 

LIN7 

335 

C 

V 

LIN7 

336 

C  1791  DOCS  TINE  LINIT  CONE  BEFORE  EARLIEST 

OTHER  1 

BOUNDARY.  YES  TO  162 

LIN7 

337 

1791  lFITSN-TPUl-ENDTlNil8l.l62.l82 

LIN7 

336 

C 

LIN7 

339 

C  162  TRANSPORT  PARTICLE  UNTIL  ENDTIH 

11N7 

340 

182  T3N*EMDT!HoTPU> 

LIN7 

341 

!R«4 

LIN7 

342 

SO  TO  3867 

LIN7 

343 

C 

LIN7 

344 

C  161  TEST  FOR  EXCESSIVELY  8NALU  tfOVERENT 

UN7 

345 

161  60  TQt5S66.S97Sl.NPNT 

L1N7 

346 

*576  NRITE  ( t BOUT. 11 1  TSN.VP2T.VP2.TIY.FV 

LIN7 

347 

6566  irtTSN-6PSIU3958.36S6.3667 

LIN7 

348 

C 

LIN7 

349 

C  SPECIAL  TSANEPSSt  IN  TM  *V«RT  OF  CRCISSIVILV 

SNALL 

YEN 

LIN7 

396 

3666  66  TO  IPA6. (3652.3863) 

LIN7 

351 

o  o  o  o 


3(152  ASSIGN  3053  TO  IPAS 
JMAD1* JWAD 
VP7T-VPZ 

TSM«EPSIL  ** 

GO  TO  ldll 

3il53  IF(VPZT*VP7.)3054, 3055, 3055 

3054  VPZ*OlO 
..IP  T 1 2*TL  I M I T 

GO  TO  3056 

3055  VPZ«tVPZ*VPZT)/2.0 
C 

C  IF  VECTORS  ARE  OF  OPPOSITE  SIGNS,  USE  A  ZERO 

3056  iFIVXt JWAD 3 *VX( JWAD1J 13057,3058,3058 

3057  VPX*0T0 

T I X*TL l M  J  T 
GO  TO  3059 

3058  VPXMVXt JWAD! *9X1 J4AD1 11/2.0 
C 

3059  IF IVYlUWAD1*VY? JWAD1 113060,3061# 3061 

3060  VPYsOlu 
TIV=TLIMJT 
GO  TO  30ft? 

C 

3061  VPY»I  VYUWA01*VY[JWAD13 1/2.0 

3062  TWND*ENUTIM-TPt JJ 
TSM=AKIN1ITIX,TIY,TIZ,CIRMIN,TWNDJ 
IF [TSM-TWND I  3065, 3064,3065 

3064  IRa4 

GO  TO  3066  <f 

3065  1  R*5 
TSM*TSM*EPSIL 
TPtJI»TP(JJ*TSM 

C 

3066  XPt Jl*XPt JI*VPX*TSH 
YPf jJ=YP[ J]*VPY*TSM 
ZP(  J]=ZPUI*VPZ*TSH 
GO  TO  3063 

3067  ASSIGN  3052  TO  IPAS 
C 

C  3051 1 S  PARTICLE  BELOW  MAXIMUM  TOPO  HFIGHT  NO  TO  1011 
3051  IF (ZP l JI-TTOPO 11812, 1812.1811 

1812  GO  TO  ITT. 1188.18131 

1013  TRANSPORT  PARTICLE  FOR  TSN  BY  STEPS  OF  DTMAC  CHECKING  TOPO  AS 
GO 

COMPUTE  MOVEMENT  INCREMENTS  FOR  X.Y,  AND  Z  DIRECTIONS 

1813  XlN*OTMAC*VXIJWADJ 
YIN«DTMAC*VY[ JMAOI 
ZlN«OTMAC*VPZ 

iei4  XPI J)«XPl JI^XIN 
YPt  J)«YPUJ*YIN 
ZP  I J 1 *ZP I J I *Z I N 
TP(J1»TPIJ1*DTMAC 
TSM-TSM-DTMAC 

TEST  FOR  PARTICLE  IMPACT  ON  TOPOGRAPHY 
X»XPIJ1 
Y*YPI  J1 

CALL  HEIGHTIx, Y.HJ 


LIN7  353 
L1N7  354 
LIN7  355 
LIN7  356 
LIN7  357 
L1N7  358 
LIN7  359 
LIN7  360 
LIN7  361 
LIN7  362 
LIN7  363 
LIN7  364 
LiN7  365 
LIN?  366 
LIN7  367 
LIN7  338 
LIN7  369 
LIN7  370 
LIN7  371 
LIN7  372 
LIN7  373 
LIN7  374 
LIN7  375 
LIN7  376 
LIN7  377 
LIN7  378 
LIN7  379 
LIN7  380 
LIN7  381 
LIN7  382 
LIN7  383 
LIN7  384 
LIN7  385 
LIN7  386 
LIN7  387 
LIN?  388 
LIN7  389 
LIN7  390 
LIN7  391 
LIN?  392 
LIN7  393 
LIN7  394 
LIN7  395 
WE  LIN7  396 
LIN7  397 
LIN7  398 
LIN7  399 
LIN7  400 
LIN7  401 
L1N7  402 
LIN7  403 
LIN7  404 
L1N7  405 
LIN7  406 
UN7  407 
LIN7  408 
LIN7  409 
LIN7  410 
LIN7  411 


C 

C 


no  no  o  n  oon  no  n o  noon 


IF(M*20000V0 1187?, 1872, 1815 
1115  |F(M*10000. 011875, 1875, 1816 
1818  fFtH-2Pljm8l7.l88.lS8 
1817  IF (T$H 1189, 189, 1814 

** 

1811  TRANSPORT  PARTICLE  FOR  7SN 

FIRST  INCREASE  TSM  TO  ASSURE  THAT  THE  PARTICLE  MILL  ACHIEVE  ITS 
BOUNDARY 

1811  TSH*TSN*1. 000001 

XP(JJ«XPtJJ*VXlJWADl*TSM 
YP(Jl«YPtJl*VYlJWA01*TSM 
2PI JJ*ZP( J1*VPZ*TSM 
TP( JJ*TP( J|*TSH 
3883  CONTINUE 

ARE  TRANSPORT  TRACES  TO  BE  WRITTEN..  YES  TO  5550 
80  TO  (5560, 5550). MPN7 

5550  NRlTE(ISOUT,12)XPU),VP(J),2P(J],TPtJt,TSH,NTl,NG,NTO.NM,NLOST, 
HR 

TEST  FOR  PARTICLE  IMPACT  ON  TOPOGRAPHY 
5560  IFIZPUI-TT0P01187.187.189 

188  PARTICLE  IS  NOT  QR0UN0E0.  ADJUST  INDICES  JM  AND  JWAD  AND  THEN 
RECYCLE. 

188  60  TO  (250,250.252,159,195) ,  JR 

158  NTI«NTI*1 

TP(J1»ENDT!N 
60  TO  160 
258  JM«-JM 

60  TO  1950 

252  IFIVZIJMAOI 1258,258,259 
JM*1- JM 
60  TO  1961 
JM»-(JM*11 
278  (JO  TO  1861 
187  QO  TO  IT. (188,18711 

1871  X*XPIJ1 
Y*YP{ J1 

CALL  HEIGHT(X.Y.H) 

IF (H*20000. 011872,1872. 1874 
1874  lF(H«10000t01l875, 1875. 1876 

1672  H«-200Q0.0  PARTICLE  BEYOND  SPECIFIED  TOPO 

1872  FMASUle-FHASlJJ 
TP( JI*TLIMIT 
NL0ST»NL03T*1 
60  TO  160 


1675 

1875 


1877 

1876 


H«-I080§x0  PARTICLE  BEYOND  IN-CORE  TOPO 
TP( J1*-TP( Jl 
NTO»NTO*1 

IF(JT0P1U6B, 1877, 160 

JT0P1«*1 

60  TO  160 

(FIH-ZPIJJ 1169,166,168 


168  TAXIS  CARP  OF  6R0UNDID  PARTlCLiS 
186  FHAS(Jl«-FHA|tJ) 

TPIJls-TPUI 


LI. <7  412 
LIN7  413 
LIN7  414 
LIN7  415 
LIN7  416 
LIN7  417 
LIN7  416 
LIN7  419 
LIN7  420 
LIN7  421 
LIN7  422 
LIN7  423 
LIN7  424 
LIN7  425 
LIN7  426 
LIN7  427 
LIN7  428 
LIN7  429 
LIN7  430 
LIN7  431 
L1N7  432 
LIN7  433 
LIN7  434 
LIN7  435 
LIN7  436 
LIN7  437 
LIN7  436 
LIN7  439 
LIN7  440 
LIN7  441 
LIN7  442 
L1N7  443 
LIN7  444 
LIN7  445 
LIN7  446 
LIN7  447 
LIN7  446 
LIN7  449 
LIN7  450 
LIN7  451 
LIN7  452 
LIN7  453 
LIN7  454 
LIN7  455 
LIN7  456 
LIN7  457 
LIN?  456 
LIN7  459 
L1N7  460 
LIN7  461 
LIN7  462 
LIN7  463 
L1N7  464 
LIN7  465 
L1N7  466 
LIN7  467 
LIN7  466 
LIN7  469 
LIN7  470 
LIN7  471 


IT* 


o 


u 


160 


NG=NG*1 

CONTINUE 


C 

c 

c 

c 

c 


END  OF  MAIN  TRANSPORT  LOOP 


C 

c 

100 

c 

c 

c 

c 

c 

104 
C  200 
200 
203 
2021 


2031 

201 


IFC JOONP-IJIOOO. 100. 1000 

ARE  ANY  PARTICLES  ON  THE  OFF  THE  TOPO  TAPE 
IFC JTOP1J105,104,105 

jTOPl  GR  ZERO  INDICATES  SOME  PARTICLES  ARE  ON  OFF  TOPO  TAPE 
A  NEGATIVE  JTOPl  INDICATES  PARTICLES  IN  OFF  TOPO  BUFFER  BUT  NOT 
ON  THE  OFF  TOPO  TAPE 


OUT  OF  WIND  FIELD  TAPE 


2022 

202 


ARE  ANY  PARTICLES  ON  THE 
IFIJkJnDI 1130,200*130 
IS  particles  aloft  time  boundary  tape  in  use 

IFIJTIMEI J203, 203,201 

IP  INTI  12021* 2031, 2021 

jTIHEle-*. 

jDONE  =  1 

GU  TO  202 

ENDTIMsTLIMIT 

GO  TO  202 

WRITE! IPAROTJNUL 

REWIND  1PAROT 

REWIND  IPARIN 

ITEMP«IPAR!N 

IPaHIN  « IPAROT 

IPAROT=|TEMP 

jTIMcl=0 

IFINTIJ20??, 202. 2022 

JT!ME1=-1 

IExECs2 

RETURN 


ss 


L IN?  472 
LIN7  473 
UN7  474 
•LIN7  475 
LIN7  476 
UN?  477 
LIN7  478 
*LIN7  479 
LIN7  480 
LIN7  481 
LIN7  482 
LIN7  483 
LIN7  484 
LIN7  485 
UN7  486 
LIN7  487 
LIN7  488 


469 

490 

491 

492 

493 


A  NEGATIVE  JWJNDl  INDICATES  SOME  PARTICLES  ARE  IN  THE  OUT  OF  THE 
WIND  field  buffer  but  not  on  tape 

jwindi  greater  than  zero  Indicates  particles  are  on  the  out  of 
THE  wind  field  tape 


C  105  GET  THE  RFQUlRbn  TOPO  DATA  FROM  TAPE 


LIN7 
LIN7 
LIN7 
LIN7 
LIN7 
LIN7  494 
LIN7  495 
LIN7  496 
LIN7  497 
LIN7  498 
LIN7  499 
LIN7  500 
UN7  501 
LIN7  502 
LIN7  503 
LIN7  504 
LIN7  505 
LIN7  506 
LIN7  50  7 
LIN7  506 
LIN7  509 
LIN7  510 
L1N7  511 
LIN7  512 
LIN?  513 
LIN7  514 
LIN7  515 
LIN7  516 
LIN7  517 


i07  SCANS  BUFFER  PARTICLE  COUNTERS  TO  DETERMINE  NEXT  NEEDEDLIN7  518 
TOPO  DATA  BLOCKS  AND  CHOOSES  THE  NEAREST  ONE  FOR  REA0IN6. 


105 


108 


NBiC  IS  SFT  BY  THE  INITIALIZING  PROGRAM  WHICH  READS  THE  TOPO 
TAPES  IDENTIFICATION  RECORDS 

NlNTARIJJ  IS  SET  BY  THE  TRANSPORT  LOOP  WHEN  PARTICLES  LEAVE  TOPO 
AND  RESET  WHEN  OFF-TOPO  BUFFER  IS  EMPTIED. 

JTPST*1000 

DO  107  J*1 » NBLCH 

JTFST1*NINTARIJ] 

IF(JTIST1U07, 107*108 
JTEST2«JFT0P0»J*1 
IFUTEST2I109, 110*111 


177 


LIN7  519 
UN7  520 
LIN7  521 
UN7  522 
LIN7  523 
LIN7  524 
LIN7  525 
L IN7  526 
LIN7  527 
LIN7  528 
UN7  529 
LIN7  530 
LIN7  531 


rm  n o  no  no  no  onn  onn 


111  IRR0R*-11O 

c 

C  SKEKS  THE  FILE  IN  CORE.  SHOULD  NEVER  NAPP|N.  30  TC  A  STOP  EXIT. 
00  TO  391 

111  IFIJTIST2-JTEST1112, 107.187 
111  jTBBT«JTfST2 
00  TO  141 

189  IF  (JTEST+JTEST2 110 7 .107.113 
U3  JTEST*-JTEST2 
140  JF«J 
107  CONTINUE 

AT  THIS  POINT  JF  HAS  THE  NUHBER  OF  THE  DESIRED  FILE 
NON  NOVI  TAPE  TO  SELECTED  file 
iriJF-jrTOPOU072,1071.107l 

1071  PREPARE  TO  HOVE  FORWARD  ON  IHT0P0.  COMPUTE  NUHBER  OF  BLOCHS  TO 
READ  IN 

1071  JR«JF-JFT0P0*1 
OO  TO  i874 

1C. '2  DESIRED  FILE  IS  BEHIND  READ  HEAD.  BACK  UP  TO  SET  IT. 

1072  REMIND  IHTOPO 

NOW  SKIP  OVER  INITIAL  RECORDS 
READ  I IHTOPO JTST 

READ  I IHTOPO I TST .TST.TST.TST.TST 
READ  I IHTOPO J TOPOL* 

READ  ( IHTOPOl I TOPLH 
JR«JF  i 

1074  NON  READ  UP  THROUGH  THE  DESIRED  BLOCK 
1074  DO  1073  J«1.JR 
1873  CALL  RDTOPOl J! 

116  RESET  ALL  OFF-TOPO  PARTICLES 

116  DO  118  J-1.NAL0FT 
lFIFNASlJmi7.il8.U8 

117  IFITPIJ11119.H8.118 

119  lFrTPlJl-TLlHlTJi2fl.118.lZ0 

120  FHA3tJl«-FHASIJl 
TPt  !1»-TPIJ1 

118  CONINUE 
JF»NAL0FT 

(Ft JT0P1 11151.119* 119 
ilSl  JTOP^«0 
JTIHE.U-1 
60  TO  1001 

115  REMIND  OFF  TOPfl  AND  PARTICLES  ALOFT  TAPES  AND  SWAP  NAMES 
115  wRiteiiotopojnul 
REWIND  0T0*0 
REN I NO  «PAF"N 
ITEMP*10TOPS 
!OTOPG*fPAR!N 
t PAR I N« I TEMP 
JTOP1«0 
BO  TO  1001 
C 

C  130  BIT  THE  REQUIRED  WIND  FIELD  DATA  FROM  TAPE 


178 


LIN7  532 
LIN7  333 
LIN7  534 
L1N7  535 
L1N7  536 
LIN7  537 
LIN7  538 
L1N7  539 
LIN7  540 
LIN7  541 
11N7  542 
UN7  543 
L1N7  544 
LIN7  545 
LJN7  546 
LIN7  547 
L1N7  548 
LIN7  549 
LIN7  550 
LIN7  551 
LIN7  552 
UN7  553 
LIN7  554 
L1N7  555 
LIN7  556 
LIN7  597 
L1N7  558 
LIN7  559 
LIN7  560 
LIN7  561 
LIN7  562 
LIN7  563 
LIN7  564 
L1N7  565 
LIN7  566 
LIN7  567 
L1N7  568 
LIN7  569 
L1N7  570 
LIN7  571 
LIN7  572 
LIN7  573 
LIN7  574 
L1N7  575 
LIN7  576 
LIN7  577 
LIN7  578 
LIN7  579 
L1N7  580 
L1N7  581 
L1N7  582 
LIN7  583 
L1N7  584 
L1N7  585 
L1N7  586 
LIN7  587 
L1N7  566 
LIN7  589 
LIN7  590 
LIN7  591 


) 


130  GO  TO  124 
C  INSERT  CODE  HERfc 
C 

C  RESET  ALL  IN-COKF  OUT-OF-WlND-FIFLD  PARTICLE  KEYS 

124  DO  122  J=l,NALOFT 
IFIFMASIJIJ  1241,122.122 

1241  IFITPIJJ J122, 122, 1242 

1242  lFITPtJ)-TLlMlTJl243.l22,1243 

1243  FMASI J]«-FMASI JJ 

122  CONTINUE 
IF=NALOFt 

iFIJwlNDl 1123,125.125 

123  JHINOlsO 
JTIME1=-1 
GO  TO  1001 

C  125  REWIND  OUT  OF  WIND  AND  PARTICLES  ALOFT  TAPES  AND  SWAP  NAMES 

125  WRITE  1 1 OW I ND, 1 0  JNUL 
JWINDlsO 

REWIND  IOWIND 
REWIND  IPARIN 
l TEMP* IOWIND 
l OW I ND= I  PAR  I N 
IPARIN=ITEMP 
GO  TO  1001 
C 

END 

SIPFTC  CBRE11  LIST, DECK, M94/2 

SUBROUTINE  CBREZl l J. K , AX » Ay. AZ J 
C  11  OCT  ft 6 

C  I.  KOHlbtRC,  T.W.SCHWENKE  TECHNICAL  OPERATIONS  RESEARCH.  INC. 

C  THIS  SUBROUTINE  SERVES  THE  DUAL  PURPOSE  01  RE  AD  I  NO  SEA  BREf  Zp 

C  DATAIWHEM  ThT  SIGN  OF  ARGUMENT  j  IS  MINUS)  AND  COMPUTING  THE 
C  sea  RRFEZE  for  The  j-th  particle, 
c 


LIN?  592 
LIN7  593 
LIN7  594 
LIN7  595 
L IN?  596 
LIN7  597 
L1N7  598 
LIN7  599 
LIN7  600 
LIN7  601 
LIN7  602 
UN7  603 
LIN7  604 
LIN7  605 
LIN7  606 
LIN7  607 
LIN7  608 
LJN7  609 
LIN7  610 
LIN7  fcil 
LIN7  612 
LIN7  613 
LIN7  614 
L1N7  615 
LIN7  6t 6 
Ll^7  617 
CBRE  0 
CoRE  1 
CBHE  2 
CBRE  3 
CBRE  4 
CBRE  5 
CBRE  6 
CBRE  7 


C  CBRE  9 


COMMON 

/SETl/ 

CBRE 

10 

1 

1)1  AM 

• 

DETJO 

9 

I K I  S«_ 

• 

I  EXEC 

9 

I  SI  N 

9 

ISOUT 

9 

CBRE 

11 

2 

SU 

f 

SPAR 

9 

SSAM 

9 

THE 

9 

7MP1 

9 

TMP2 

9 

CBRE 

12 

3 

T2M 

9 

0 

9 

VPR 

9 

U 

9 

X 

9 

z 

9 

CBRE 

13 

4 

WHY 

$ 

RMIN 

9 

IDISTR 

9 

SPARi 

9 

SPAR? 

9 

SPAR3 

9 

CBRE 

14 

5 

5PAR4 

$ 

SPAR5 

9 

SPARt 

9 

SPAR7 

9 

sparr 

9 

SPAR9 

CBRE 

15 

CBRE 

16 

********* 

►  * 

* 

X# 

i*t 

******** 

**1 

*•*« 

•CBRE 

17 

CBRE 

16 

DIMENSION  DET I P 1 12 1 , WHY  I 4o ] 

CBRE 

19 

COMMON 

/$ET2/ 

CBPfe 

20 

1 

S 

9 

SUBS  I D 

9 

GRINT 

9 

BXLL 

0 

BXLU 

9 

BYLL 

CBRE 

21 

2, 

8  YLU 

9 

TXLL 

9 

TXLU 

9 

TYLL 

9 

TYLU 

9 

XGZ 

CBRE 

22 

3, 

YG7 

9 

N9LCK 

9 

HTOPO 

9 

TTOPO 

9 

ILIrt 

9 

JL  1 M 

CBRE 

23 

4, 

KLIM 

9 

1 1 

9 

JJ 

9 

KK 

9 

XP 

9 

YP 

CBRE 

24 

5, 

ZP 

9 

FMAS 

9 

TP 

9 

PS 

9 

VX 

9 

VY 

CBPC 

25 

6, 

vz 

9 

IL 

9 

JL 

9 

IBADD 

9 

WGRINT 

9 

NSTRAT 

CBHE 

26 

?, 

WLLX 

9 

hlly 

9 

WURX 

9 

WURY 

9 

BOTHIT 

9 

IPARIN 

CBRE 

27 

8, 

IOTOPO 

* 

IOWIND 

9 

I  HTOPO 

9 

I  POUT 

9 

IPARUT 

9 

JT0P1 

CBRE 

28 

9, 

JWIND1 

• 

IRROR 

9 

TLIMIT 

9 

ENDTIM 

9 

IC 

9 

IBYPAS 

CBRE 

29 

1, 

JTOPJ 

I 

NLOST 

t 

NG 

9 

NTO 

9 

NT! 

9 

NW 

CBRE 

30 

2, 

NALOFT 

9 

JTIME1 

9 

NBNAX 

9 

NFREE 

9 

H 

9 

NCL 

CBRE 

31 

3. 

CRMAXY 

g 

CRUHT 

9 

NCRTYP 

9 

8Z 

9 

crminx 

9 

CRMINY 

CBRE 

32 

4, 

UO 

$ 

SN 

9 

CS 

9 

NLOCIR 

9 

DTLOC 

9 

ATEMP 

CBRE 

33 

o  nr.  o  oooono  no  n  n  no  n  n  n  or,o  rsrs  -(  r 'looricei  ooo 


,  RHO  *  N> 

.  TUZ 

DTMAC  .  FROG 

,  CRMAXX 

CBRE 

34 

i.  POPART 

CBRE 

35 

DIMENSION 

TOPOLMHUJ 

.NiNTARU  I 

» IT0PLMI3c4) 

CBRE 

36 

DIMENSION 

StlO.iOi 

.SUSsUCUOOl 

, ICtlSi 

CBRE 

37 

DIMENSION 

XP120D! 

»YP(200J 

.ZPI206) 

.FMASI200! 

CBRE 

36 

DIMENSION 

TP? 200  J 

*PSt203J 

, ATEHPI 26& ) 

t RHO ( 260  I 

CBRE 

39 

DIMENSION 

VX 1 1500 1 

# VVI 19033 

.VZI1500I 

# Ilf 7p< 

CBRE 

40 

DIMENSION 

Jit  701 

# ISADDt  70 1 

,WUNX!70! 

CBRE 

41 

DIMENSION 

W8RJNT{70l 

,WLLX!7Q3 

»HLLY(70l 

CBRE 

42 

DIMENSION 

uy(*vi7ei 

,8OTM|TC703 

• SN (6! 

.CStftl 

CBRE 

43 

DIMENSION 

CRNINX  ?6! 

,CRMAXXU  J 

,CRNINY i 6 1 

, CHMAXY 1 6 1 

CBRE 

44 

CINENSION 

CRUM! I  ft] 

#NCRTYPC6J 

.UQlftJ 

CBRE 

45 

CBRE 

46 

»«****##**#*#*****# -Hi#**!***#***#******,,###*#**#**  **#CBRE 
PARAMETERS  PFCL"  UR  ?0  C&REZ  C8RE 
DIMENSION  AJZXl9|eAJXXI9]iFAX(91,RllX(9l,R2Ixm,RlRxm,  CBRE 
INm’EOJ.CONlxm  JC0N2XI91*CANlXt9J<>CAN2X(9!,CNNlXl9).  CBRE 
2CNN2Xi93 . SRRiX 19  J *  SNN2XI 9t »QMGX  t ?  >  »DELTX 1 9 1 «TAUX  1 9 1  CBRE 


BREEZE  GLOSSARY* 


ACCS  GRAVITATIONAL  CONSTANT  (METERS/SQR.  SECOND)  CBRE 

AKY  THERMAL  EDDY  DIFFUSIVITY  I80R. METERS/  SECOND)  CBRE 

AX  HIND  VECTOR  EAST  (METERS/SECOND I  CBRE 

AY  HIND  VECTOR  NORTH  I  METERS/SECOND )  CBRE 

AZ  hind  VECTOR  VERTICAL  > METERS/SECOND)  CBRE 

b  THE  ANGLE  f MEASURED  CLOCKWISE  FROM  TRUE  NORTH)  THAT  CBRE 

DESCRIBES  THE  ORIENTATION  OF  THE  SHORE  LINE.  FUR  B  CBRE 
EQUAL  TO  ZERO, THE  SEA  IS  ON  THE  LEFT  HAND  SIDE  OF  THECBRE 
SHORELINE.  (RADIANS!  CBRE 

G»  A  GENERAL  PURPOSE  VARIABLE  USED  FOR  CBRE 

CONSTANT  STORAGE  IN  READ  ROUTE.  CBRE 

HIND  VECTOR  PERPENDICULAR  TO  SHORE  CBRE 

CRUHT  HEIGHT  of  TME  sea  BREEZE  CELL  (METERS!  CBRE 

DELTXiNl  MAXIMUM  TEMPERATURE  DIFFERENTIAL  FOR  THE  N-TH  CBRE 

HARMONIC  (DEGREES  KELVIN!  CBRE 

ELX  TOTAL  EXTENT  OF  THE  SEA  BREEZE  CELL  (METERS!  CBRE 

GRAD  INITIAL  TEMPERATURE  GRADIENT  (DEGREES  KFLVIN  /METER)  CBRE 

NN  NUMBER  OF  HARMONICS  CBRE 

SGMA  GULDbERG*MOHN  PARAMETER  (1/  SECONDS!  CBRE 

SNPKI  SINE  OF  THE  LATITUDE  OF  THE  SEA  BREEZE  CELL  CBRE 

TAUXtNI  PHASE  LAG  OF  N-TH  HARMONIC  (RADIANS)  CBRE 

THET  AVERAGE  GROUND  TEMPERATURE  (DEGREES  KELVIN)  CBRE 

XS  A  GENERAL  PURPOSE  VARIABLE  USED  FOR  CBRE 

PERPENDICULAR  DISTANCE  FROM  SHORE  LINE,  CBRE 

PERPENPICULAR  DISTANCE  FORM  EDGE  OF  PRIMARY  CELL,  CBRE 
ATTENUATION  CONSTANT  CBRE 

CBRE 

*****#©****+*4***#****«******«*»«»*«*****************************#**C8RE 

CBRE 

FOKMATUFia. 3,1101  CBRE 

FORMAT { //45X24HLOCAL  CIRCULATION  NUMB6RI6/50X12H5EA  BREEZE  1/  I  CBRE 
FORHATUftXSHSINE  OF  9X13HGULDB6RG-MOMNBX10HNUMBER  OF  7X16MT0TAL  C8RF 
lEXYgNT  0F5XUHAV6.  8R0UND/16X8HL ATITUDE12X9HPARAMETER9X12H  MARMONICBRE 
2CS  6X15MSEA  8REE2E  CEU6XUMTEHPERATURS/tiX9H  10X11MI1/SECBRE 

SCONDS I30X9H  !  METERS  )8X1,6H|  DEGREES  KELVIN)/  1 0X2E19 . ft . 9X I  3. ilX,  CBRE 
42E19.*,///  SXliHATTSNUATI 0N9X12H THERM Al  EDDY7X15MC0ASTL I  ME  ANGLE8XC8RE 
»13HU!TIAL  T€MP.jSX9H  PHAjf  ,ftX,16H  TEMPERATURE  /UftHCONSTANTCBRE 
Eli  X » HMD  I  Ff  US  (VlTYTXlSMfROM  TRUE  N0«TH8X»M8RA»HnT1SX.3HLA89X16H  CBRE 
^DIFFERENTIAL  /5X13H(l/MiTgRSl6XllH!SaR.  METERS/ SIC, J 7X9H( RADIANS! CBRE 


o 


n  o  oo  o  o  o 


86X22HIDFGRFFS  KEL V  I N/METER 1 » 6X9H t R AD l ANSI » 6X1 6H I  DEGREES  KELVIN1 /»  C8R£  94 

9  4E19.*8,13X,  9H  TAUXtNJ  .  10XRHDELTX  l  N I  ,  ////  J  CBRE  95 

4  FORMAT { 2F10 « 3  J  C8RE  96 

20  F0RMAT(//45X«36HC0 ORDINATES  OF  LOCAL  CELL  BOUNDARIES/. 3QX, 5HNORTH.CBRE  97 

110X,5HSOIJTH,11X,4H5AST,11X,4HWFST,10X.6HHEIGHT/,22X.5F15.3///I  CBRE  98 

21  F0RMATI//23X74HTHE  N-TH  HARMONIC  CONSTANT  COEFFICIENTS  USED  IN  CALC8RE  99 

1CULATIMG  THE  HIND  FIELD//J  CBRE  100 

22  F0RMATI5X.6H  OMGN t , ! 1 , 2H 3 * ,El6 . 8 .  5X.6H  A JZ t , 1 1. 2H I «. E16. 8.  CBRE  101 

1  5X.6H  AJxl, U.2M]a, E16.B,  5X.6H  A JV 1 , 1 1, 2H I »,E16, 8. /  CBRE  102 

2  5X.6H  AKNl[.U,2HJ»,fel6.8.  5X,  6H  ALN1 1 , 1 1 ,  El6,8.  CBRE  103 

3  5X.6H  AKN21, U,2HJ»,E16.8,  5X.6H  ALN2 ( , 1 1. 2H| », E16.8, ✓  CBRE  104 

4  5>X,6HBLOWlt.It,2H)*,El6.8,  5X. 6H8L0W2 ( *  1 1 . 2H 1 «, El6 . 8.  CBRE  105 

5  5X.6H  ANN] [. U.2H]s.El6.8>  5X.6H  ANN2 ( . I 1. 2H| «, E16.8, /  CBRE  106 

6  5X.6H  PHINI .  U.2HJ«,E16,8,  5X.6H  ENUi.  H.2HI*. 1:16.0*  CBRE  107 

7  5X.6HDFLTXI . 1 1 , 2H I  s , Ei 6 . 8 ,  5X.6H  TAUX 1 , 1 1# 2H I «,E16 .8/// J  CBRE  108 

CBRE  109 

*•••*••******  »***«•******••■/••«*•••**•  **********  +  **#*******«r***«******C6RE  110 

CBRE  111 

DATA  PR0GRM/6HC8RE71/  CBRE  112 

CBRE  113 

CBRE  116 

iFunoo.ini.io?  cbre  117 

ini  IRROR=-101  CBRE  118 

7734  CALL  ERROR fPROGRM, IRROR, ISOUTJ  CBRE  119 

C  100  THIS  IS  THF  DATA  READING  ROUTE  CBRE  120 

C  CBRE  121 

100  READ  IISIN.1ISNPHI.SGMA.ELX.THET  CBRE  122 

READ  l  ISIN.llMW. AKY.B.GRAD.NN  CBRE  123 

READ  l  ISIN.4) [ DEL  T  X [ N  J »  T  AUX I N  J *N*1*NN)  CBRE  124 

WRITE  IIS0MT.2JK  CBRE  125 

ALM=6. 283185 3/ELX  CBRE  126 

ALPH=9.b/THET  CBRE  127 

COR=[14.544410E-05)*SNPH!  CBRE  128 

DU  2000  N«1,NN  CBRE  129 

OMGX  f  N  J  «N  CBRE  130 

OMGXtNJ«OMGX(Nl*7.?722052E-05  CBRE  131 

A2sSGMA*SGMA*OMGxfN J *OMGXlNi  CBRE  132 

A1  =  SQRT  I A2 1  CBRE  133 

IF [SGMA)1003.1003.1004  CBRE  134 

C1003  SGMA  JS  7ERO  OR  NEGATIVE.  THIS  IS  NOT  ALLOWED  CBRE  135 

1003  I RROR*l 0 03  CBRE  136 

GO  TO  7734  CBRE  137 

1004  T1=-ATAN10MGX(N)/SGMAI  CBRE  138 

T2  =  -2To*T1  CBRf:  139 

S0CsSGMA**?»0mGX(N)**2*C0R**2  CBRE  140 

A3*SQRTISOC**2*4.0*SGMA**2*OMGXCN)**2I  CBRE  141 

IFIS0CU005. 1055, 1555  CBRE  142 

1005  T3sATAN(2.0*OMGX[N1*SGMA/SOCJ*  3,1415927  CBRE  143 

GO  TO  5555  CBRE  144 

1055  T3  =  l. 5707963  CBRE  145 

GO  TO  5555  CBRE  146 

1555  T3»ATANl2.0*OMGX[N)*SGMA/S0Cl  CBRE  147 

5555  A4*U2*ALH**21/A3  CBRE  148 

T4*T2-T3  CBRE  149 

A5sUl*ALPH*ALM**2  J/AJ  CBRE  150 

T5»-T1-T3  CBRE  151 

iFtAKYUOOft,  1006. 1606  CBRE  152 

Cl 0 06  AKY  IS  ZERO  OR  NEGATIVE.  THIS  IS  NOT  ALLOWED  CBRE  153 

181 


■see*  r ■  «»***  .• 


kii  irromim* 

10  TO  7704 
1680  A«*0M8X(N!/AK7 
A/^BRAD/AKy 
AC0T4  «  A4*C08tT4j 

QlaIcOT4*ACo4S-l8 1 Tot AS1T4-4 , 0* I A7 *45*C08I T51 -AA*A4««IM l T4 11 

§i*2.0*ACOT4*ASIT4“4,0*i Aft*AC0T4*A5*A?*SlBtT5 J 1 

in»Ulfl#7.Xl77«l777 
1817  |ETA*ATARCBt/lU  ♦  3. 1415427 
SO  TO  7777 

1877  |MMIM87,0807,8077 
•H7  MT*«4*7lt*tfl 
•0  TO  7777 
9877  BETA*1. 5787983 
SO  TO  7777 

1777  ilTA*ATAWtPl/81 J 
7777  AN«KTA/2.8 

8B*lBl*8l*Bl*B2)**0  *25 
AC0SM*C08 1  AM 1 *BB/2 . 0 

ASINM*S!N(ANl«BB/2.0 
ACOT4»ACOT4/2.0 
ASIT4MSIT4/2.0 
Cl»  AC0T4«AC0SN 
01*  ASIT4*A81N« 

C2«AC0T4-AC03* 

02*  AS1T4-ASINN 
lFiClll008.1088.l8B8 
1808  0AM1«ATAMC01/G11  ♦  3.1415927 
GO  TO  8888 

1088  iFl 01 190 08, 9008.90 88 
9008  QAM1*4. 7123890 
80  TO  8888 

9088  8AM1*1. 5757903 

80  TO  8888 

1888  SAMl*ATANt01/Cl) 

8888  lFtC2ll809. 1099. 1999 
1899  8AH2*ATANID2/C2 1  ♦  3.1415927 
80  TO  1111 

1099  irt02l9009, 9009, 9099 

9089  8AM2«4. 7123890 
80  TO  1111 

9099  8AM2*1. 5787963 
80  TO  1111 

1999  8A«**ATAN102/C2J 
mi  s*m«ici*ei*Di*ni)*«D.25 
»RTE2*tC2*C2*D2*02)**0.25 
ANl*8ANl/2;0 
AM2*GAH2/2.0 
C0Nl*C08(ANl] 

C0M2X(Hl*C08lAB21 
CAN1*8!N(AN1)  v 

iCAN2X!NI*l?N{AM2] 

|F (CONI I5.5.00 
9  RlRX{W*3RTil*C0Wl 
81!XfBI*tBTll*CAWl 
1411*1.1 
86  TO  7 

8«  il(»*IB)4*ltt*i*C6«i 
lHI«tMl*-8l»Til*CA»li 


GIBE  1' 
CBRE  1 
CBRE  1 
CBRE  1 
CIRE  1 
CBRE  1 
CBRE  1 
CBRE  1 
CBRE  1 
CBRE  1 
CBRE  1 
CBRE  1 
CBRE  1 
CBRE  1 
CBRE  1 
CBRE  1 
CBRE  1 
CBRE  1 
CBRE  1 
CBRE  1 
CBRE  1 
CBRE  1 
CBRE  1 
CBRE  1 
CBRE  1 
CBRE  1 
CBRE  1 
CBRE  1 
CBRE  1 
CBRE  J 
CBRE  2 
CBRE  : 
CBRE 
CBRE 
CBRE 
CBRE 
CBRE 
CBRE 
CBRE 
CBRE 
CBRE 
CBRE 
CBRE 
CBRE 
CBRE 
CBRE 
CBRE 
CBRE 
CBRE 
CBRE 
CBRE 
CBRE 
CBRE 
CBRE 
CBRE 
CBRE 
CBRE 
CBRE 
CBRE 
CBRE 


j.  s 


t 

i 


0 


ERS1*-1 .0 

CBRE 

214 

7 

iriC0N2XtNJ J8,H#9 

CBRE 

215 

8 

R2RXINJ«  SRTE2*CON2XINI 

CSRE 

216 

R2IXtNl*SRTS2*CAN2X(Nl 

CBRE 

217 

EPS2*1.0 

CBRE 

210 

GO  TO  10 

CBRE 

219 

9 

R2RXINJ»-SRTE2*C0N2XIN] 

CBRE 

220 

R2IXIN]b-SRT62*CAN2XINJ 

CBRE 

221 

EPS2=-1.0 

CBRE 

222 

10 

ir  IN-117730, 110.131 

CBRE 

223 

773(1 

I RR0R=773Q 

CBRE 

224 

GO  TO  7734 

CBRE 

225 

c  determination  or  height  or  sea  breeze 

CBRE 

226 

ns 

HT1=-1.0/R1RX(N1 

CBRE 

227 

HT2s-1 . 0/R2RX INI 

CBRE 

228 

c 

CRUHTtKJ  IS  THE  HEIGHT  Or  THE  SEA  BREEZE  CELL. 

CBRE 

229 

ir(HTl*HT2)ll»ll, 12 

CBRE 

230 

u 

CR(JHTtK)«2-.0*HT2 

CBRE 

231 

GO  TO  13 

CBRE 

232 

12 

ORUHTlKl=2.0*HTl 

CBRE 

233 

13 

WRITS  (ISOUT.20 jchmaxyikj.crminyikj.crmaxxik). 

CRM  I  NX  I K  I , CHUHT  I K  J  CBRE 

234 

WHITE  f IS0UT.31SNRHI ,SGMA,  NN.FLX, THET, WM, AKT , 

B, GRAD  CBRE 

235 

WRITE  US0UT.21J 

CBRE 

236 

131 

FAXlNl=T5-AM*TAUXlNl 

CBRE 

237 

gs-cor/ai 

CBRE 

238 

c 

CBRE 

239 

c 

COMPUTATIONS  rOR  CONSTANT  COEFriEIENTS  OF  THE 

WIND  FIELD  CBRE 

240 

AJ7XIN]*-UFLTXlNl«A5/BB 

CBRE 

241 

AJXXIN}«AJ7XIN1/ALM 

CBRE 

242 

AJY=AJXXtN]»G 

CBRE 

243 

ES01=EPS1*SRTE1 

CBRE 

244 

ES02=EPS2«SRTE2 

CBRE 

245 

AMG=F.SQ1/ESQ2 

CBRE 

246 

CNNlXtN)=COStANl»Tl]*AMG*G 

CBRE 

247 

CNN2XiNJ=C0SIAN2*TlJ*G 

CBRE 

248 

SNN1XIN J=SINIAN1+T1I*AMG*G 

CBRE 

249 

SNN2X(NJsSINIaN2+T1 J*G 

CBRE 

250 

CON1XIN]sCON1*AMG 

CBRE 

251 

CAN1XIN)=CAN1*AMG 

CBRE 

252 

WRITE  ( I SOUT , 22 1  N , OMGX IN),N,AJZXINI,N,AJXX(N] 

,N,AjY»N,RlHX[N) , N, RCBHE 

253 

HIXINI  ,N.R?R'UNJ  ,N,R2IXIN),N,ESQ1,N,ES02»N,AN1 

, N, AN2, N,F AX | N) ,N, T 1CBRE 

254 
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N*-lttOI.O  HUG  *2 
SO  TO  101  HE  1 6  63 
PARTICLE  IS  BEYOND  TOPO  SPECIFICATION  AREA.  H  IS  SET  -20000.0  HEI6  64 
M-20000.0  HEI6  65 
»•••••••••*«*••*•••«•  TEMP  *******.****•***********************  HEIG  66 

NRITEI IS0UT.8 JXX* YY  HEIG  67 
SO  TO  2S  HEIG  6S 
FOR  PARTICLE  OVER  TOPO  BLOCK  NON  IN  CORE. FIND  COORD  OF  NEAREST  HEIG  69 
TOPO  POINT  IN  2  DIN  ARRAY  (IN  NO  OF  6RINTS  FROM  LOWER  LEFT  COR  OF  HEIG  70 
•LOCK  IN  CORE)  HEIG  71 
!*(XX«BXLL!/6RINT*1.0  HEIG  72 
J«CYY-BYLLI/GRINT*1.0  HEIG  73 
M  IS  TOPO  HEIGHT  IF  SQUARE  OF  SIDE  GRINT  TO  UPPER  RT  OF  PTll.JJ  HEIG  74 
NOT  SUBDIVIDED. A  NEG  NO  IF  SUBDIV  HEIG  75 
H*S(  I .‘ Jl  HEIG  76 
)F(HI12*2S.26  HEIG  77 
SHIFT  ORIGIN  OF  PARTICLE  COORD  TO  LOWER  LT  OF  SQUARE t SIDE. GRINT )  HEIG  76 
UNDER  PARTICLE  HEIG  79 
g  I  a !  HEIG  80 
gjaj  HEIG  81 
C<»XX-BXLL*tCl-1.01*GRIN  HEIG  82 
CY*YY-BYLL*ICJ-1.0)*GR!N  HEIG  83 
DIV  SO  GRINT  INTO  4  QUADRANTS  HEIG  84 
GRINaQRlN/2.0  HEIG  85 
SHIFT  ORIGIN  OF  PARTICLE  COORD  TO  CENTER  OF  DIVIDED  SO  HEIG  86 
CCX«CX-QRIN  HEIG  87 
CCY»CY-GRIN  HEIG  86 
ILOOP  STARTS  HERE!  HEIG  89 
CONVERT  NEG  H  TO  BASE  INDEX  FOR  SUBSIDIK1  HEIG  9C 
K»-H*8.5  HEIG  91 
WHICH  QUADRANT  IS  PARTICLE  OVER  HEIG  92 
IF(CCX)14.15.15  HEIG  93 
IFICCYI19.16.16  HEIG  94 
IFICCYI17.18.16  HEIG  95 
NODIFY  BASE  INDEX. REHEMBER  QUADRANT  HEIG  96 
MK*1  HEIG  97 
M>2  HEIG  98 
GO  TO  20  HEIG  99 
KaK*3  HEIG  100 
MM  HEIG  101 
GO  TO  20  HEIG  102 
K«K*2  HEIG  103 
N«3  HEIG  104 
GO  TO  20  HEIG  105 
M*l  HEIG  106 
H  IS  TORO  HT  JF  QUADRANT  NOT  SUBDIV  IN  SU8SJDIKJ.A  NEG  NO  IF  DIV  HEIG  107 
HaSU88IDtK)  HEIG  108 
IF(H)21.26.28  HEIG  109 
SUBDIVIDE  QUADRANT  HEIG  110 
GRINaGRlN/2.0  HEIG  111 
SHIFT  ORIGIN  OF  PARTICLE  COORD  TO  CENTER  OF  SUBDIVIDED  QUADRANT  HEIG  112 
PARTICLE  IS  OVER  HEIG  113 
80  TO  1 28. 24. 25. 27 ).N  HEIG  114 
CC¥«CCY«6iIN  HR18  H5 
CeXBCCX*ORIN  Hiss  116 
CO  YO  13  HE  IS  117 


o 


I 

1 

i 

I 


I 


24 

CCYsCCY-GRIN 

HE  IS 

iiS 

GO  TO  23 

HiiG 
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CCY«CCY-GRIN 

HE  1 6 

120 

26 

CCX«CCX-GRIN 

HE  1 6 

121 

GO  TO  13 

HEIG 
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END 
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LOTR 

0 

SUBROUTINE  LOTRANtJ.Kl 

LOTR 

1 

C 

11  OCT  66 

LOTR 

2 

C 

T7M.SCHMENKE  TECHNICAL  OPERATIONS  RESEARCH 

LOTR 

3 

C 

LOTR 

4 

C 

*#*1 

•LOTR 

5 

C 

LOTR 

6 

C 

THIS  IS  THE  EXE  Cl*  f I VE  ROUTINE  TOR  TRANSPORTING  PARTICLES  WITHIN 

LOTR 

7 

C 

ALL  LOCAL 

WIND  SYSTEMS. 

LOTR 

8 

C 

IP  THE  j- 

TH  PARTICLE  IS  ABOVE  THE  TOP  OP  THE  LOCAL  CIRCULATION 

LOTR 

9 

C 

CELL,  LOTRAN  TRANSPORTS  IT  USING  WIND  VEClORS  RETRIEVED  PROM  THE 

LOTR 

10 

C 

MACRO  WIND  PIELD. ARRAYS.  POR  PARTICLES  ACTUALLY  WITHIN  THE  LOCAL 

LOTR 

11 

C 

CIRCULATION  CELL  IT  CALLS  THE  APPROPRIATE  LOCAL  CIRCULATION  CODE 

LOTR 

12 

C 

TC  obtain 

AN  ESTIMATE  OP  THE  WIND  VECTOR  AT  PARTICLE  POSITION. 

LOTR 

13 

C 

IN  EITHER 

CASE  THE  PAFTICLE  TRANSPORTED  POR  ONE  TIME  STEP  OP 

LOTR 

14 

C 

duration 

DTMAC  SECONDS.  THIS  PROCEDURE  IS  REPEATED  UhTIL  THE 

LOTR 

15 

C 

particle 

LEAVES  THE  LOCAL  CELL  OR  LANDS  ON  THE  ANALYTICALLY 

LOTR 

16 

c 

described 

TOPOGRAPHY  OR  UNTIL  THE  TIME  1 ENDT I H I  POR  UPDATING  THE 

LOTR 

17 

c 

ENTIRE  WIND  riELD  is  REACHED,  PARTICLES  Hat  FALL  INTO  THE  LOCAL 

LOTR 

18 

c 

CELL  PROM 

ABOVE  DURING  TRANSPORT. 

LOTR 

19 

c 

LOTR 

20 

c 

•LOTR 

21 

c 

LOTR 

22 

c 

AX 

X  COMPONENT  OP  A  WIND  VECTOR  RETRIEVED  PROM  A  LOCAL 

LOTR 

23 

c 

WIND  PIELD  DESCRIPTION.  METERS/SEC. 

LOTR 

24 

r 

AY 

V  COMPONENT  -  SEE  AX 

LOTR 

25 

c 

AZ 

Z  COMPONENT  -  SEE  AX 

LOTR 

26 

c 

crhinxiki 

coordinate  op  the  western  bounding  plane  por  the  k-th 

LOTR 

27 

c 

LOCAL  CIRCULATION  SYSTEM  CELL 

LOTR 

28 

c 

CRMAnYIKI 

SEE  CRHINXIKI  -  SOUTHERN  BOUNDARY 

LOTR 

29 

c 

CRMAXYtK] 

SEE  CRM  I  NX  I K I  -  NORTHERN  BOUNDARY 

LOTR 

30 

c 

CRMINYIK] 

SEE  CRHINXIKI  -  EASTERN  BOUNDARY 

LOTR 

31 

c 

cruhtikj 

ALTITUDE  iMETERS  ABOVE  MSL )  OP  THE  TOP  BOUNDARY  OP  THE 

LOTR 

32 

c 

K-TH  LOCAL  CIRCULATION  CELL 

LOTR 

33 

c 

DTLOC 

TIME  STEP  DURATION  (SECONDS!  POR  TRANSPORT  WITHIN  LOCALLQTR 

34 

c 

LOCAL  CIRCULATION  CELLS 

LOTR 

35 

c 

ENDTIM 

TIME  POR  THE  NEXT  UPDATING  OP  THE  WIND  PIELD.  SECONDS 

LOTR 

36 

c 

PV 

SETTLING  RATE  I  ABSOLUTE  VALUE  IN  METERS/SEC.)  OP  THE 

LOTR 

37 

c 

J-TH  PARTICLE  AS  COMPUTED  BY  SUBROUTINE  PALRAT 

LOTR 

38 

c 

IHROR 

STATEMENT  NEAR  THE  POINT  WHERE  AN  ERROR  WAS  DISCOVERED 

LOTR 

39 

c 

J 

INDEX  POR  PARTICLE  DESCRIPTIONS 

LOTR 

40 

c 

JW 

INDEX  OP  THE  WIND  ARRAY  STRATA  IN  THE  MACRO  WIND  PIELD 

.LOTR 

41 

c 

TH  1 INDEX  INCREASES  PROM  BOTTOM  TO  TOP  OP  THE  PIELD. 

LOTR 

42 

c 

IP  NfcGAijVE  AT  ENTRANCE.  IT  IS  SET  POSITIVE  AND  USED  BYLOTR 

43 

c 

GETWND.  IP  ZERO  OR  POSITIVE  AT  ENTRANCE,  IT  IS  RE- 

LOTR 

44 

c 

computed  BY  GETWND. 

LOTR 

<5 

c 

JWAD 

AN  INDEX  TOR  THE  STORAGE  ARRAYS  ! ONE  DIMENSIONAL!  FOR 

LOTR 

46 

c 

MACRO  WIND  PIELD  VECTORS.  JWAD  IS  SET  NEGATIVE  BY 

LOTR 

47 

c 

GETWND  IP  THE  NEEDED  MACRO  WIND  PIELD  VECTORS  ARE  NOT 

LOTR 

48 

c 

IN  CORE. 

LOTR 

49 

c 

JWT 

TEMPOPARY  INDEX  OP  THE  BO'  NDING  BLANE 

LOTR 

50 
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K  AROUMENT  OF  LOTRAN  THAT  COHHUNiCATES  THE  INDEX  OF  THE  LOTR 

LOCAL  SYSTEM  CELL  IN  OR  ABOVE  WHICH  THE  J-TH  PARTICLE  LOTR 
IS  LOCATED  WHEN  LOTRAN  IS  CALLED  LOTR 

NC  A  BRANCH  POINT  VARIABLE  FOR  USE  WITH  AN  ASSISTED  80  TO  LOTR 

NC  THAT  EFFICIENTLY  TRANSFERS  TO  THE  APPROPRIATE  LOCAL  LOTR 
CIRCULATION  SYSTEM  PROGRAM  DURING  EXECUTION  OF  THE  LOTR 
LOCAL  TRANSPORT  LOOP  LOTR 

NCIR  TEMPORARY  NON-SuBSCRIPTED  STORAGE  FOR  LOCAL  CIRCULAT IONLOTR 

SYSTEM  TYPE  NUMBER  LOTR 

KCRTVP(K)  TY?S  DESIGNATION  FOR  THE  K-TH  LOCAL  CIRCULATION  SYSTEM  LOTR 
SEE  THE  EXPLANATION  OF  TYPE  NUMBERS  BELOW.  LOTR 

1  MTWND1  LOTR 

2  RGMND1  LOTR 

3  CBREZ1  LOTR 

4  NOT  ASSIGNED  LOTR 

9  NOT  ASSIGNED  LOTR 

TCELLT  SEE  TXX.  FOR  THE  PLANE  DEFINING  LOCAL  CELL  TOP  LOTR 

TLAYER  SEE  TXX.  FOR  THE  HORIZONTAL  PLANES  BOUNDING  THE  MACROLOTR 

WIND  FIELD  LAYER  THAT  THE  PARTICLE  IS  IN  LOTR 

TPtJl  TIME  COORDINATE  FOR  THE  J-TH  PARTICLE  LOTR 

SINCE  DETONATION  LOTR 

txx  time  of  flight  to  next  un  timei  intercept  between  lotr 

particle  trajectory  and  an  x«constant  plane  bounding  lotr 

THE  LOCAL  WIND  CELL  LOTR 

TYY  SEE  Txx.  FOR  A  Y-BOUNOARY  PLANE  LOTR 

VPZ  VERTICAL  PARTICLE  VELOCITY,  M/SEC.  LOTR 

yX(  )  X  COMPONENT  ARRAY  OF  THE  MACRO  WIND  FIELD  DESCRIPTION  LOTR 

VYC  )  Y  COMPONENT  •  SEE  VXt  I  LOTR 

VZI  I  Z  COMPONENT  •  SEE  VXt  1  LOTR 

XPIJ1  X  COORDINATE  OF  THE  J-TH  PARTICLE.  A  COMMON  ARRAY  LOTR 

XX  X  COORDINATE  OF  THE  POINT  FOR  WHICH  QETWND  IS  TO  GET  LOTR 

THE  APPLICABLE  MACRO  HIND  VECTOR  LOTR 

VPIJJ  Y  COORDINATE  OF  THE  J-TH  PARTICLE.  A  COMMON  ANRAY  L-TR 

YY  Y  COORDINATE  -  SEE  XX  LOTR 

ZPUI  Z  COORDINATE  OF  THE  J-TH  PARTICLE.  A  COMMON  ARRAY  LOTR 

ALTITUDE  O*-  J-Th  PARTICLE  IN  METERS  ABOVE  MSL  LOTR 
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LOTR 
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LOTR 
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Hh 

»*** 

**1 

89 

LOTR 

90 

COMMON 

/SET1/ 

LOTR 

91 

1 

DIAM 

1 

DETID 

9 

IRISE 

9 

I  EXEC 

9 

ISIN 

9 

ISOUT 

,  LOTR 

92 

2 

SO 

» 

SPAR 

9 

SSAM 

9 

THE 

9 

TMP1 

9 

TMP2 

,  LOTR 

93 

3 

T2M 

9 

U 

9 

VPR 

9 

W 

9 

X 

9 

Z 

,  LOTR 

94 

4 

WHY 

1 

RM1N 

9 

IOISTR 

9 

SPAR1 

9 

SPAR2 

9 

SPAR3 

.  LOTR 

95 

5 

SPAR4 

• 

SPARS 

9 

SPAR6 

9 

SPAR7 

9 

SPAR8 

9 

SPAR9 

LOTR 

96 

DIMENSION  DETIDI12I.WHVI40) 

LOTR 

97 

LOTR 

98 

* 

* 

»***+##< 

99 

LOTR 

100 

COMMON 

/SET2/ 

LOTR 

101 

1 

S 

1 

SU8SID 

t 

GRINT 

9 

8XLL 

1 

bXLU 

9 

byll 

LOTR 

102 

8. 

8YIU 

f 

TXLL 

f 

TXLU 

9 

tyll 

9 

TYIU 

9 

XGZ 

LOTR 

103 

3. 

YGZ 

» 

NBLCK 

9 

HTOPO 

9 

TTQPO 

9 

SUM 

9 

JUM 

LOTR 

104 

4. 

KLIM 

9 

II 

9 

JJ 

9 

KK 

9 

XP 

9 

YP 

LOTR 

105 

5, 

ZP 

9 

FMAS 

9 

TP 

9 

PS 

9 

VX 

9 

VY 

LOTR 

106 

6* 

VZ 

1 

It 

9 

JL 

9 

IBADD 

9 

WGRINT 

9 

NSTRAT 

LOTR 

107 

7, 

WLLX 

9 

WLLY 

9 

WURX 

9 

WURY 

9 

BOTH!' 

IPARIN 

LOTR 

108 

• 

»  9 

IOTOPO 

9 

10WIND 

9 

IHTOPQ 

9 

IPOUT 

9 

IPAROT 

9 

JT0P1 

LOTR 

109 

9, 

JWIND1 

9 

IRROR 

9 

TLIMIT 

9 

ENDTIM 

9 

!C 

9 

IBYPAS 

LOTR 

110 
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1.  JTOPJ  .  NLOST 

,  NG  , 

NTO  .  NT  I 

« 

NU 

LOTR 

111 

2,  NALOFT  ,  jTIMEl  ,  NHMAX  , 

NFREE  .  N 

9 

NCL 

LOTR 

112 

3,  CRMAXY  .  CRUHT 

,  NCRTYP  . 

BZ 

,  CRM | NX 

9 

CRM’NY 

LOTR 

113 

4,  UO  ,  SN 

*  c  s  $ 

NLCCIR  .  DTLQC 

9 

ATE*0 

LOTR 

114 

5,  RHO  ,  NA 

,  TGZ  . 

D V MAC  .  FROG 

9 

CRMAXX 

LOTR 

115 

6,  ROPART 

LOTR 

116 

DIMENSION  TQPOLM ( 4 , 4  J 

.NINTARI4J 

» I TOPLM 1 3»  4 1 

LOTR 

117 

DIMENSION  SllO.lOJ 

. SUBS  I D [ 40  0  1 

,  I C  1 18 1 

LOTR 

118 

DIMENSION  XP  t  200  I 

. YPI200J 

.ZPI200J 

• FKAS ( 200 } 

LOTR 

119 

DIMENSION  TP  t  200 1 

» PS  1 20  0  ) 

, ATEHP 1260) 

« RHO ( 260  3 

LOTR 

120 

DIMENSION  VX 1 1500  3 

. VYI15003 

, VZ  1 1500 ) 

. ILI7UI 

LOTR 

121 

DIMENSION  JL 1 70  1 

. 1 BaDD  t  70  ] 

.HURXI70) 

LOTR 

122 

DIMENSION  HGR I  NT ! 70  3 

, HLLX ( 70  3 

*  HLL Y 1701 

LOTR 

123 

DIMENSION  WURYI703 

.  both i t  r  7n  j 

.SNI6J 

, CS I  6 1 

LOTR 

124 

DIMENSION  CRM I NX  1 6  I 

,  CRMAXX ! 6  J 

, CRM  I  NY i 6 ) 

.CRMAXY 161 

LOTR 

125 

DIMENSION  CRUHT  t  6  3 

.NCRTYP [6] 

, UO I  6 ) 

LOTR 

126 

LOTR 

127 

*  *« 

4«* 

#*#**##**•*** 

**« 

**LOTR 

128 

LOTR 

129 

PATA  PR0GRM/6HL0THAN/ 

LCTR 

130 

LOTR 

131 

**  # 

*** 

*** 

**LOTR 

132 

**♦ 

*** 

**# 

**LOTR 

133 

LOTR 

134 

PUT  LOCAL  CIRCULATION 

TYPE  NUMBER 

IN 

TEMPORARY  STORAGE 

LOTR 

135 

NC  I  H  =  NCRT YP  I  K i 

LOTR 

136 

MAKE  AN  ASSIGNMENT  TO 

ALLOW  AN  EFFICIENT 

LOTR 

137 

BRANch  TO  the  APPROPRIATE  LOCAL  CIRCULATION  TRANSPORT 

CODE 

LOTR 

138 

IN  THE  ACTUAL  LOCAL  TRANSPORT  LOOP 

LOTR 

139 

GO  TO  1101.102.103.104 

i 105 I ,NC IR 

LOTR 

140 

101 

ASSIGN  121  TO  NC 

LOTR 

141 

GO  TO  120 

LOTR 

1*12 

102 

ASSIGN  12 2  TO  NC 

LOTR 

143 

GO  TO  120 

LOTR 

144 

103 

ASSIGN  123  TO  NC 

LOTR 

145 

GO  TO  120 

LOTR 

146 

104 

ASSIGN  124  TO  NC 

LOTR 

147 

GO  TO  120 

LOTR 

148 

105 

ASSIGN  125  TO  NC 

LOTR 

149 

LOTR 

150 

120 

i  BEGIN  THF  LOCAL  TRANSPORT  LOOP. 

LOTR 

151 

FIRST  DETERMINE  IF  THE 

PARTICLE  IS 

BELOH  THE  LEVEL 

OF 

THE  TC  * 

LOTR 

152 

OF  THE  K-TH  LOCAL  CIRCULATION  SYSTEM 

CELL.  IF  IT 

IS 

NOT,  CALL 

LOTR 

153 

GETWIND  TO  GET  THE  MACRO  HIND  VECTOR  AT  PARTICLE  POSITION  AND  T.H6NL0TR  154 

move  the  particle  by  transfering  to  130.  ir  particle  is  hithin  thelotr  155 

LOCAL  CELL,  a  BRANCH  MUST  BE  MADE  TO  THE  APPROPRIATE  SUBROUTINE.  LCTR  156 
120  ZZ*ZP{Jl  LOTR  157 

PS  I ?E=PS  f  J 1  LOTR  158 

CALL  FALRATtZZ.PSIZE.PV. ATEMP.RHO, FROG. 1SOUT)  LOTR  159 

IF {ZPIJI-CRUHT  fKJ  31202, 1202.1201  LOTH  160 

C  1201  PARTICLE  IS  AHOVfc  LOCAL  CELL  LOTR  161 

1201  XX  *  XPtJl  LOTR  162 

XY  =  YPtJ]  LOTR  163 

ZZ  =  ZPfJJ  LOTR  164 

CALL  GETHNDtXX.TY.ZZ.JHAO.JHi  LOTR  165 

C  HAS  THE  MACRO  HIND  FIELD  SPECIFICATION  AVAILABLE  FOR  THE  PARTICLE  LOTR  146 
C  POSITION.  NO  TO  1203  LOTR  167 

IFtJHADU203.l203.i204  LOTR  168 

C  1203  MACRO  HIND  FOR  THIS  PARTICLE  ’$  NOT  AVAILABLE.  LOTR  169 

1203  IRROR  *  1203  LOTR  170 
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! 


60  TO  7734  LOTR  171 

L07R  172 

C  1204  COMPUTE  VERTICAL  COMPONENT  OF  PARTICLE  VELOCITY  LOTR  173 

1204  VPZ«VZt*WADJ»FV  LOTR  174 

LOTR  175 

COMPUTE  TIMES  OF  FLIGHT  TO  ALL  BOUNDARY  INTERCEPTS  THAT  ARE  IN  THELOTR  176 


FUTURE.  FIRST  COMPUTE  TIME  TO  COMING  X  BOUNDARY  OF  LOCAL  CEL.  LOTR  177 

|F (¥X I JNADII 1200. 1206* 1206  LOTR  170 

1205  TXK«IXPl JJ®CRHlNXIKl )/VX( JWAD!  LOTR  179 

90  TO  1207  LOTR  180 

L2U  TXX* ICRMAXX IK  1 *XP (J]]/VX1JmAD!  LOTR  181 

LOTR  182 

1207  COMPUTE  TIME  TO  COMING  Y  BOUNDARY  INTERCEPT  LOTR  183 

1207  IF(VY(*!WAD)11208, 1209. 1209  LOTR  184 

1208  TYY»^PlJl«CRMtNYtKil/VYUHAD]  LOTR  185 

00  TO  1210  LOTR  186 

1209  TYY«ICR>HXYIKJ-VP( Jll/VYI JWAD)  LOTR  187 

LOTR  188 

1210  COMPUTE  TIMES  TO  COMING  Z  BOUNDARY  (HORIZONTAL!  OF  MACRO  WIND  LOTR  189 
FIELD  AND  TO  THE  TOP  OF  THE  LOCAL  WIND  CELL  LOTR  190 

1210  IFIVPZJ1211* 1212,1212  LOTR  191 

1211  TCELLT*  f  CRIIHT  ( K  J -ZP ( J !  1/VPZ  LOTR  192 

UHT«JW  LOTR  193 

GO  TO  1213  LOTR  194 

1212  TCELlT«1.0E*06  LOTR  155 

jWT»JW*l  LOTR  196 

1213  TLAYER«t80THIT(JwTl-ZP{JJt/VPZ  LOTR  197 

LOTR  198 

COMPUTE  TIHE  UNTIL  TIME  FOR  UPDATING  THE  WIND  FIELD  LOTR  199 

TTIM-ENDTJH-TPI JJ  LOTR  200 

LOTR  201 

NOW  SELEli  THE  TIME  UNTIL  THE  FIRST  VALID  BOUNDARY  INTERCEPT  LOTR  202 

ADD  A  SMALL  INCREMENT  TO  PUSH  THE  PARTICLE  PAST  THE  BOUNDARY  OF  LOTR  203 

THE  LOCAL  CELL*  LOTR  204 

TTR*NS«AHINltTXX,TYY,TCELLT.TLAYER.TTjHI  *.01  LOTR  205 

LOTR  206 

NOW  TRANSPORT  THE  PARTICLE  FOR  THAT  PERIOD  OF  TIME  LOTR  207 

XP( Jl"XPt JI*TTRAN6*VX( JWAD]  LOTR  208 

YPI Jl«YP(JI*TTRANS*VYt JWAD]  LOTR  209 

ZPf J1«ZP( J2*TTSANS*VPZ  LOTR  210 

TP(JJaTP?Jl*TTR^NS  LOTR  211 

CO  TO  131  LOTR  212 

LOTR  213 

1202  PARTICLE  IS  WITHIN  LOCAL  CELL,  BRANCH  TO  CALL  APPROPRIATE  WIND  LOTR  214 


PROGRAM 


LOTR  215 


BRANCH  '0  CALL  A  LOCAL  WIND  PROGRAM  TO  TEST  PARTICLE  FOR  IMPACT  ONLOTR  216 
TOPOGRAPHY;  IF  IMPACTED.IT  ASSIGNS  A  LARGE  DOWNWARD  WIND  COM-  LOTR  217 
PGNENT,  IF  NOT  IMPACTED.  IT  COMPUTES  CORRECT  WIND  COMPONENTS  AT  LOTR  218 
.HE  PARTICLE  POSITION  LOTR  219 

UJ2  GO  TO  NC. (121,122,123.124,125!  LOTH  220 


121  CALL  MTWNDU  J.X  AX.AY.AZ1 
00  TO  130 

122  CALL  R0WND!U.K*AX.AY,AZ1 
GO  TO  ISO 

123  CALL  CSREZlt J.K.AX.AY.AZi 
90  TO  130 

C  CODE  INSERTION  POINTS 

124  CONTINUE 

125  CONTINUE 

C  »*»•»••••  CODE  INSERTION  POINTS 


LOTS  221 
LOTR  222 
LOTR  223 
LOTR  224 
LOTR  225 
LOTR  226 
»***LOTR  227 
LOTR  213 
LOIR  229 
239 


198 


1  o 


7734 

C 

C  130 
130 


C 

C  1 31 
r 

V 

c 

131 

133 

134 

135 
C  137 
C 

C 

137 

C 

C  1 36 

C 

C 

136 
C 

C  132 
C 

13? 


I RRQR* - i 26 

CALI  erroriprogrm, irror. isoutj 


transport  THE  dARTICLE  for  one 
?Pl J)*ZM JJ*  DTl.OC«[AZ*FVl 

ctloc*ax 
dtldc*ay 
dtloc 


time  increment  I DTLOC I 


XP[ J]*XPC JJ* 
YP l J I s YP  t  J 1 ♦ 

tp  r  j i =tp  c  j  j  * 


TEST  FOR  BOUNDARY  CROSSINGS 
'S  PARTICLE  AT  OR  3EY0ND  THE 
YES  TO  13? 

IFIXPI Jj-CRMIAX (K] 3132.132,133 
IF  ICRMAXX  IK  J-XPUJl  132,132,134 
IF l YPI  JJ-CPM1NY Ik]  1132,132,135 
iFfCRMAXYtKj-YPt Jll 132, 132, 1 37 
TEST  TO  REMOVE  IMPACTED  PARTICLES 
HAS  THE  PARTICLE  BELOW  THE  ANALYTICAL 
W I  NO  HAS  COMPUTED.  YES  To  132 
IF;az*1.0E*08J13?,13?,136 


LOCAL  CIRCULATION  BOUNDARIES 


topography  hhen  the  local 


particle  IS  STILL  HITHIN  KTH  LOCAL  SYSTEM.  NOW  CHECK  TIME 
HAS  THE  PARTICLE  BEEN  TRANSPORTED  UP  TO  OR  BEYOND  THE  TIHE  FOR 
UPDATING  THE  HIND  FIELD 
IFITPI J] -END  TIM] 12  0.132, ^32 

PARTICLE  CANNOT  BE  MOVED  FURTHER  BY  LOCAL  SYSTEM  TRANSPORT  CODE 


LOTR 
LOTR 
LOTR 
LOTR 
LOTR 
LOTR 
LOTR 
LOTR 
LOTR 
LOTR 
LCTR 
LOTR 
LOTR 
LOTR 
LOTR 
LOTR 
LOTR 
LOTR 
LOTR 
LOTH 
LOTR 

BOUNDARYLOTR 


return 
end 
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this  subroutine  serves  the  dual  purpose  of  reading  mountain  hind 

DATA  WHEN  the  SION  OF  ARGUMENT  J  IS  MINUS!  AND  COMPUTING  THE 


LOTR 

LOTR 

LOTR 

LOTR 

LOTR 

LOTR 

LOTR 

LOTR 

MTMN 

MTHN 

MTWN 

NTWN 

MTHN 

MTHN 

MTHN 


MOUNTAIN  WIND  FOR  THE  JTH  PARTICLE  AFTER  FIRST  CHECKING  FOR  IMPACTMTWN 
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236 
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239 

240 

241 
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248 

249 

250 
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255 

256 
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260 
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C 

ON  THE  ANALYTICAL  GROUND,  IF  IMPACT  iS 

SENSED  ThE 

PARTICLE  IS 

MTHN 

a 

1 

r 

ASSIGNED  A  uARGE  DOWNWARD  VELOCITY 

COMPONENT 

MTHN 

9 

c 

MTHN 

10 

C 

***************** 

11 

'i 

c 

MTHN 

12 

„ 

COMMON  /SET1/ 

MTHN 

13 

1  TIAM 

.  LET  I U  ,  IHJSE 

9 

I  EXEC 

9 

ISIN 

9 

ISOUT  , 

MTHN 

14 

2  SD 

,  SPAR  ,  SSAM 

A 

TME 

9 

TMPl 

9 

TMP2  , 

MTHN 

15 

3  T2M 

,  0  ,  VPR 

9 

U 

f 

X 

9 

Z  » 

MTWN 

16 

\ 

4  WHY 

,  RMlN  ,  IDISTR 

1 

SPARl 

9 

SPAR? 

9 

SPAR j  , 

MTHN 

17 

; 

5  SPAR4 

,  SPARS  ,  SPARft 

* 

SPAR7 

9 

SPARH 

9 

SPAR9 

MTHN 

18 

c 

MTHN 

19 

c 

i  *  i 

****** 

**** 

******* 

HM 

h*MTWN 

20 

c 

MTHN 

21 

DIMENSION  DETIDI1?J.HHY(40J 

MTHN 

22 

'j 

COMMON  /SET2/ 

MThN 

23 

I 

1  S 

,  SUBSID  ,  GRINT 

9 

BXLL 

9 

BXLU 

9 

byll 

MTHN 

24 

f 

2,  8YLU 

,  TXLL  ,  TXLU 

9 

TYLL 

9 

TYLU 

9 

XGZ 

MTWN 

25 

3,  YGZ 

,  N3LCK  ,  HTOPO 

9 

TTOPO 

9 

ILIH 

9 

JLIM 

MTHN 

26 

4.  KLIM 

*  I  1  9  JJ 

9 

KK 

9 

XP 

9 

YP 

MTHN 

27 

5,  ZP 

,  FMA3  .  TP 

9 

PS 

9 

vx 

9 

VY 

MTHN 

28 

6.  VZ 

•  1 L  ,  JL 

9 

IBADD 

9 

hgrint 

9 

NSTRA1 

MTWN 

29 

onoooooooooonnooooooooonoononnnoonon  oono 


7. 

WLLX 

• 

WLLY 

9 

WURX 

9 

WURY 

9 

BOTMIT 

$ 

IPARIN 

MTWN 

30 

0. 

IOTOPO 

* 

IOWJND 

9 

IHTOPO 

9 

IPOUT 

$ 

IPAROT 

9 

JTOP1 

MTWN 

31 

9. 

JWIND1 

9 

IRROR 

9 

TLIMIT 

9 

ENDTJH 

9 

IC 

$ 

IBYPAS 

MTWN 

32 

1, 

JTOPJ 

MOST 

9 

NG 

9 

NTO 

9 

NTI 

$ 

NW 

MTWN 

33 

2, 

NALOFT 

9 

JTIME1 

9 

NBMAX 

9 

NFREE 

9 

N 

NCL 

MTWN 

34 

3, 

CRMAXY 

9 

CRUHT 

9 

ncrtyp 

9 

BZ 

9 

CRMINX 

$ 

CRMINY 

MTWN 

39 

4. 

UO 

$ 

SN 

9 

cs  • 

9 

NLOCIR 

9 

DTLOC 

9 

ATEMP 

HTWN 

36 

9, 

*, 

RHO 

ROPART 

9 

NA 

9 

TGZ 

9 

DTMAC 

9 

FROG 

9 

CRMAXX 

MTWN 

MTWN 

37 

38 

DIMENSION  T0P0LH(4,4] 
DIMENSION  SilO.lO) 
DIMENSION  XPI2001 
DIMENSION  TP(200| 
DIMENSION  VX (1500 1 
DIMENSION  JL (70) 
DIMENSION  W6R1MT (70 3 
DIMENSION  WURVI70) 
DIMENSION  CRMJNXI61 
DIMENSION  CRUHTUJ 


•  Nf NTAR ( 4  J 

•  SUBS  10 ( 400 1 
►YP(2B01 
•PS (800 1 

• W (1900 I 
• 18ADD( 70 1 

•  0OTHIT I  701 
•CRMAXX (6 1 
.NCRTYP161 


• !  TOPLH 13,43 
>10(161 

#  ZP ( 260 1 
«AT|MRI260i 

•  VZ  f 15001 
• MURX ( 70 ) 

•  WLLX ( 70 1 
•SN( 61 

*  CRM  I  NY ( 6 ) 

fuom 


i  FHA  (2001 
• RHO (8601 
j IL (701 

*ULLY(70) 

• CS ( 6 1 
.CRMAXYioJ 


PARAMETERS  PECULIAR  TO  SUBROUTINE  MTUND1 

DIMENSION  XM(l?)>YN(l2]«Hll21>A(12|>A2(121 » A2H 1 1 ? ) » A3H 1 12 1 


‘MOUNTAIN  WlNDl  GLOSSARY* 


At  J) 

AX 

AY 

AZ 

CNCK 1 

CRMAXYtX) 

CRMINVtMl 

CRHAXXtXl 

CRKINX(K) 

CRUHT (n 1 

SistX 

DEL* 


SN(K) 

UOIK1 

SMIJ1 

YMIJJ 

XX 

YY 

12 

JMAO 


HALF-WIDTH  OF  THE  J-TH  MOUNTAIN 

hind  vector  east 

WIND  VECTOR  NORTH 
VERTICAL  WIND  VECTOR 

cosine  of  counter-clockwise  angle  from  east  OF 
unperturbed  wind 

north  boundary  of  the  k-th  local  cell, 

south  boundary  of  the  k-th  local  cell. 

EAST  BOUNDARY  OF  THE  K-TH  LOCAL  CELL. 

WEST  BOUNDARY  OF  THE  K-TH  LOCAL  CELL. 

THE  LOCAL  CELL  TOP  HEIGHT  INTERS! 

t 

X  COORDINATE  OF  MACROSTSTEM  TRANSLATED  INTO  LOCAL 
CELL  COORDINATES 

Y  COORDINATE  SEE  DELX 

THE  X  PRIME  RESULT  OF  ROTATION  OF  10ELX.DELYJ  INTO 
THE  K-TH  LOCAL  COORDINATE  SYSTEM. 

THE  Y  PRIME  RESULT  SEE  DSX 
SUM  OF  TOPO  HEIGHT  INCREMENTS 
MOUNTAIN  RATIO  OF  NUI/AtJ! 

HEIGHT  OF  THE  J-TH  MOUNTAIN 

THE  NUMBER  OF  MOUNTAINS  REPRESENTED  IN  THIS  MOUNTAIN 
WIND  SYSTEM 

SINE  OF  ANGLE  COUNTER-CLOCKWISE  FROM  EAST  OF 
UNPERTURBED  W'ND 

MAGNITUDE  OF  UNPERTURBED  WIND  VECTOR 
X  LOCATION  COORDINATE  OF  THE  J-TH  MOUNTAIN 

Y  LOCATION  COOR •' ' NATS  OF  THE  J-TH  MOUNTAIN 

X  COORDINATE  Or  CENTER  OF  LOCAL  CELL 

Y  COORDINATE  OF  CENTER  OF  LOCAL  CELL 

?  COORDINATE  OF  CINTt*  OF  LOCAL  CELL 

INCH  OF  THE  WIND  ITNATUM  CONTAINING  THE  RARTICLE 

INDEX  OF  MACRO  WlNO  CEIL  CONTAINING  PARTICi.6 


HTWN  40 
MTWN  41 
MTWN  42 
MTWN  43 
MTWN  44 
MTWN  45 
MTWN  46 
HTWN  47 
HTWN  48 
►MTWN  49 
MTWN  50 
MTWN  51 
HTWN  52 
HTWN  53 
HTWN  54 
HTWN  55 
HTWN  56 
HTWN  57 
HTWN  5B 
HTWN  59 
HTWN  60 
MTWN  61 
HTWN  62 
HTWN  63 
MTWN  64 
HTWN  65 
MTWN  66 
MTWN  67 
HTWN  66 
HTWN  69 
MTWN  70 
HTWN  71 
MTwN  72 
HTWN  73 
MTWN  74 
MTWN  75 
MTWN  76 
MTWN  77 
HTWN  78 
MTWN  79 
MTWN  80 
MTWN  81 
MTWN  62 
MTWN  83 
MTWN  64 
MTWN  65 
HTWN  86 
MTWN  87 
MTWN  66 
MTWN  89 


t-  .  >v 


•its  4r  t" 


ooooooo  o  o  o  o  o  o 


xp  f  J 1 
YPUI 
?Pt  J] 


particle  position  coordinate 
particle  position  coordinate 
particle  position  coordinate 


HTWN  90 
NTUN  91 
HTWN  92 
HTWN  93 


HTWN  95 

FORMAT  1 4F10 , 3 1  HTWN  96 

FORMAT!// 25 X24HL0CAL  CIRCULATION  NUMBER  I 6/30X15HM0UNTA l N  WIND  1//1HTWN  97 
15X8HMOUNTAIN4X9HMOJNTAIN4X8HMOIINTAIN4X20HLOCATION  COORD  1 NATES/15X6HTWN  98 
2HMIM3ER6X6HHEIGHT6X5HWIDTH7X1HX11X1HY)  HTWN  99 

FORMATI/12X,  I6.6X.4FH.3//I  HTWN  100 

FORMAT t//25X»36HC00H0 I  NATES  OF  LOCAL  CELL  BOUNDARIES/* 15X,5HNQRTH,HTWN  101 
ll0X.5HSO!JTH,llX,4HEAST,llX,4HWEST,10X,6HHEIGHT//,10X,5ri5.3//l  HTWN  102 
FORMATI/25X, ^CHARACTERISTICS  OF  THE  UNPERTURBED  WIND  V6CTOR/20X, HTWN  103 
116HUNPERTURBED  W I  NO* «X , 17HCOS ! NE  CF  ANGULAR, 4X, 15HSI N6  OF  ANGULAR*HTWN  104 
2/20X.16HVECTOR  MAGNITUDE. 5X.15HDEV.  FROM  NORTH, 5X. 15HDEY .  FROM  NORMTWN  105 
3TH//.18X.3F20.5//J  HTWN  106 

HTWN  107 


DATA  PROGRM/OHMTwNOl/ 


101 

7734 

C 

C  100 
IPO 


I F { J ] 10 0  # 101 # 1 02 
IRR0R=-101 

CALL  ERRORIPROGPMi IRROR# I SOUT ) 

THIS  IS  THF  DATA  READING  ROUTE 
J*0 

CRUHT  t  K ) =  0  V  0 
J  =  J+1 

READ  [ISIN.13  XM{j)#VH(JJ#m(JJ#A(J| 

A?rjI=Alj]*A(JI 
*3h! j)sA2l J  J  * A  C J)*HIJ) 

JFI  J-12J1031, 103?, 1032 
I RROR* 1 0  32 
GO  TO  7734 

IF  f HC J|  11099, 104, 1099 

COMPUTF  THF  KTH  LOCAL  CELL  HEIGHT. 

DZ=a8S(3.0*H( J] I 
IF  IDZ-CRUHTlKJIllO. 110*1100 
CRUHT I K I *D7 

CHECK  TO  SEE  THAT  THE  MOUNTAIN  JUST  READ  IS  WITHIN  THE 
THE  KTH  LOCAL  WIND  SYSTEM, 

IF(XMCJ)-CPMINXIKJJ  114.111,111 
iFtXMlJJ-CRHAXXlKj]  112*112,114 
IF  t  YM  t  J  J -CRM  I  NY  f  K 1  I  114.ll3.ll3 
IF  I YM ( J I -CRMAX Y (K I J  115,115,114 

THE  MOUNTAIN  IS  NOT  WITHIN  THE  LIMITS  OF  THE  KTH  LOCAL 
IR70R*  114 
GO  TO  7734 

CHFLK  TO  SEE  THAT  THE  MOUNTAIN  RATIO  H(J|/A(J]  IS  LESS 
DZ  «  HtJl/AiJ) 

IF  (DZ-0. 61103. 116, 116 

THE  MOUNTAIN  RATIO  HtJJ/Ajj!  IS  NOT  LESS  THAN  0.6 


1031 

C1099 

1099 

1100 
C  110 
C 

110 

111 

112 

113 

C 

C  114 
114 

C 

C  i*5 
115 

C 

C  116 


HTWN  109 
HTWN  110 
HTWN  111 
*********** «HTWN  112 
**„*»«**«**„HTWN  113 
HTWN  114 
HTWN  115 
HTWN  116 
HTWN  117 
HTWN  118 
HTWN  119 
HTWN  120 
MTWN  121 
HTWN  122 
MTWN  123 
MTWN  124 
MTWN  125 
MTWN  126 
MTWN  127 
MTWN  128 
MTWN  129 
MTWN  130 
MTWN  131 
MTWN  132 
MTWN  133 
LIMITS  OF  MTWN  134 
MTWN  135 
MTWN  136 
MTWN  137 
MTWN  138 
MTWN  139 
MTWN  140 
WIND  SYSTEMMTWN  141 
MTWN  142 
MTWN  143 
MTWN  144 
THAN  0.6  MTWN  145 
MTWN  146 
MTWN  147 
MTWN  148 
MTWN  149 


195 


uuuuu 


Hi  JUROR  •  116 
80  TO  7734 

I 

384  RMT«w-l 

*HT  THE  number  of  mountains  represented  in  this 

„  MOUNTAIN  MIND  SYSTEM 

1148  COMPUTE  UNPERTURBED  VECTOR  MERE 


MTWN  150 
MTWN  151 
MTMN  158 
MTMN  153 
MTMN  154 
MTMN  155 
MTMN  156 


ISf  f,2D«?,,,«cIMuf!nCie2!^ONSTITUTE  THE  NATION  COORDINATES  OF  MTMN  157 


THE  UNPERTURBED  Ml  NO  VECTOR 
VY*!CftMAXY(K).CRMINY{K ] J/2,0 
XX* ICRMAYV I K } »CRM! NX  f  K ]  1/2.0 
!Z*CRUHT{K)/2.0 
e«U  8f?MNDtXN»YV.2Z» JMADtJH] 
IF  I JMAD) 1043. 1844 .1645 

1043  IRR0R*1843 
80  TO  7734 

1044  !RROR>1044 
BO  TO  7734 


MTWN  158 
MTMN  159 
MTMN  160 
MTMN  161 
MTMN  162 
MTMN  163 
MTMN  164 
MTMN  165 
MTMN  166 
MTMN  167 


I?ETE2L.L,22«2„Il!?nE.?iSDL£25!5T,TUTE  THE  HA«MTUDE  *WD  DIRECTION  MTWN  168 


C  OF  THE  UNPERTURBED  MIND  VECTOR 
1045  UO(K)bSORT I VX ( JMAD ) *VX I JMAD  J  *V Y ( JMAD) * VY I JMAD I j  HTUH  I7n 

snikj.vyumadj/uoikj  "  J70 

CSIK]«VX(JMAD1/U01KJ  "I™  *'* 

DO  1049  J.l.NMT  ,17£ 
1049  A2HIJ|»A2IJI*HU1*U0(K1  'll*"  *;* 

WRITE  USOUT.2JK  JIJJ  };J 

MRITE  USOUT.3nj.HUJ.AU}. XMIJJ.YMIJI.J.l.NMTI  HYMN  176 

C1M  "ET“"“  Simm 

C  102  THIS  IS  THE  TESTING  AND  COMPUTING  ROUTE  HI!!!  ?«? 

C  COMPUTE  THE  TOPOGRAPHIC  INCREMENT  AT  POSITION  OF  THE  JTH  PART  I CLEHTWN  IBS 

C  COMPUTE  THE  PERTURBED  MIND  COMPONENTS.  SUM  THEM.  AND  ADD  THEM 
C  TO  THE  UNPERTURBED  MIND  VECTOR, 

102  *X»8cO  nl"N  105 

Jy.o.e  MTUN  i«5 

A2b0.0  KTwn  186 

02*0.0  M7WW  187 

DO  106  J.l.NMT  JJIJ2  JJ5 

)  COORD  I  NATE1  SYSTEM. CARDS  TRANSUTE  THE  PA,,TICLE  INTO  THE  MOUNTAIN  MTMN  190 

DELX. XPlJJ.XMin  *  JJJJj  }JJ 

DELY. VPIJI.VMU1  }** 

;  rotate  ,he  p,,,!cie  "•« 

DBX  .  DfclX  .  CSIxi  .  D6LX  .  SN I K I  Hill!!  ?!! 

DSY  «-DELX  *  SNtKI  ♦  DELY  *  CSIXJ 
Y2  »  DSY  *  DSY 

X2  «  DSX  *  DSX  5t!I 

R2*X2*V2  MTMN  199 

US  I°™  HE,0MT  JNC^MENT  RESULTING  FROM  THE  ITH  MOUNTAIN  ^TWN  III 

ffWU  AUU  IT  TO  SUM#  uvyu 

D2  •  02  *  A3H(  I J/UA21 1 ) AR2)*S0RT I A2I 1 1  ♦RSI )  MTWN  203 

COMPUTE  PERTURBATION  WrNO  INCREMENTS  IJrwN 

AM8DA  •  2PIJ}*AUJ  If. 

AM8DA8>AMBDA*6M8DA 

DSNOM*  IR8«AMf8Ag}.(R2.AMB0A2l.i8PTIR8«AM8DA2l  < 

0«  A2MII 1*3*0. DSXFDENDN  J’JJ  *JJ 


A2*0.0 
02*0 . 0 

DO  106  J.l.NMT 


MTMN  191 
MTWN  192 
MTWN  193 
MTWN  194 
MTWN  195 
MTWN  196 
MTWN  197 
MTWN  196 
MTWN  199 
MTWN  200 


196 


O  o  Cl  noociooociooci 


C 

C1061  AX.  THE  PERTURBED  WIND  COMPONENT  IN  THE  DIRECTION  OF  THE 
C  UNPERTURBED  HIND. 

1061  AX*AX*A2Ht!  J *  5 Y2*AMbOA2»? i 0 «X2 1 /DENOM 
C  AY.  AZ,  THE  PERTURBED  HIND  COMPONENTS  PERPENDICULAR  TO  THE 
C  DIRECTION  OF  THE  UNPERTURBED  WIND. 

AY*  AY  -  Q*DSY 
106  AZ*  AZ  -  G*AMBDA 
C 

C  NOW  TEST  FOR  IMPACTED  PARTICLE 

IFIDZ-ZP[J1J109,108.1£I8 
C  108  PARTICLE  HAS  IMPACTED 

108  AZ*-lIOE*08 
AX*0 . 0 
AYrO.O 

GO  TO  1C. b 

C  109  THE  PARTICLE  IS  ALOFT.  NOW  ADD  THE  UNPERTURBED  WIND  VECTOR  TO 
C  THE  PERTURBED  COMPONENT  IN  THE  SAME  D1REC1ION, 

109  DELX  =  AX>UO I K I 

C  THE  FOLLOWING  TWO  CARDS  DEROTATE  THE  WIND  VECTOR  INTO  THE 
C  MACRO  SYSTFM. 

AX=DELX*CStK]-AY*SNlKl 
AY  =  DELX*SN[K]*AY*CSlK'3 
GO  TO  108 
END 

SIBFTC  RGWN1  LIST. DECK, M94/2 

SUBROUTINE  RGWNDl U.K, AX. AY.AZ  I 
11  OCT  66 

I.  KOHLBERG,  T.W.SCHwENKE  TECHNICAL  OPERATIONS  RESEARCH.  INC. 

THIS  SUBROUTINE  SERVES  THE  DUAL  PURPOSE  OF  READING  RIDGE  WIND 
DATA  WHEN  THE  SIGN  0^  ARGUMENT  J  IS  MINUS1  AND  COMPUTING  THE 
R I  DOE  WIND  FOR  The  JTH  PARTICLE  AFTER  FIRST  CHECKING  FOR  IMPACT 
ON  the  ANALYTICAL  ground,  if  impact  is  sensed  the  particle  is 

ASSIGNED  A  LARGE  DOWNWARD  VELOCITY  COMPONENT. 


MTWN  210 
MTWN  211 
MTWN  212 
MTWN  213 
HTWN  214 
MTWN  215 
MTWN  216 
MTWN  217 
MTWN  218 
HTWN  219 
MTWN  220 
MTWN  221 
MTWN  222 
MTWN  223 
MTWN  224 
MTWN  225 
MTWN  226 
MTWN  227 
MTWN  228 
MTWN  229 
MTWN  230 
MTWN  231 
HTWN  232 
HTWN  233 
MTWN  234 
RGWN  G 
RGWN  1 
RGWN  2 
RGWN  J 
RGWN  4 
RGWN  5 
RGWN  6 
RGWN  7 
RGWN  8 
RGWN  9 


RGWN  10 
RGWN  12 

COMMON  /SET1/  RGWN  13 


1 

DIAM 

.  DETID  .  IftlSF 

,  IEXEC 

.  I  SIN 

8 

ISOUT 

.  RGWN 

14 

2 

SD 

.  S°AR  ,  SLAM 

,  THE 

,  TMPl 

8 

TMP2 

.  NfiWN 

15 

3 

T2M 

.  U  ,  VPR 

p  w 

,  X 

8 

Z 

.  RGWN 

16 

4 

WHY 

.  RMIN  ,  IDISTR 

,  SPAR1 

•  SPAR? 

8 

SPAR? 

.  RGLN 

17 

5 

SPAP4 

.  S»AR5  .  5PAR& 

,  SPAR7 

.  SPAR8 

8 

SPAR9 

RGWN 

18 

RGWN 

19 

»**«*****#*»  +  *******fttt**«**#**#4******  ************** **  +  4*#*#*##*****#ftRGwN 

20 

RGWN 

21 

OIMENG 

ION  DEI IDI123 ,WHY(4oJ 

RGWN 

22 

COMMON 

/SET?/ 

RGWN 

23 

.  SUBS  I D  .  GR I  NT 

,  BXLL 

BXLU 

8 

BYLL 

RGWN 

24 

BYLU 

.  TXLL  .  TXLU 

,  TYLL 

T  YLU 

8 

XGZ 

RGWN 

25 

3. 

YGZ 

.  N3LCK  ,  HTOPO 

,  TTOPO 

ILIM 

8 

JL  I K 

RGWN 

26 

4  , 

KLIM 

.11  ,  JJ 

,  KK 

XP 

8 

YP 

RGWN 

27 

5, 

7.9 

.  FMAS  .  TP 

.  PS 

vx 

8 

VY 

RGWN 

26 

6, 

VZ 

.  IL  ,  JL 

,  IBADD 

WGRINT 

8 

NSTRAT 

hGWN 

29 

7, 

WLLX 

.  WLLY  .  WURX 

.  WURY 

BOTMIT 

8 

IPARIN 

RGWN 

30 

8. 

IOTORO 

,  IOWINO  .  1 HTOPO 

,  IPOOT 

IPAROT 

8 

JTOP1 

RGWN 

31 

9 . 

JW1ND1 

.  IRHOR  ,  TLIHIT 

,  6NDTIM 

IC 

8 

IBYPAS 

RGWN 

32 

1  » 

JTOPJ 

.  NLOST  ,  Nli 

.  NTO 

NT  I 

8 

NW 

RGWN 

33 

2, 

NALOFi 

»  JTIm&i  ,  NBMAX 

.  NFREE 

N 

8 

ncl 

RGWN 

34 

UOUOU  UUOOUUOOUUUOUUUOUUOUUL'UUUUl'jUUUUUUOUUUO 


3,  CRMAXY  •  CRUHT 

4,  ‘JO  t  SN 

5,  RHO  .  NA 

l«  POPART 

DIMENSION  T0P0LHJ4#41 
0!  MENU  ON  Sf  10*18 1 
DIMENSION  XP(2681 
DIMENSION  Tf 1260 1 
DIMENSION  VX 11988 ) 
DIMENSION  JL 170 1 
DIMENSION  HQRINTI701 
DIMENSION  WURY1701 
DIMENSION  CNMJNXm 
DIMENSION  CSUMTUl 


.  NCRTYP  .  BZ  f  tRMlNX  #  CRMINY 

,  CS  .  NLOCIR  f  DTLQC  .  ATEMP 

.  TGZ  i  BTMAC  #  FR08  *  CRMAXX 


#NlNTAR { 4 1 

•  SUBS  I D { 4  0  0  i 
i YP 1280 1 
fPStZOO] 

• VV (1900 1 
< I B ADD (70  ) 

•  BOTH  Z  T 1 7  0 1 
fCRMAXXm 

f NCRTYP (I] 


>ITaPLMt3f4l 

•  tciiai 

•ZPI2001 
• ATIMP ( 260 ] 
•VZI15001 
>  UURX (701 
•MLLXI70) 
•SN(6| 

•  CRN I MY (61 

•  UOII1 


•  FH AS (2001 

•  RHO 1 260 1 

•  E  L  ( 7  0 ) 

•  WHY  1 70) 

• CS (61 
•CRHAXTI6I 


•  « 


PARAMETERS  PECULIAR  TO  SUBROUTINE  RGWNDi 

DIMENSION  XMU2)fVM(l21fHli2].All21«Bil2)fCtl21,saU2)>CG(l2lf 
1A2I12)  •  AHH21  >0(12 1  •  A2HI12] 


*********•****. RIDGE  hind  1  GLOSSARY 


AIK! 

AX 
AY 
A  Z 
AX 

RIK1 

CCS 

CNIK) 

CRMAXYIK! 

CRMlNYtKl 

CRKAXXIK1 

CRM1NXIK] 

CRUMTIKI 

DSX 

DZ 

DZ 

NIKI 

NRG 

SNIKJ 

SSG 

UOfKl 

XMIJ1 

XX 

YMIJJ 

YY 

n 

jy 

JNA0 

aPi  ji 


THE  half  WIDTH  OF  THE  KTH  RIDGE 
WIND  VECTOR  EAST 
KIND  VECTOR  NORTH 
VERTICAL  WIND  VECTOR 

PERTURBED  WIND  COMPONENT  IN  THE  DIRECTION  OF  THE 
UNPERTURBED  WIND 

CLOCKWISE  ANGULAR  DEVIATION  OF  KTH  RIDGE  FROM 
TRUE  NORTH 

COSINE  S F  ANGLE  UNPERTURBED  WIND  HAKES  WITH 
PERPENDICULAR  FROM  KTH  RIDGE 

COSINE  OF  COUNTER-CLOCKWISE  ANGLE  FROM  EAST  OF 
UNPERTURBED  WIND 

NORTH  BOUNDARY  OF  THE  K-TH  LOCAL  CELL. 

SOUTH  BOUNDARY  OF  THE  K-TH  LOCAL  CELL. 

EAST  BOUNDARY  OF  THE  K-TH  LOCAL  CELL. 

WEST  BOUNDARY  OF  THE  K-TH  LOCAL  CELL. 

THE  LOCAL  CELL  TOP  HEIGHT  IMETERSI 

THE  PERPENDICULAR  DISTANCE  OP  THE  JTH  PARTICLE  FROM 

THE  ITH  RIOGE  {METSRS1 

SUM  OF  TOPO  HEIGHT  INCREMENTS 

RIOGE  RATIO  OF  HUJ/AIJ1 

THE  HEIGHT  OP  THE  KTH  RIDGE 

NUMBER  OF  RIDGES  IN  THIS  RIDGE  KIND  SYSTEM 

£!N|  OF  ANGLE  COUNTER-CLOCKWISE  FROM  EAST  OF 

UNPERTURBED  WIND 

SINE  OF  ANGLE  UNPERTURBED  WIND  MAKES  WITH 
PERPENDICULAR  FROM  KTH  RIDGE 
MAGNITUDE  OF  UNPERTURBED  WINS  VECTOR 
X  LOCATION  COORDINATE  OF  THE  J-TH  RIDGE 
X  COORDINATE  Of  CENTER  OF  LOCAL  CELL 

Y  LOCATION  COORDINATE  OF  THE  J-TH  RIOGE 

Y  COORDINATE  OF  CENTER  OF  LOCAL  CELL 
l  COORDINATE  Of  SINTER  OF  LOCAL  CELL 

|N9iX  OF  THE  WINS  STRATUM  CONTAINING  THE  PARTICLE 
fMBfW  0?: MACRO  WINS  CBU  C3«f AILING  particle 
PARTICLE  POSITION  COORDINATE 


RGWN 

R0WN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

‘RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGUN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RGWN 

RSNN 

RGWN 


35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 
5G 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 
60 
01 
02 
03 

84 

85 
06 

87 

88 
69 
9P 

91 

92 

93 
9  A 
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yp  { J  i 
ZPU) 


PART  *  CLE  POSITION  COORDINATE 

particle  position  coordinate 


RGWN 

RGWN 

RGWN 

►RGWN 


RGWN 

1  FORMAT { 5F10 , 3 ]  RGWN 

2  FORMAT!// 25 X24HL0CAL  CIRCULATION  NUMBER16/30X15H  RIDGE  WIND  1//1RGWN 

15X5HRlDGF7X5HRlDf5E7X5HRlDGE7X20HLOCATION  C00NDINATES8X13HRIDGE  AZIRGWN 
2WUTK./15X6HNUMbER6X6HHfcIGHT6X5HWlDTH9XlHXlJXlHYl  RGWN 

3  FORMATI/12X, I6,3X.4F12.3,BX.F11.3//)  RGWN 

4  F0RMAT[//25X»36HC00RDINATES  OF  LOCAL  CELL  BOUNDARIES/. 15X,5HN0RTH,RGWN 

110X.5HS0UTN.11X.4H6AST.11X  'HWEST. 10X, 6HHE I GHT// , 7X.5F15.3///I  RGWN 

5  FORMAT I/25X.46HCHARACTERIS: ICS  OF  THE  UNPERTURBED  WIND  VECTOR/20X.RGWN 

116HUNPERTUR6ED  W f NO, 4X , 17HC0S INE  OF  ANGULAR. 4X.15HSINE  OF  ANGULAR. RGWN 
2/20X. 16HVECT0R  MAGN I TUDE , 5X, 15H0E V .  FROM  NORTH. 5X, 15HDEV.  FROM  NORRGWN 
3TH//.13X.3F20.5//3  RGWN 

RGWN 

RGWN 

DATA  PR0GRM/6HRGWND1/  RGWN 

RGWN 


•********»*••****•****«••*•***•»*•••*«•****  **************  *««»********<,RGWN 


RGWN 

IF!  J1100.im.102  RGWN 

101  IRRORs-101  R«WN 

7734  CALL  eRRORrPROGRM, IRROR, ISOUT J  RGWN 

C  100  THIS  IS  THF  DATA  READING  ROUTE  RGWN 

100  J*0  RGWN 

CHUHTlKlsO.O  RGWN 

103  J»J*1  "  RGWN 

READ  IISIN.il  XM(J],YM[J],H[J},A[J).B(J)  RGWN 

c ( Jl  *  COSIfltJ) 1  RGWN 

DU)  *  SINIBIJll  RGWN 

A  2 [ J ]  a  A ( J ) *  A  f  J  )  RGWN 

A2HUJ*A2I  JJ*Ht  J1  RGWN 

IF! J-1211031, 1032, 1032  RGWN 

1032  IRR0R=lu32  RGWN 

fiO  TO  7734  RGWN 

1031  JFIHIJJ J1099, 104, 1099  RGWN 

C1099  COMPUTE  THF  KTH  LOCAL  CELL  HEIGHT.  HGWN 

1099  DZ  =  ABS I  3 . 0*H ( J 1 1  RGWN 

IF  IDZ-CRUHTIKJ )110. 110. 1100  RGWN 

1100  CRUHT I K 3 »DZ  RGWN 

C  110  check  TO  SEE  THAT  THE  RIDGE  JUST  READ  IS  WITHIN  THE  LIMITS  OF  RGWN 

C  THE  KTW  LOCAL  WIND  SYSTEM.  RGWN 

110  iFfXMlJl-CPMINXlKj]  114,111,111  RGWN 

111  IFIXMIJJ-CRMAXXIKJ]  112,112,114  RGWN 

112  IF  IYMI Jl-CRMINVIK J 1  114,113,113  RGWN 

113  IF  (YMlJl-CRHAXYIKi 1  115,115,114  RGWN 

C  RGMN 

C  114  THE  RIDGE  IS  NOT  WITHIN  THE  LIMITS  OF  THE  KTH  LOCAL  WIND  SYSTEM  RGWN 

114  IRROR*  114  RGWN 

GO  TO  7734  RGWN 

C  RGWN 

C  115  CHECK  TO  SFE  THAT  THE  RIDGE  RATIO  HtJ)/A(U)  IS  LESS  THAN  0.6  RGWN 

115  DZ  *  HIJJ/AlJl  RGWN 

’F  (DZ-0.6)  103,116, 116  PGWN 

C  RGWN 

C  116  ,  ‘t  RIDGE  RATIO  HlJ]/A[JJ  IS  NOT  LESS  THAN  0.6  RGWN 


95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

14 1 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 
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116  liROR  •  116  RfiWN  155 

80  TO  7734  RfiWN  156 

:  RfiWN  157 

1»4  NPfi* J*1  RfiWN  151 

NR«  THE  NUMBER  OP  ROBES  REPRESENTED  IN  THIS  RfiWN  159 

RIDOE  WIND  SYSTEM  RfiWN  160 

1842  COMPUTE  UNPERTURBED  VICTOR  MERE  RfiWN  161 

THE  FOLLOWING  THREE  CARDS  CONSTITUTE  THE  LOCATION  COORDINATES  OP  RfiWN  162 


THE  UNPERTURBED  WIND  VECTOR 
VV«(CRMAXVtK)*C8MlNY(Kn/2,0 
XX«(CRMAXXtK!«CRM!NX(im/2.0 
tZ>CNUHTIKI/2.0 
?ALL  fi|TWNDlXX» YY*ZZ# JWAD* JW1 
iFtJuADJlMJ.  1844, 1045 
1843  !RROR*1043 
80  TO  7734 
1044  IRR0R*1844 
GO  TO  7734 


RfiWN  163 
RfiWN  164 
RfiWN  165 
RfiWN  166 
RfiWN  167 
RfiWN  168 
RfiWN  169 
RfiWN  170 
RfiWN  171 
RfiWN  172 


THE  FOLLOWING  THREE  CARDS  CONSTITUTE  THE  MAGNITUDE  AND  DIRECTION  RfiWN  173 


OP  THE  UNPERTURBED  WIND*  VECTOR  RfiWN  174 

1045  UO(KI«SORTfVX(JHAD)*VX(JWAD]«VY(JHAD)*VY(JWADM  RfiWN  175 

SN(K1*VYI JWADI/UOIK]  RfiWN  176 

CSIXI *VX ( JWAD] /UO (K  J  RfiWN  177 

DO  1049  J*1 , NR8  RfiWN  178 

SS6  *  CSCK1*D(J]*SNIKI*CIJJ  RfiWN  179 

CCS  «  CSI«l*Ct J1*SNIK1*DJJ1  RfiWN  180 

AHIJI*  -AtJi«H(J)*UOtKI«CCG*CCG  RfiWN  161 

SGU)*SSG/CCG  RfiWN  182 

1049  CGI JI*  2.0/CCG  RfiWN  183 

RfiWN  184 

WRITE  (ISOUT. 21*  RfiWN  165 

WRITE  ( ISOUT »3![J.H(J),A[J],XM[Jl,YM[J|,BiJ),J»l,NRGl  RfiWN  186 

WRITE  l ISOUT ,4lCRMAXY(K],  CRM  I  NY  IK ] *  CRM A XX |K),CRMINXIK) *  CRUHT t  K )  RfiWN  187 

WRITE  (ISOUT, 5)UOtKl.SNlK!,CStKj  RfiWN  186 

105  RETURN  RSWN  189 

RGWN  190 

102  THIS  IS  THE  TESTING  AND  COMPUTING  ROUTE  RGWN  191 

COMPUTE  THE  TOPOGRAPHIC  INCREMENT  AT  POSITION  OF  THE  JTH  PARTICLER6WN  192 

COMPUTE  THE  PERTURBED  WIND  COMPONENTS,  SUM  THEM,  AND  ADD  THEM  RGWN  193 

to  the  unpfrturbeu  wind  vector.  rgwn  194 

102  AXtO.O  RGWN  195 

AYiO.O  RGWN  196 

AZ«0.0  RGWN  197 

DZ«0.0  RGWN  198 

DO  106  lal.NRG  RGWN  199 

C107  this  card  translates  and  rotates  the  particle  into  the  ridqe  rgwn  200 

C  WIND  SYSTEM.  DSX  IS  THE  PERPENDICULAR  DISTANCE  OF  TH'  J-TH  RGWN  201 

C  PARTICLE  PROM  THE  J-TH  RIDQE,  RGWN  202 

107  DSX  ■  tXPIJJ*XNl!!J*Cm-lYP!JJ-VMll!  J*DII1  RGWN  203 

X2  •  DSX*DSX  RfiWN  204 

AM8DA  «  ZPIJ1  *AUJ  RfiWN  205 

AHBDA2  •  AM8DA*AMBDA  RGWN  206 

C  NOW  COMPUTE  TOPO  HEIGHT  INCREMENT  RESULTING  FROM  THE  ITH  RIDGE  PGWN  207 

C  AND  ADD  IT  TO  SUM.  RfiWN  208 

0Z«  DZ  *  A2HI I J/J  A2U  1*X2}  RfiWN  209 

C  RfiWN  210 

C  THE  FOLLOWING  CARDS  COMPUTE  THE  PERTURBATION  WIND  INCREMENTS  RfiWN  211 

AHCD«  AWUl/UXa*AMC0A2]*IX2*AM8DA2l  I  RfiWN  212 

AMBCA2*  XSaAHBBS}’  RfiWN  213 

C  AX  IS  THE  COMPONENT  IN  THE  DlRlCTfON  OP  f HE  UNPERTURBED  WIND  RfiWN  214 


200 


oooooooonooooonoooooooononooooooooooo 


o 


AX*AHCD*AMBDA2  *  AX 
AY*  AHCD^SGM  J*AMBDA2  ♦  AY 
106  AZ*  AHCU*CGlI]*AMbDA*DSX  *  AZ 
C 

C  NOW  TEST  FOR  IMPACTED  PARTICLE 

lFtDZ-ZPIJ])109,108,10B 
C  108  PARTICLE  HAS  IMPACTED 

108  az=-i:oe*o8 

AXsU.U 
AYsO.Q 
GO  TO  105 

C  109  THE  PARTICLE  IS  ALOFT.  NOW  ADD  THE  UNPERTURBED  WIND  VECTOR  TO 
C  THE  PERTURBED  COMPONENT  IN  THE  SAME  DIRECTION. 

109  DSX=AX*UOIK) 

C  THE  FOLLOWING  TWO  CARDS  DEROT  ATE  THE  WIND  SYSTEM  INTO  MACRO  FIELD 
C  COORDINATES 

AXs  DSX*CS(K1-AY*SN[K J 
AY=  DSX*SNfK)*AY*CS(K] 

GO  TO  105 

end 

GO  TO  105 

SIBFTC  BATl  LIST, DECK, M94/2 
SUBROUTINE  BATMAN 
VERSION  1 

R  C  TOMPKINS  --  US  ARMY  NUCLEAR  DEFENSE  LABS 
AUGUST  1966 

THIS  VERSION  REPLACES  SUBROUTINES  INGEN,  BATMAN,  DECAY,  AND  DOSE  OF 
THE  INITIAL  VERSION  OF  DELFIC 


RGWN  215 
RGWN  216 
RGWN  217 
RGWN  218 
RGWN  219 
RGWN  220 
RGWN  221 
RGWN  222 
RGWN  223 
RGWN  224 
RGWN  225 
RGWN  226 
RGWN  227 
RGWN  228 
RGWN  229 
RGWN  230 
RGWN  231 
RGWN  232 
RGWN  233 
RGWN  234 
RGWN  233 


THE  FUNCTION  OF  THIS  SUBROUTINE  IS  TO  COMPUTE  RADIOACTIVE  DECAY 
CHAINS  BY  MEANS  Of  THE  BATEMAN  EQUATION 
ALLED  by  FRATIO,  GXPSR,  AND  MCHOEP 


BATl 

*********  GLOSSARY  ***********  BATl 


ABEGM [ 700 ]  INITIAL  FISSION  PRODUCT  ABUNDANCES  IN  ATOMS/lOOdO  BATl 
FISSIONS  (PARALLEL  TO  NUCLIDI  BATl 

ABUNDO[7oO ]  F I SS 1 0 V  PRODUCT  ABUNDANCES  PER  10000  FISSIONS  BATl 

ATOMS  AT  TMSD  IN  FRATIO  BATl 

DISINTEGRATIONS/ SEC  AT  TIME  (JDsl)  BATl 

1  DISINTEGRATIONS  FROM  TENTER  TO  TEXIT  BATl 

OH  INFINITY  (JD=2J  BATl 

8(151  CONTRIBUTION  OF  ONE  SUBCHAIN  TO  ABUNDO  BATl 

CNIJI68U)  BATEMAN  COEFFICIENTS  FOR  ONE  SUBCHAIN  BATl 

IBR  COUNTER  TO  KEEP  PLACF  IN  BmaNCHING  RATIO  TiBLE  WHILE  BATl 

SCANNING  NUCLIDE  TABLE  BATl 

I F  I  GO  ASSIGNED  GOTO  PARAMETER  CORRESPONDING  TO  iGO  BATl 

IFjD  ASS1GNFD  GOTO  PARAMETER  CORRESPONDING  TO  JD  BATl 

IGO  (LOGICAL!  TRUE  GIVES  ACTIVITY,  BATl 

FALSE  GIVES  ATOMIC  ABUNDANCES  BATl 

INFORMiiU  TABLE  Of  DAUGHTER  RETRIEVAL  INFORMATION  FOR  EACH  BATl 

MEMbFR  OF  A  SUBCHAIN,  OBTAINED  BY  TRUNCATING  NUCLID  BATl 
FROM  THE  LEFT  BATl 

JD  ILOGJCAU  TRUE  COMPUTES  EXPOSURE  RATE,  BATl 

FALSE  COMPUTES  DOSE  BATl 

KDOS  (LOGICAL!  TRUE  COMPUTES  DOSE  FROM  TENTER  TO  TEXI1.  BATl 

FALS  COMPUTES  DOSE  FROM  TENTER  TO  INFINITY  BATl 

KFJD  SEE  IFJD  BATl 

L I M ( 11 1  SUBCHAIN  TABLE  OF  INDICES  FOR  MULT  TO  FIND  CURRENT  BATl 

BRANCHING  PATH  BATl 
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LtUl 

Mesn  j 
sin  ill! 
SCA)l5) 
9DCU5) 

?*nt§r 

T**  IT 


COUNTER  FOR  SUBCHAIN  MEMBERS 

CRWi*  REFERENCE  OF  SUBCHAIN  MEMBERS  TO  INDEX  IN 

SUBCHAIN  BRANCHING  RATIOS 

FliltON  YIELDS  OF  SUBCHAIN  MEMBERS 

C0*5T*NTI  OF  SUBCHAIN  MEMBERS 

fSl5V,I22E.iffCl  F0R  Dnae  CALCULATION  WITH  JD  « 
EXIT  TIME  (SEC)  FOR  DOSE  CALCULATION 
WITH  JO  ■  FALSE#  KDOS  ■  TRUE 

MH,CH  EXP0SU*6  BATE  OR  MASS  CHAIN 
OEROSITE  IS  CALCULATED  WITH  JO  ■  TRUE 


COMMON/OUTRUT/ 


1  FfSNUN  ,FP  (200 1 

2  « HASCHN  , SIGMAS 

COMMON/UTIITT/ 

1  KOUT  , NPRNT  U5] 

#  FW 

,  ITAB 

•  JGO 

COMMON/ INDUCE/ 

1  ALBFON  ,FAC 

2  *LMAX  , XLAM 

17.10S 

I7»18J 

,F0GRNYt7#18J» ISO 

1181 

comhon/fishin/ 

1  ABEQN  1700)  .ABUNDOI700] 

2  « DCON  f  700  I  , I  BRA 

3  .MULT  fUJ  ,  NUCL  10(700) 

.BRANCHU33I  .CAPFIS 
#!NUC  #  MAXNJC 

COMMON/DECAY/ 

1  IQO  , JD 

2  » TEX  1 T  .TIME 

.KDOS 

.TENTER 

common/frylng/ 

1  8SUBK  (901  ,ERM 

1185) 

.  JRM 

1165)  , KRM 

. ECF ( 90 ) 

CONMON/SET  3/DUHmY [3753 ] 

DIMENSION  EFAC  (11J 

3  • INFORM!  11 j 

2  « SCA  111] 

#K8r 
#LIh 
.  SDc 

fill 

(111 

Ill] 

.NUC  111)  , 

SBR  111) 

LOGICAL  JD, KDOS, )GO. FLAG. NPRNT 

SET  INITIAL  VALUES 
DO  1  I  ■  1.INUC 
1  ABUNDOd]  ■  0,0 
IBR  «  0 

BEGIN  MAIN  LOOP  THROUGH  THE  NUCLIDE  TABLE 

10  DO  500  IN  ■  l.INUC 

FIND  THE  NEXT  NUCLIDE  THAT  BEGINS  A  SUBCHAIN 
IF  iNUCLIDI IN] Ill, 500,499 

SET  PARAMETERS  FOR  BEGINNING  OF  A  SUBCHAIN 
MEMBERSHIP  COUNTER 

11  LSUB  b  i 

BRANCHING  RATIO  COUNTER 
LBR  •  IBR 
KBRI1?  a  LBR 

starting  index 


BATl  39 
NUCLIDSAT1  40 
BATl  41 
BATl  42 
BATl  43 
FALSE  BATl  44 
BAT  1  45 

BATl  46 
BATl  47 
BATl  48 
BATl  49 
BAT*  50 
BATl  51 
BATl  52 
BATl  53 
BATl  54 
BATl  55 
BATl  56 
BATl  57 
BATl  58 
BATl  59 
BATl  60 
BATl  61 
BATl  62 
BATl  63 
BATl  64 
BATl  65 
BATl  66 
BATl  67 
BATl  68 
BATl  69 
BATl  70 
BATl  71 
BATl  72 
BATl  73 
BATl  74 
BATl  75 
BATl  76 
BATl  77 
BATl  78 
BATl  79 
BATl  60 
BATl  61 
BATl  82 
BATl  63 
BATl  64 
BATl  85 
BATl  86 
BATl  87 
BATl  88 
BATl  89 
BATl  90 
BATl  91 
BATl  92 
BATl  93 
BATl  94 
BATl  95 
BATl  96 
BATl  97 
BATl  98 


.  L 


NUCtll  =  IN 
'2  LlMClSuB]  s  4 
C  PROCESS  A  SUBCHAIN  MEMBER 

13  KP  *  Ni)C(LSUB) 

IH  s  L  I  M { LSUB  j 

INFO  =  MODI  lASSCNUCLIDfKP)  J  , MULT [51  ) 

INFORMILSUR)  =  INFO 
INC  =  1 

C  SET  UP  SUBCHAIN  HSINTEGRATION  CONSTANTS 
SOCILSUB!  *  DCON(K3] 

CHFCK  FUR  END  OF  SURCHaIN 

IF  IINFO.fcO.4]  GO  TO  21 
CHECK  FOR  BRANCHING 

IF  lMODlINFO.MULTIin.LT. 41  GO  TO  14 
SBRILSUH]  =  1.0 
GO  TO  It/ 

C  SET  UP  S'JBCHAIN  BRANCHING  k  .TIOS 

14  LB  -  LBR  ♦  5  -  IM 
SBRILSUB)  =  BRANCH  ILF  J 

C  EXTRACT  THF  DAUGHTER  INCREMENT 

15  iD  =  MODI  INFO, MULT(IM*1I I/MULTIIMI 

C  SEE  IF  THIS  INCREMENT  SHOULD  BE  NEGATIVE 

IF  IMODI INF0.MULTI2I I/MULTfl) ,E0, IMJGO  TO  16 
C  SET  PARAMETEP  TO  LOOK  AHEAD  FOR  BRANCHING  RATIO  OF  DAUGHTER 
Kl  =  KP 
GO  TO  17 

C  SET  PARAMETER  TO  LOOK  BEHIND  FOR  BRANCHING  RATIO  OF  DAUGHTER 

16  Kl  =  1 
LBr.  =  (1 
INC  =  -INC 

COMPUTE  DAUGHTER  INDEX 

17  NDAUT  =  KP  ♦  I NC* 1 0 
KUA  *  NDAUT  -  1 

C  STEP  THROUGH  THE  NUCLIDE  TABLE  TO  ESTABLISH  THE  CORRECT  INDEX  FOR 
C  THE  BRANCHING  RATIO  OF  THE  DAUGHTER 
DO  20  K  =  KI.KDA 

20  LBR  =  LBR  +  4  -  I ABS l MCD ( NUCL I D  tK  J  »  HULT ( 1 J I  I 
KBR l LSUB+1 I  s  LBR 

C 

C  ACCEPT  THE  DAUGHTER  FOR  MEMBERSHIP  IN  THE  SUBCHAIN  AND  RECYCLE 
LSUB  =  LSUB  ♦  1 
IF  [LSUB. GT. 11)  GO  TO  1301 
NUCtLSlIb]  =  NDAUT 
GO  TO  12 
C 

CC  A  SUBCHAIN  HAS  NOR  BEEN  SET  UP  AND  CAN  BE  STUDIED  IN  TOTO 
C  ELIMINATE  UNI-MEMRtRED  SUECHAIN 

21  IF  ILSUB.E0.1J  GO  TO  500 

C  RUN  BACK  THROUGH  THE  SUBCHAIn  TO  ACCUMULATE  BRANCHING  RATIOS 
ASSIbN  23  TO  LGO 
JL  =  0 

SCAIlSUB)  a  l.o 
LAST  s  LSUB  *  1 
DO  22  L  =  ?, LSUB 
L8ACK  a  LAST  -  L 
SCAtLBACK’  »  1  -0 
GO  TO  LGO, [22.231 

C  FIND  THE  LAST  BRANCH  IN  THE  SUBCHAIN 
23  IM  a  LIM(LRACK) 

IF  (MODI  INFORM(LBACK)  .MULT  I  IM)  1/MULT  (  IM-lJ  !  22.22.2*1 


BAfl  99 
BATl  100 
BATl  101 
BAT  1  102 
BATl  103 
BA  f 1  104 
BATl  105 
BATl  106 
BATl  107 
BATl  108 
BATl  109 
BATl  110 
BATl  HI 
BATl  112 
BATl  113 
BATl  114 
BATl  115 
BATl  116 
BATl  117 
P AT l  118 
BATl  119 
BATl  120 
BATl  121 
BATl  122 
BATi  123 
BATl  124 
BATl  125 
BATl  126 
BATl  127 
BATl  128 
BATl  129 
BATl  130 
BATl  131 
BATl  132 
BATl  133 
BATl  134 
BATl  135 
BATl  136 
BATl  137 
BATl  138 
BATl  139 
BATl  140 
BATl  141 
BAH  142 
BATl  1  <*3 
BATl  144 
BA  1 1  145 
BATl  146 
BATl  147 
BATl  148 
RATI  149 
2AT1  150 
BATl  151 
BATl  152 
BATl  153 
BATl  154 
BATl  155 
BATl  156 
BATl  157 
BATl  158 
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24  JL  ■  LBACK 
ASSIGN  22  TO  ISO 

22  SC  A  ( LBACK  ]  •  SBR{L8ACK]*SCAIL,SACK4>1J 
SCAlLSUB)  «  0.0 

CORRECT  FISSION  TIElHS  FOR  BRANCHING 
FLAG  ■  .FALSE. 

DO  25  J  ■  l.LSUB 
JN  *  NUCIJl 

SCAN!  *  SCA(J)*ABEGN( JNJ 

IF  (FLAG  1  GO  T8  25  „  ... 

c  MAKS  A  NOTE  IF  AT  LEAST  ONE  VALUE  OF  SCA  IS  NONTRIVIAL 
JF  t SCA t J]  1 25.25, 27 
27  FLAG  •  .TRUE. 

25  CONTINUE 

C  OMIT  COMPUTATIONS  FOR  TRIVIAL  SUBCHAIN 
IF  (.NOT. FLAG!  Go  TO  30 


CC  THE  CENTRAL  COMPUTATIONS  BEGIN  AT  THIS  POINT 
C 


DO  200  N  *  i.LSUB 

COMPUTE  EXPONENTIALS  BEFORE  ENTERING 
IF  t  JO  I  TENTER  *  TIHE 
EFACINI  «  EXPC-SDC(NJ*TENTERJ 
IF  ( KDOS  ]  EFACINJ  a  EFACIN]  - 


INNER  LOOPS 


EXP(-SDCINJ*TExn  ) 


B  «  OtO 


DO  150  I  «  l.N 
DO  150  K  «  l.N 


C 

COMPUTE  BATEMAN  COEFFICIENTS 
CNIJ  «  1.0 
DO  106  L  «  l.N 

IF  (n:GT.LJ  CNIJ  *  CN I J*SDC  l  L  1 
IF  tlTEQ.Kl  GO  TO  106 
FACTC  a  SDCIL)  *  SDCtKl 

IF  IA3SIFACTCI -LT.l.E-15)  FACTC  »  S I GN t 1 .E-15. F ACTC ) 
CNIJ  ■  CNI J/FACTC 

C0mPUT6°saTEMAN  EQUATION.  BRANCH  TO  109  FOR  INTEGRATED  FORM 
C 

0  a  CNI  J«SCAUJ*EFAC(K] 

IF  U’DJ  GO  TO  150 
C  PREVENT  DIVIDE  CHECK  ERROR 
IF  (SDCtKni50.15(l.ll0 

no  a  =  q/sdc ( k i 
l5t>  B  a  B  *  0 

C  STORE  RESULTS  IN  ABUNDANCE  TABLE 
IF  (85200.200. 151 
l5l  IF  tlGOJ  B  «  B*SDC!NI 
NK  a  NUC ( N 1 

ABUNDOINK 1  a  ABUNDO  t  NK  J  ♦  B 
200  CONTINUE 


c  SET  UP  A  NEW  SU8CHA I N  STARTNG  FROM  DEEPEST  UNEXPLORED  BRANCH 

30  IF  SJi.2900, 499.31 

31  LSU8  ■  JL 

LIMIL8U8J  *  itULiUi?  •  1 
LiR  **  SWtLSHS? 

00  TO  13 


BAU  159 
BAT  1  160 
BAU  161 
6aT1  162 
BAT  1  i63 
BATl  164 
BAT  1  165 
BATl  166 
BAU  167 
BATl  168 
BAU  169 
BATl  170 
BATl  171 
BAU  172 
BATl  173 
BATl  174 
BATl  175 
BATl  176 
BAU  177 
BATl  178 
BATl  179 
BAU  180 
BAU  181 
BATl  182 
BATl  183 
BATl  184 
BATl  185 
BATl  166 
8AT 1  187 
BATl  188 
BAU  189 
BAU  190 
BATl  191 
BAU  192 
BAU  193 
BATl  194 
8AT 1  195 
BAU  196 
BAU  197 
BATi  198 
BATl  199 
BAU  200 
BAU  201 
BAU  202 
BATl  203 
BATl  204 
BATl  205 
BAT  1  206 
BATl  207 
BAU  208 
BAU  209 
BATl  210 
BATl  2U 
BATl  212 
BATl  213 
BATl  214 
BAU  215 
BATi  216 
BATl  21? 
SAT  1  218 


c 

SAT  1 

219 

c 

BATl 

220 

1301 

U»  I  TE  (KOl'T  ,  1351  j  '  'CL  !Dt  IN  1 

SAT  1 

221 

c 

8AT1 

222 

c 

5’ 

'EP  UP  BRANCH  COUNTER  IN  riA'N  LOOP 

8AT1 

223 

499 

I BR  =  'HP  +  4  -  MOP.i  IABS(NuCL»n(  IN!  1 

!  , MULT  1 1 1 

i 

9  AT  1 

224 

5  SO 

continue 

BAT1 

225 

IF  ( NPBNT ( 9 i )  WRITE  [KOUT»1UOOI  INUCLlD’ 

I 1 , ABUNDO! 5 ) , 

1*1 

,  1NUC1 

BAT  1 

226 

RETURN 

SAT  1 

227 

1000 

FORMAT  1 1 7H10UtRUT  OF  fl A T M AN/ /8 X6HNUCL i Dll X6H ABUNDO/ 

BAT  1 

228 

1 

15X012, 5X1PE12. 4)1 

BATi 

229 

1351 

FORMAT  (?5H0SoBChA IN  BEGINNING  WITH 

012, 

8W  T 

00  8SG! 

BAT  1 

230 

FND 

BAT  1 

231 

$  1 0f  TC 

1  TIMSEX  L  I  ST , DECK  » M94 /2 

TIMS 

0 

C 

F T 1  MSEC  -  3/66  -  TOMPKINS 

TIMS 

1 

C 

TIMS 

2 

FUNCTION  TIMSEC  [ T I  ME , I  UN  I T , I  EXP  1 

TIMS 

3 

c 

TIMS 

4 

GO  TO  ri.?, 3,4,5!* I  UN  I  T 

TIMS 

5 

c 

TIMS 

6 

1 

SCALE  =1.0 

TIMS 

7 

GO  TO  6 

TIMS 

8 

2 

SCALE  =  60. U 

TIMS 

9 

GO  TO  6 

TIMS 

10 

3 

SCALE  =  ,3.61-3 

TIMS 

11 

GO  TO  6 

TIMS 

12 

4 

SCALE  =  8.64P4 

TIMS 

13 

GO  i0  6 

TIMS 

14 

5 

SCALE  =  8.64fc<t*365.25 

TIMS 

15 

c 

TIMS 

16 

o 

fiMSEC  =  T!ME*SCALE*10.**IEXP 

TIMS 

17 

RETURN 

TIMS 

18 

END 

TIMS 

19 

SIBFTC 

:  UNPAX  LIST, DECK , M94/2 

UNPA 

0 

c 

SRUNPACK  -  3/06  -  MEREDITH 

UNPa 

1 

c 

UNPA 

2 

SUBROUTINE  UNPACK 

UNPA 

3 

1 

I 1A, I z, IS, NAME] 

UNPA 

4 

c 

UNPA 

5 

JX  =  b 

UNPA 

6 

JY  =  4096 

UNPA 

7 

c 

UNPA 

8 

IA  s  NAME/JV 

UNPA 

9 

! Z  =  (NAME  •  I A» JY  J / JX 

UNPA 

10 

! S  =  MOD  f  NAME  ,  JX  ) 

UNPA 

11 

r 

UNPA 

12 

10 

RETURN 

UNPA 

13 

END 

UNPA 

14 

10 

RETURN 

UNPA 

13 

SIPFTC 

LNK8  LIST, DECK , M94/2 

lnkb 

0 

SUBROUTINE  LINKS 

LNK0 

1 

C 

T.W.SCHWFNKE  TECHNICAL  OPERATIONS 

RESEARCH 

OUTPUT 

PROCESSOR 

ILNK8 

2 

c 

15  FES  67 

LNKB 

3 

c 

p!RST  HALF  OF  THF  OUTPUT  PROCESSOR 

LNK8 

4 

c 

HIS  PROGRAM  INITIALIZES  AND  WRITES 

HEADINGS 

FOR  THE 

OUTPUT 

LNKB 

5 

c 

PHOCESSOR.  THEN  IT  CALLS  THE  FIRST 

PART 

OF 

THE  PARTICLE 

ACTIVITY 

lnkb 

6 

c 

MODULE  ! P AMI  1  TO  PRECOMPUTE  DATA  USED  BY 

the 

SECOND  PART 

OF  THE 

lnkb 

7 

c 

PARTICLE  ACTIVITY  MODULE  WHICH  WILL 

BE  CALLED  DURING 

THE 

LNK0 

8 

c 

EXECUTION  OF  lINKV. 

LNKB 

9 

c 

lnkb 

10 
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c 

**«*•**««•**«*♦*+»****»**•••***•« 

****##*•••**+** 

*LNK8 

11 

c 

LNK8 

12 

c 

LNK8 

13 

COMMON/OUTPUT/ 

LNK8 

14 

1  FISNUH 

>  F P  C  200  J 

,F'A  .  J  TAB  .  JGO 

LNK8 

15 

2  .MASCHN 

.SIGMAS 

LNK8 

16 

COMMON  /SET1/ 

LNK8 

17 

t  DUN  , 

DET i D ( 12  j  * IH I SE  .  I  EXEC  . 

ISIN  .  1$UUT 

LNK8 

18 

2  SD 

SPAR  ,  SS AM  ,  THE  , 

TMP1  .  TMP2  , 

lnkb 

19 

3  T2M  . 

U  .  ifPR 

.  W  . 

HBURST  »  SCLDHB  . 

LNK8 

20 

4  TIDI401. 

RMIN  ,  IDISTR  .  SPAR1  , 

MBTAPE  .  SPAR3  . 

LNK8 

21 

5  SPAR4  * 

SUBRAD  .  RADMAX  .  XGZ  • 

YGZ  ,  TGZ 

LNK8 

22 

COMMON  /SET3/ 

LNKB 

23 

1  BZ 

.822 

,0ZZ 

.  BZ22 

LNK8 

24 

2  .deltax 

.  DGX 

.DGY 

.DIFCON 

LNK  0 

25 

3  .DIFAOJ 

, FMAS 15001 

,FMASS120in 

* ICI 181 

LNK8 

26 

4  .ICON 

,  I CTR 

.IH 

. 10TI18I 

LNKB 

27 

5  ,  IP 

, IPOUT 

. . ITTI18I 

.IV 

LNK6 

28 

6  .JC11B1 

.JIN 

.  JOUT 

, JPOUT 

LNKB 

29 

7  .KTRI500J 

.KTAPE 

.LAST 

.MAPRUN 

LNK8 

30 

8  .MARRAY 

.MIN 

» MXREQ 

LNK8 

31 

9  .  N 

,  NA 

»nbzx 

. NBZX2 

LNK8 

32 

1  .NBZY 

» NCL 

.NE 

,  NF 

LNKB 

33 

2  >  N  I  J 

.  NMAP 

.  NMAX 

>  NOX 

LNK8 

34 

3  .NPI21J 

.  NREQ 

.NS 

. NTAPES 

LNKB 

35 

4  .ntapet 

, NT  ASK 

. NXMAP 

.NYMAP 

lnkb 

36 

5  . YM I  N 

. PS  1 500  T 

.PSIZEI2U0) 

>  PACT  I  200 1 

LNKB 

37 

6  .ROPART 

.  T 1 50  0  ) 

,T1 

LNKB 

38 

7  ,T2 

.TL1MIT 

>  X 1 500 1 

.XF 

LNKB 

39 

8  ,X0 

»  XMAX 

.XMJN 

. XNMAP 

LNK8 

40 

9  ,X1 

.  X2 

>  X3 

,X4 

LNKB 

41 

1  . Y ( 500 1 

.YF 

.YO 

.  YMAX 

LNKB 

42 

c 

LNKB 

43 

c 

DIMENSIONS  PECULIAR  TO  LINKS 

LNKB 

44 

DIMENSION 

CRID1121 

.0PIDU2) 

. PSE I D  1 12 1 

LNKB 

45 

1  »  TOP  I D 1 1? 1 

,  W I D  E 1 2  J 

LNKB 

46 

c 

LNKB 

47 

■LNK  b 

40 

c 

LNK8 

49 

c 

DIFCON 

atmospheric 

DIFFUSION  CONSTANT 

LNKB 

50 

c 

DIFAOJ 

adjustment 

FACTOR  TO  ALLOW 

FOR  DIFFUSIVE  GROWTH 

LNKB 

51 

c 

OF  CLOUD  SUBDIVISIONS. 

LNKB 

52 

c 

GRUFF  IS  A  GROUND  ROUGHNESS  FACTOR 

LNKB 

53 

c 

OPIDI  I 

OUTPUT  PROCESSOR  IDENTIFICATION 

LNKB 

54 

c 

MIDI  ] 

WIND  FIELD 

IDENTIFICATION 

LNKB 

55 

c 

TOP  I D  t  J 

TOPOGRAPHY 

IDENTIFICATION 

LNKB 

56 

c 

BZ 

WIDTH  OF  CLOUD  WAFER  AS  FIRST  READ 

lnkb 

57 

c 

BZ2  «  BZ/2  IS  THE  WIDTH  OF  THE  SUFFER  ZONE  BETWEEN  MAP  ZONES. 

LNKB 

58 

c 

BZ22 

SQU*p€  OF  HALP  THE  CLOUB  SUBDIVISION  LENGTH 

LNKB 

59 

c 

DElTAX 

MAP  ZONE  WIDTH  EXCLUSIVE  OF  PUFFER  ZONES 

LNKB 

60 

c 

2GX .  DGY  -  LENGTHS  OF  GRID  INTERVALS  IN  X  AND  Y  DIRECTIONS 

LNKB 

61 

c 

RESPECTIVELY 

LNK8 

62 

c 

HTST.DTST.POUT 

TEMPORARY  storagf 

LNKB 

63 

c 

ICC  Jl 

overall  con 

TROL  VAR  1 A8LRS 

LNKB 

64 

c 

IC117I  POSITIVE 

MEANS  STOP  WITHOUT  ENTERiNQ 

OUTPUT  PROCESSOR 

lnkb 

65 

c 

?C 1 17 1  «  0  P  ANS 

PROCEED  WITH 

JOB 

LNKB 

66 

c 

!Cll#I  POSITIVE 

MEANS  PRINT  TAPE  IPOUT  BEFORE  EXECUTION 

LNK6 

67 

c 

ICE18]  *  S  MEANS 

DO  NOT  PRINT 

TAPE  IPOUT 

LNK  8 

68 

c 

f POUT  *  JPOUT  » 

TAPI  ON  WHICH 

PARTICLE  PARAMETERS  ARE  WRITTEN  BY 

LNKB 

69 

c 

THE  TRANSPORT  PROGRAM. 

LNK8 

70 
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oooorsrjooooooooonoooonoooooooooonoooooonoorjo 


i Shut  system  output  tape  number 

isiN  system  input  tape  number 

"  0  T  C  j  3  ID  NUMBERS  OF  AVA'LARLE  TAPE  UNITS 

ITTljS  ID  NUMHERS  OF  hVaILABLE  TAPE  UNITS 

IERRCR  ERROR  STOP  TRACE  WORD 

5  H  >  S  ¥  HORIZONTAL  AND  \ ERT I C AL  CHARACTER  SPACINGS  FOR 

THE  PRINTER  IN  ’ERMS  OF  CHARACTERS  PER  INCH 
>  CON  A  ROUTE  CONTROL  P ARAMETFR 

I. TP  A  control  parameter 

jCIJI  LOCAL  CONTROL  VARIABLES 

jCClS  ...  output  format  control  VARIABLE 
Si  2  line  F  format  printer  MAP 

*2  2  LINE  F11.3  FORMAT  PHILTER  MAP 

jC [ 15 ’  IF  POSITIVE  CAUSES  THE  USE  OF  AN  ATMOSPHERIC 

DIFFUSION  MODEL 

JC  f  16  3  *  I)  ....  ADJUST  GRID  INTERVALS  TO  YIELD  AN  UNDISTOrtTED  MAP 
HAVING  A  MINIMUM  SCALE  FACTOR  BASFD  ON  DGX  OR  DGY,. 


JC 1 18  3 
JCIIB J 
JB.NI 
LAST 
M I N 

marhay 

TIME 

MAPRUN  «  0 
MAPRUN  *  +N 
MXREQ 


ADJUSTMENT  OF  GRID  INTERVALS  PERMITTED 

*  l  .  NO  ADJUSTMENT  OF  GRID  INTERVALS  PERMITTED 

TEMPORARY  STORAGE 

=1  IND'^aTES  A  SUBSEQUENT  SORT  IS  REQUIRED 
NUMBER  OF  CLASSES  USED  FOR  PARTICLE  SORT 
a  MAXIMUM  NUMBER  OF  WAFFRS  THAT  CAN  BE  CONSIDERED  AT  ONE 


.  .  MAP  CALLED  FOR  FIRST  TIME 

..  MAP  HAS  PREVIOUSLY  PRINTED  N  STRIPS  OF  A  MAP 
MAXIMUM  NUMBER  OF  PROCESSING  REQUEST  TYPES 
ALLOWED  FOR  IN  THE  CODE 

NZ  NUMBER  OF  MAP  ZONES  RIGHT  OF  1ST  MAP 

NMAP.  XNMAP  =  NUMBER  OF  OUTPUT  GRID  POINTS  ON  ENTIRE  MAP 
NMAX  =  MAXIMUM  NUMBER  OF  WAFERS  THAT  SHOULD  BE  WRITTEN  IN  ONE 
BLOCK  CN  THE  TAPE  CONTAINING  WAFERS  THAT  HaVE  VET  TO  BE 
SORTED. 

NXMAP  a  NUMBER  OF  GRID  POINTS  IN  X  DIRECTION  IN  THE  CORE-LOAD  MAP 
COUNTING  2  BUFFfcR  ZONES 

NUL  SMALLEST  X  INDEX  OF  A  MAP  POINT  TO  THE  RIGHT  OF 

THE  LEFT  BOUNDARY  OF  THE  CLOUD  SUBDIVISION 
NOX  S  NUMBFR  of  GRID  POINTS  IN  X  DIRECTION  IN  THE  CORE-LOAD  MAP 
WITHOUT  BUFFER  ZONES» 

N Y M A ,J  =  NUMBER  OF  GRID  POINTS  IN  Y  DIRECTION  IN  THE  CORE-LOAD  MAP 

NBZX  =  NUMBER  OF  GRID  POINTS  IN  X  DIRECTION  OF  WAFER 

NBZX2  =  NB7X/2  *  NUMBER  OF  GRID  POINTS  IN  X  DIRECTION  OF  THE 


BUFFER  ZONE, 


NT  ASK 
NCL 

NT  APES 
NTAPET 
N I  J 

NST 

NREQ 

NRO 

NOX 

OMAPt J) 

OX 

T1.T2 

X.Y.T.PS.ID 
XMAX.XMIN 
XO, YQ.XF.YF 
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IE  OF  F7.1.4H  AT  F8.2.5H  SEC. 3  PAMJ  90 

9  FORMAT  I//42X14HT0TAL  YIELD  IS,l»El2.4.10N  KILOTONS.I  PAMI  91 

10  FORMAT  (//41X16HFISSI0N  YIELD  I S . 1 PE12 . 4. 1  OH  KILOTONS.I  PAMi  92 

11  FORMAT  I//32X9FTHERE  ARE.l4.36H  PARTICLE  GLASSES  WITH  SIGMA  OF,  PAMI  93 

1  F7. 4, 1H, ]  PAMI  94 

12  FORMAT  I//41X22HTHE  HEIGHT  OF  BURST  IS.F9«3.6H  FEET.)  PAMI  95 

PAMI  96 

A********************************************************************** PAMI  97 
•••♦♦A***********.****®*************************************'.****** ****pAMl  98 

PAMi  99 

KOUT  s  ISOUT  PAMI  100 

IPAM  «  I  POUT  PAMI  101 

JNTP  8  I S IN  PAMI  102 

KRD  »  I S IN  PAMI  103 

READ  riSIN.lJ  PAMI  104 

1  fPAMIDm,I«l.l2),lIF?4PE£j],J»1.10l,|NPRNT!K),K*l,15)  PAMI  105 

I F  t IFTAPE (431  SO  TO  150  PAMi  106 

READ  IISIN.21  PAMi  107 

1  CAPFIS.EHlTN.FfSSJD  PAMi  108 

25  WRITE  IKOUT. 31  PAMI  109 

l  tPAMJ0m,I«i.l2)  PAH1  110 

WRITS  (K0UT.4J  PAMI  1U 

1  I  <FTAPII  JJ » 1 .  f  HPRNTIK I  ,K«1. 15!  PAMi  H2 

WRITF  IKOIjT.  93  TW  PAMi  H3 
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WRITE  (KOUT.10J  Fw 
Wi  R  I  Trr  l K  OUT  *  7  1  F  T  ^  S  I  0 
WRITE  [  K  OU  T  .  1 2  i  MOH 
WRITE  fKOUT.5]  c*pr.;"i 
WRITE  (KOuT,6)  fcMlTN 
WRITE  (  K  OUT ,  8  J  E'lDTMP.TMSD 
WRITE  IKOUT.lU  ITAB. SIGMA 
I  F  [  I FTadF I  4  J  )  RETURN 
IF  NET  APE  MJ  .AND.  ISIN.EQ.51!NTP  =  12 
IF ( IF  TAPE (1 J . AND.  I  S I N . NE  .  5  i I NTP  =  5 
IF { iFTAPfi?) I  K«D=INTP 
50  CALL  SETUP 

t  IINTP  .  M  A  X  M U L  3 

CALL  YIELD 

1  t INTP.FISSID. 

C*LL  XPRM 

1  tlNTPJ 

CALL  INDCD1 

1  IfcMlTN  ,HOb  ,KRD  ,TW  I 

IF  (EMITN.l  E.O.’IJ  LMAX  =  0 
CALL  FRATIO 

1  ISlDTMP  , TM  S  n  , MCHN  J 

IF  ( I  FT  aPE  I  3  1  I  GO  TO  :  no 
rewind  iram 

RETURN 

ICO  WHITE  f I  PAH ] 

1  CAPFIS.ALBFnM.i  MA X . E M I TN > r  I  SS  I  D 

WRITE  [ I P  AM ) 

1  INllC,  IRRA.MAXMJL.KRM.MCHN 

WHITE  IIPAMJ 

1  (MULTI  I J ,  I=1,MAXMUL  I 

WRITE  (IPAM) 

1  [NuCLIDlJ] »  OCON I J ' >  AB6GN I J  J » J*l* INUC) 

WRITE  IIPAMJ 

1  IBRANCHIK]  ,Kej ,  IBRAJ 

WRITE  IIPAMJ 

1  IERM(L].JRM(L].L=1.KRM] 

WRITE  IIPAMJ 

1  (BSURKIMJ .EUFIM J ,M=1,MCMNJ 

WRITE  IIPAMJ 

1  I  IT  AC  I  I  ,  J] .FOGRNYI I , JJ , XL  AM  I  I , J) , 1=1,71 , I  SO  I  J1  , J«l,  181 
ENDFILE  IPAM 
REWIND  IPAM 
RETURN 

1 50  READ  IIPAMJ 

1  CAPFIE, ALBFOM,LMAX.EMlTN»FISSID 

READ  IIPAMJ 

1  INUC. IBRA.MAXMUL.KRM, MCHN 

READ  IIPAMJ 

1  (MULTI  I J . I=1,MAXMULJ 

READ  IIPAMJ 

1  INUCL IDl JJ .DCON[ JJ , A8EGNI JJ , J«l. INUCJ 

READ  IIPAMJ 

1  (BRANCHlK ) .Ksi, I  BRA  J 

READ  IIPAMJ 

1  (EPMlLJ. JRMIL J.L=1.KRM] 

READ  IIPAMJ 

1  IbSUBKIMJ ,ECF IHJ ,M*1.MCHNJ 

READ  IIPAMJ 

1  I  I  FAC  f  !,JJ,FOGRNY(I,J!.XLAMIT,Jl,i*i,7l.»SOU).J»l.iei 


'r  A**  l  II* 
Ml  :  '  " 
>'  >  ‘  J  a  ’  ■ 

5  5.  *  ? 

<■' '  v  m 

’ i 9 
MAPI  120 
PAW  1  i?i 
w  AM  1  122 
PAM j  J  ;J 
PAM1  124 
PAM J  125 
°AM1  126 
P AM  1  12  7 
PAMI  1 1 8 
PAM1  129 
PAMi  .,30 
PAM1  131 
PAMI  132 
PAMi  333 
PAMI  134 
PAMI  135 
PAMI  1-36 
PAMi  137 
PAMI  138 
PAMI  139 
PAMI  140 
PAM  3  141 
PAMI  142 
PAMJ  14 J 
PAMI  144 
PAMJ  145 
PAMI  146 
PAMI  147 
PAMI  148 
PAMI  149 
PAMI  150 
PAMI  151 
PAMI  152 
PAMI  153 
PAMI  154 
PAMI  155 
PAMi  156 
PAMI  157 
r'AHi  158 
PAMI  159 
3AM1  160 
I  AMI  161 
P.'Ml  362 
PAMi  163 
PAMi  164 
PAMI  165 
PAMI  166 
PAMI  167 
PAMi  168 
PAMi  169 
PAMI  170 
PAMI  1/1 
PAMI  *72 
PAmj  i?3 


REWIND  IPAM 

PAM1 

174 

80  TO  25 

PAM1 

175 

END 

PAMl 

176 

Si 

0FTC  SUPi  LIST, DECK, M94/2 

SUPI 

0 

SUBROUTINE 

SETUP 

SUPI 

1 

1  IINTP.NAXMULJ 

SUPI 

2 

c 

VERSION  1 

SUPi 

3 

c 

SUPI 

A 

c 

R  C  TOMPKINS  --  US  ARMY  NUCLEAR  DEFENSE  LASS 

SUPI 

5 

c 

SUPI 

6 

CALLED  BY  PAH1 

SUPI 

7 

C 

SUPI 

e 

C 

***** 

*  *  *  •  GLOSSARY  *******  v'*** 

SUPI 

9 

C 

SUPI 

10 

C 

BRANCH [1501 

TABLE  OF  BRANCHING  RATIOS  THAT  LIE  BETWEEN  0  AND  1, 

SUPI 

11 

C 

I.E.i  REPRESENT  NCNTR I V I AL  BRANCHES.  IT  IS  ORDERED 

SUPI 

12 

C 

primarily  by  increasing  values  of  nuclid  and  secon- 

SUPI 

13 

C 

DARIlT  BY  DAUGHTER  POSITION  WITHIN  NUCLID. 

SUPI 

14 

c 

BRAT 

TEMPORARY  storage  for  branching  ratio  read  from  INPUT 

SUPI 

15 

c 

record 

SUPI 

16 

c 

BRS'JM 

SUM  OF  BRANCHING  RATIOS  FOR  A  SINGLE  PARENT 

SUPI 

17 

c 

BNfEST 

TOLERANCE  FOR  COMPARISON  OF  BRSUM  WITH  UNITY 

SUPI 

16 

c 

DATNO 

t INTEGER!  TEMPORARY  STORAGE  FOR  ATOMIC  NUMBER  OF 

SUPI 

19 

c 

Da  JGhTER  READ  FROM  INPUT  RECORD 

SUPI 

20 

c 

DCON (7001 

TABLE  OF  DISINTESAT ion  constants  parallel  TO  NUCLID, 

SUPI 

21 

c 

SET  TO  ZERO  FOR  5TA8l6  NUCLIDES,  (SEC**>-1) 

SUPI 

22 

c 

0 1  S'  4 

t INTEGER]  TEMPORARY  STORAGE  FOR  1S0M6PIC  STATE  OF 

SUPI 

23 

c 

DAUGHTER  READ  FRoF  INPUT  RECORD.  C  FOR  GROUND  STATE, 

SUPi 

24 

c 

1  AND  2  FOR  EXCITED  STATES. 

SUPI 

25 

c 

DMASS 

[INTEGER]  TEMPORARY  STORAGE  FOR  MASS  NUMBER  OF 

SUPI 

26 

c 

DAUGHTER  READ  FROM  INPUT  RECORD 

SUPi 

27 

c 

HLIFE 

FRACTIONAL  PART  OF  HALF-LIFE  READ  FROM  INPUT  RECORD 

SUPi 

26 

c 

IBRA 

NUMBER  OF  ENTRIES  IN  ARRAY  BRANCH 

SUPI 

29 

c 

I  BOAT 

ASSIGNED  GOTO  PARAMETER  FOR  EXISTENCE  OF  BRANCHING  ON 

SUPi 

30 

c 

RECORD  BEING  PROCESSED 

SUPI 

31 

c 

IEXP 

CHARACTERISTIC  OF  HALF-LIFE  READ  FROM  INPUT  RECORD 

SUPI 

32 

c 

IN 

WORD  POSlTiON  INDICATOR  FOR  LOCATING  DAUGHTERS  IN 

SUPI 

33 

c 

PACKED  WORD,  USED  AS  INDEX  OF  ARRAY  KDLT. 

SUPI 

34 

c 

IND 

INDEX  OF  INSERTION  POINT  IN  ARHAY  NUCLID  FOR  NEW  ENTRYSUPl 

35 

c 

INPUT 

NAMELIST  NAME  FOR  PRINTOUT  OF  INPUT  RECOPD 

SUPi 

36 

c 

INTP 

INPUT  FILE  NUMBER,  NORMALLY  CORRESPONDS  70  SYSIN1 

SUPi 

37 

c 

JNUC 

NUMBER  OF  ENTRIES  IN  ARRAYS  NUCLID  AND  DcON 

SUPi 

36 

c 

IUNIT 

UNIT  OF  HALF-LIFE  READ  FROM  INPUT  RECORD 

SUPI 

39 

c 

1  -  SECONDS 

SUPi 

AO 

c 

2  -  MINUTES 

SUPI 

41 

c 

S  -  HOURS 

SUPI 

42 

c 

4  «  DAYS 

SUPI 

43 

c 

5  -  YEARS 

SUPI 

44 

c 

ISlST 

ASSIGNED  GOTC  PARAMETER  FOR  SPECIAL  HANDLING  OF  FIRST 

SUPi 

45 

c 

INPUT  RECORD 

SUPI 

46 

c 

t  Stop 

ASSIGNED  GOTO  PARAMETER  TO  SIGNAL  A  DISABLING  ERROR 

SUPI 

47 

c 

FOR  PANIC  EXIT  AFTER  PROCESSING 

SUPi 

*8 

c 

itrunc 

TEMPORARY  STORAGE  FOR  RIGHT-MOST  5  OCTAL  POSITIONS  OF 

SUPI 

49 

c 

NUCLID 

SUPi 

50 

c 

J8RAT 

ASSIGNED  GOTO  PARAMETER  SIMILAR  TO  I  BRAT 

SUPI 

51 

c 

K  2ND 

ASSIGNED  UOTO  PARAMETER  FOR  ACTION  TO  BE  TAKEN  IF 

SUPI 

52 

c 

FIRST  SEARCH  FOR  DAUGHTER  FAILS 

SUPI 

53 

**» 

K3PD 

ASSIGNED  SOTO  PARAMETER  FOR  A9TI0N  TO  BE  TAKEN  IF 

SUPI 

A4 

c 

SECOND  SEARCH  FOR  DAUGHTER  FAILS 

SUPI 

55 

c 

kbr 

COUNTER  FDR  ARRAY  BRANCH  DURINL  SCANS  OF  ARRAY  NUCLID 

SUPi 

56 

2X4 

-*  % 

* 

* 


000000000  0  0000C3  000000000000000000000000 


KEND 

KOUT 

KST 

ktyp 

LAMBDA 

MAX3RA 

MAXMUL 

MAXNUC 

maxpnt 
MULT  1 11 J 

NAMDAU 
NAmPAR 
NPRNT  t  20  ] 
NTIMES 
NUCL I D [  70  0  ] 


PATNO 


PISOM 


PHASS 


do-terminator  FOR  DAUGHTER  SEARCH  SUPl 

OUTPUT  FILE  NUMBER »  NORMALLY  CORRESPONDS  TO  SYSOUl  SUPl 
DO- I N I T I  A  TOR  FOR  DAUGHTER  SEARCH  SUPl 

INDICATOR  FOR  TYPE  OF  NUCLEAR  TRANSITION  ON  CURRENT  SUPl 
INPUT  RECORD  SUPl 

(READ  TEMPORARY  STORAGE  FOR  DISINTEGRATION  CONSTANT  SUPl 
OF  CURRENT  Input  PARENT.  (SEC**-!)  SUPl 

DIMENSION  OF  ARRAY  BRANCH  SUPl 

DIMENSION  OF  ARRA v  MULT,  MUST  NOT  EXCEED  11  ON  I8M7094SUP1 
DIMENSION  OF  ARRAYS  NUCLID  AND  DCON  SUPl 

DIMENSION  OF  ARRAY  NPRNT  SUPl 

MULTIPLIERS  FOR  ACCESS  TO  OCTAL  POSITIONS  OF  WORD,  SUPl 
MULT  (  1  ]  =  0«*I  SUPl 

PACKED  NAME  OF  DAUGHTER  NUCLIDE  SUPl 

PACKFD  NAME  OF  PARENT  NUCLIDE  SUPl 

LOGICAL  ARRAY  TO  CONTROL  PRODUCTION  OF  OUTPUT  RECORDS  SUPl 
COUNTER  FOR  ITERATIONS  OF  DAUGHTER  SEARCH  SUPl 

master  table  of  nuclides,  the  left-most  7  octal  posi-supi 

TI0NS  CONTAIN  THE  MASS  NUMBER  AND  ATOMIC  NUMBER  IN  SUPl 
ASCENDING  ORDER  AND  THE  ISOMER  NUMBER  IN  DESCENDING  SUPl 
ORDER.  THE  5  RIGHT-MOST  POSITIONS  CONTAIN  DAUGHTER  SUPl 
IDENTIFICATION.  THE  DIGIT  POSITION  CONTAINS  THE  IN-  SUPl 
DEX  REQUIRED  ON  MULT  TO  ACCESS  THE  LEFT-MOST  VACANT  SUPl 
POSITION.  INITIALLY  THE  MULT  1 2  J  TO  MULTI4)  POSITIONS  SUPl 
ARE  OCCUPIED  8 Y  KTYP  VALUES.  FINAI.IY  THEY  CONTAIN  THESUPl 
INCREMENTS  OF  THE  NUCLID  INDEX  REUU I  RED  TO  FIND  THE  SUPl 

daughters,  if  one  of  these  is  a  decrement,  its  posi¬ 
tion  IS  TAGGED  IN  POSITION  MUL  fill.  INITIALLY  AuL 
entries  are  set  negative,  but  at  the  end  a  minus  sign 
designates  the  beginning  OF  A  SUBCHAIN. 

{INTEGER]  TEMPORARY  STORAGE  FOR  THE  ATOMIC  NUMBER  OF 
parent  rfad  from  input  record 

tINTFGER]  TEMPORARY  STORAGE  OF  ISOMERIC  STATE  Of 
parent  read  from  input  record,  see  disom. 

(INTEGER]  TEMPORARY  STORAGE  FOR  THE  HASS  NUMBER  OF 
P A R t N T  READ  FROM  INPUT  RECORD 


COMMQN/FISHIN/ 

1  A8EGN  17001 

?  .dcon  r  7  o  n  j 

3  ,MULT  (11) 

COMPON/UTILTY/ 

1  XOUT 


, A8UND0 I  700  j 
,  I9RA 

.NUCI.IU  1  700  J 


,N3RNT  (15!. 


,  BRANCH [ 130 ) 
.  INUC 


,CAPF  IS 
.MAXNUC 


INTEGER  DATNO, DISOM, 0M ASS, PATNO, PI  SOM, PMASS 
LOGICAL  NPc  T, FIRST 

real  lambda 
namelist  /input/ 

1  PHASS.PATNO.PISOM.HLIFE, i exp, iunit,dmass,datno,disom,brat 

1001  FORMAT  (29H1 INTERMEDIATE  OUTPUT  OF  SETUP//) 

1002  FORMAT  (  6X4H  I  NUC7X6HNUCL  I  DUX4HDC0N/ ) 

1003  FORMAT  ( 6X  I  3, 5X01 2 , 5X1PE10 . 3 ) 

1004  FORMAT  I22H1F1NAL  OUTPUT  OF  5STUP//I 

1005  FORMAT  C///6X4HIBRA5X6H8RANCH/ ! 

1006  FORMAT  (6Xl3.5xr8.5J 


SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 

SUPl 


57 

58 

59 

60 
61 
62 

63 

64 

65 

66 
67 
66 

69 

70 

71 

72 

73 

74 

75 

76 

77 
70 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 
93. 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 
107 
106 

109 

110 
111 
112 

113 

114 

115 

116 
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c 

SUP1 

117 

cc 

INITIALIZE  variables 

SUP1 

118 

c 

NUCLIDE  COUNTER 

SUP1 

119 

INUC  •  9 

SUP1 

120 

c 

BRANCHING  RATIO  COUNTER 

SUP1 

121 

IBRA  ■  0 

SUPl 

122 

c 

tolerance  ON  Sum  of  branching  ratios 

SUPl 

123 

bbtest  •  0.0001 

SUPl 

124 

ASSIGN  23  TO  ISlST 

SUPl 

125 

ASSIGN  300  TO  ISTOP 

SUPl 

126 

ASSIGN  1212  TO  ISFULL 

SUPl 

127 

MAXBRA  •  130 

SUPl 

128 

MAXMUL  •  11 

SUPl 

129 

HAXNUC  ■  700 

SUPl 

130 

TOL  •  1.6-15 

SUPl 

131 

c 

SUPl 

132 

c 

SUPl 

133 

cc 

INITIALIZE  ARRAYS 

SUPl 

134 

DO  1  I  •  1, HAXNUC 

SUPl 

135 

NUCLISt!)  *  0 

SUPl 

136 

1  DCONIM  •  0.0 

SUPl 

137 

DO  2  J  •  1. MAXBRA 

SUPl 

138 

2  BRANCH! J]  *  0.0 

SUPl 

139 

c 

SET  UP  HORD-POSITION  MULTIPLIERS 

SUPl 

140 

MULTI1I  »  8 

SUPl 

141 

DO  .1  K«2. MAXMUL 

SUPl 

142 

3  MULVIK1  «  MULTI11*MULTIK-1I 

SUPl 

143 

c 

SUPl 

144 

c 

READ  AN  INPUT  RECORD  AFTER  CHECK  OF  AVAILABLE 

SPACE 

SUPl 

145 

c 

SUPl 

146 

10  IF  CINUC.EQ. HAXNUC]  ASSIGN  1308  TO  ISFULL 

SUPl 

147 

READ  IINTP.il] 

SUPl 

148 

1  pmass.pisom.patno.hlife.iunit.iexp.brat 

.DMASS.DISOM.DATNO 

SUPl 

149 

11  FORMAT 

SUPl 

150 

1  110X313#8XF9,4»1X2I3»3XF7«5.7X3I31 

SUPl 

151 

c 

SUPl 

152 

IF  INPRNTUJI  WRITE  IKOUTHNPUT! 

SUPl 

153 

CHECK  FOR  END-OF-FUE  SENTINEL 

SUPl 

154 

IF  IPMAISU301.200.12 

SUPl 

155 

12  GO  ’0  ISFULL. U212.1308J 

SUPl 

156 

c 

SUPl 

157 

C 

RESET  PARAMETERS  FOR  NEW  RECORD 

SUPl 

158 

C 

SUPl 

159 

1212  LAMBDA  ■  o;o 

SUPl 

160 

KTVP  •  0 

SUPl 

161 

ASSIGN  10  TO  IBRaT 

SUPl 

162 

ASSIGN  10  TO  JBRAT 

SUPl 

163 

IM  *  4 

SUPl 

164 

CHECK  FOR  EXISTENCE  8F  DAUGHTER 

SUPl 

165 

IF  IDMASSU301.22.13 

SUPl 

166 

C 

SUPl 

167 

CHECK  THE  HALF-LtrE 

SUPl 

168 

13  tF  CHLIFEU301.1301.14 

SUPl 

169 

1«  LAMBDA  •  0j693147/TIMSECtHLlFi,;UNlT.IEXPt 

SUPl 

170 

CHICK  THE  BRANCHING  RATIO  AND  MARK  THE  EXISTENCE 

OF  A  BRANCH 

SUPl 

171 

IF  IBRATUJ0U5. 16.1301 

SUPl 

172 

c 

SUPl 

173 

15  ASt^lBN  112  TO  URAT 

SUPl 

174 

Alt  till  133  TO  wBRAT 

SUPl 

175 

CC 

alTlRNINE  THE  TTPS  OF  TRANSITION 

SUPl 

176 

ni> 


o  o  o  o  o  o  o 


BETA  emission 

16  IF  IDATNO.FQ. [PATNOMl ,  AND . DMASS , EQ . PMASS J  GO  TO  17 

ISOMERIC  TRANSITION 

IF  IDATNO.EQ.PATNO.AND.DMASS.EO.PMASS)  GO  to  18 
NEUTRON  PLUS  BETA  EMISSION 

IF  tOATNO.EO.  IPATNOnl . AND . DMASS , EQ.  IPMASS-111  GO  TO  19 
POSITRON  EMISSION  OR  ELECTRON  CAPTURE 
I F  IDATNO.EO. (PATNO»ll . AND . DMASS , EQ . PMASS |  GO  TO  20 
NEUTRON  EMISSION 

IF  IDATNO. EQ.PATNO. AND. OMASS, EO. tPMASS-111  GO  TO  21 
ERROR  TRACE  FOR  illegal  TRANSITION 
GO  TO  1301 

indicate  the  type  of  transition 

17  KtYP  »  DISOM  «■  1 
GO  TO  22 

18  KTYP  »  DISOM  *  3 
GO  TO  22 

19  KTYP  *  6 
GO  TO  22 

20  KTYP  »  7 
GO  TO  22 


21  GO  TO  1301 


CODE  INSERTION  POINTS 


PACK  THE  PARENT  NAME  INTO  THE  7  LOWEST  OCTAL  POSITIONS  OF  NAHPAR 

22  NAMPAR  •  PMASS'MULTHl  ♦  PaTNO*MULT  « 1 ) 

C  IF  THIS  IS  THE  FIRST  RECORD  GO  DIRECTLY  TO  111  AFTER  CHECKING  IT 
GO  TO  IS1ST, (23,1001 

23  ASSIGN  103  TO  ISlST 
GO  TO  111 

C 

C  FIND  OUT  WHERE  THE  NEW  ENTRY  BELONGS  IN  THE  NUCLIDE  TABLE  WHILE 
C  KEEPING  TRACK  OF  LOCATION  IN  THE  BRANCHING  RATIO  TABLE 
100  K8R  «  0 

DO  110  I  *  1 , I NUC 
I  NO  «  I 

NUCTRY  »  lABStNUCLIOtm 
C  INCREMENT  THE  INBEX  OF  BRANCH  IF  REQUIRED 
KBR  *  KBR  ♦  4  -  MODINUCTRY.MULTll J ) 

IFINAMPAR/MULTU 1 -NUCTR Y/MULT t 6 M 1 31 , 121 . 110 

110  CONTINUE 
C 

C  THE  NEW  ENTRY  BELONGS  NEXT  fN  SEQUENCE.  INCREMENT  THE  NUCLIDE 
COUNTER  AND  PUT  NAME  IN  HIGH  ORDER  POSITIONS  OF  NEW  WORD. 

111  I NUC  *  INUC  ♦  1 

NUCLIDIINUCJ  *  * ( ( NAHPAR  •  P I  SOM } *MULT ! 5 !  ♦  KTYP*NULT l 4 1  ♦  41 
DCONUNUCJ  «  LAM0OA 
GO  TO  I  BRAT • 110.112! 

C 

C  ADD  NEW  BRANCHING  RATIO 

112  IBRA  «  I  BRA  *  1 
BRANCH! IBRA)  ■  BRAT 

C  DECREMENT  THE  BRANCH  INDICATOR 

NUCLIDIINUCJ  «  NUCLIDIINUCJ  ♦  1 
GO  TO  10 


SUP1  177 
SUP1  178 
SUP1  179 
SUP1  180 
SUP1  161 
SUP1  182 
SUPl  183 
SUPl  184 
SUPl  185 
SUPl  186 
SUPl  187 
SUPl  188 
SUPl  189 
SUPl  190 
SUPl  191 
SUPl  192 
SUPl  193 
SUPl  194 
SUPl  195 
SUPl  196 
SUPl  197 
SUPl  198 
SUPl  199 
SUPl  200 
*  SUPl  201 
SUPl  202 
*  SUPl  203 
SUPl  204 
SUPl  205 
SUPl  206 
OFFSUP1  207 
SUPl  208 
SUPl  209 
SUPl  210 
SUPl  211 
SUPl  212 
SUPl  213 
SUPl  214 
SUPl  215 
SUPl  216 
SUPl  217 
SUPl  218 
SUPl  219 
SUPl  220 
SUPl  221 
SUPl  222 
SUPl  223 
SUPl  224 
SUPl  225 
SUPl  226 
SUPl  227 
-UP1  228 
SUPl  229 
SUPl  230 
SUPl  231 
SUPl  232 
SUPl  233 
SUPl  234 
SUPl  235 
SUPl  236 


217 


c 

THE  HIM  ENTRY  IS  EQUAL  TO  OR  ISOHiRIC  KITH  AN  OLD 

ONE.  ISOMERS 

NUSTSUSn 

23? 

c 

8i  ORDERED  IN  D*E*8*C*S*N*D*1*N*0  SEQUENCE 

SUPl 

236 

111  IF  tlABICNUCLimiNOn/MULVlSI  •  INAHPAR  ♦  PISOHM  131.141.122 

SUPl 

239 

c 

IF  THIS  It  THE  END  Or  THE  TABLE  WE  MUST  STOP  HERE 

AND  GO  TO  111 

SUPl 

240 

122  IF  UND.EQUNUCJ  GO  TO  111 

SUPl 

241 

I NO  a  IND  ♦  1 

SUPl 

242 

IF  IlASStNUCLlK IND3 )/HULf (6) •GY .NAMPAR/NMLT till 

GO  TO  131 

SUPl 

243 

KSR  a  KBR  ♦  4  •  HOD  1 1 ABS INuCLID ( IND) I .MULT  III) 

SUPl 

£44 

GO  TO  111 

SUPl 

245 

c 

SUPl 

246 

c 

THE  NEW  ENTRY  MUST  BE  I *N*S*E*R*T*E*D  ABOVE  IND. 

MOVE  THE 

SUPl 

247 

c 

SUCCEEDING  ENTRIES  DOWN  TO  MAKE  ROOM. 

SUPl 

246 

Hi  tNUC  •  INUC  ♦  1 

SUFI 

2'.9 

JST  a  IND  ♦  1 

SUPl 

250 

JS  *  JST  ♦  INUC 

SUPl 

251 

DO  140  J  «  JST. INUC 

SUPl 

252 

JJ  ■  JS  *  J 

SUPl 

253 

NUCLIDI JJ]  "  NUCLIDUJ*!! 

SUPl 

254 

140  DCONIJJ]  •  OCON I JJ-1 ] 

SUPl 

255 

c 

SUPl 

256 

c 

NON  INSERT  THE  NEW  ENTRY 

SUPl 

257 

132  NUCLIDtlNDI  *  *  I INAMPAR  ♦  PISQMJ*  (ULU51  *  KTYP*MULT 1 4 }  *  4] 

SUPl 

256 

DCONIINDI  •  LAMBDA 

SUPl 

259 

GO  TO  JBRAT. (10.1333 

SUPl 

260 

c 

SUPl 

261 

c 

DECREMENT  THE  8RANCH  INDICATOR 

SUPl 

262 

133  NUCLIDIINOI  a  NUCLIDUND)  *  1 

SUPl 

263 

CHECK  POSITION  IN  BRANCHING  RATIO  TABLE.  AND  GO  TO  134 

IF  INSERTION 

IS  SUPl 

264 

C 

REQUIRED. 

SUPl 

265 

134  IF  (KBR.LT. I BRA )  GO  TO  135 

SUPl 

266 

C 

OTHERWISE  EXTEND  THE  TABLE. 

SUPl 

267 

(BRA  a  IBRA  -  1 

SUPl 

268 

BRANCHI1BRAI  a  BRAT 

SUPl 

269 

00  TO  10 

SUPl 

270 

C 

SUPl 

271 

135  JBRA  a  IBRA  *  1 

SUPl 

272 

C 

hake  rooh  in  the  table. 

SUPl 

273 

KST  a  K8R  ♦  1 

SUPl 

274 

KS  a  KST  ♦  IBRA 

SUPl 

275 

BO  134  K  a  KST. IBRA 

SUPl 

276 

KK  a  KS  •  K 

SUPl 

277 

136  8RANCHIKK1  a  BRANCHtKK.il 

SUPl 

278 

BRANCHIKBRJ  a  BRAT 

SUPl 

279 

GO  TO  10 

SUPl 

280 

C 

SUPl 

281 

C 

THE  NEW  ENTRY  REPRESENTS  ANOTHER  BRANCH  OF  AH  OLD 

ENTRY. 

SUPl 

262 

C 

SET  POSITION  INDICATOR. 

SUPl 

263 

141  IN  a  HOD 1 1 ABSINUCL I D 1 1 ND 1 1 .HULT ( 1 3 1 

SUPl 

284 

NDAUT  a  4  •  IH 

SUPl 

?55 

CHECK  rOK  DUPLICATION 

SUPl 

286 

IF  l»DAUT  ♦  KTYPJ1302. 1303, 142 

SUPl 

267 

142  INDICT  «  HOD  IS ABS I NUCw ID  UNO  1 1 . MULT 1 53 3 

SUPl 

268 

DO  150  L  ■  1. NDAUT 

SUPl 

289 

LM  a  5  -  L 

SUPl 

290 

IF  (INDICT/MULTiLMJ.Sa.KTYPJ  SO  TO  1303 

SUPl 

291 

150  CONTINUE 

SUPl 

292 

C 

SUPl 

293 

CHICK  AGREEMENT  Of  DIUNTEGAATION  CONSTANTS 

SUPl 

294 

IF  tl*N8UAtN!,BC0N{|NB])  GO  TO  1364 

SUPl 

295 

C 

INT8R  THE  NEW  TRANSITION  AND  DECREMENT  THE  POSITION  COUNTER. 

SUPl 

296 

tti 


n 


#■*> 


NUCL I D [ 1  NO  1  =  NUCLIDtlNDJ  -  KTyP*MULT! IH ) 

GO  back  to  store  the  branching  ratio 

GO  TO  134 


♦  1 


c 

c 

cc 

cc 

c 

c 

c 


NOW  THAT  ALL  THE  INPUT  RECORDS  have  BEEN  READ,  IT  IS  T I  ME  TO  SET 
THE  RELATIONS  BETWFEN  THE  PARENT  AND  DAUGHTER  INDICES. 


WRITE  INTERMEDIATE  OUTPUT  IF  REQUESTED 
200  I F [ .NOT . NPRNT 1 2  J 1  GO  TO  2000 
WRITE  [KOUT. 10011 
WRITE  IKOUT, 1002J 
t  KOUT ,1003] 

0 

.TRUE. 


WRITE 
2000  KBR  s 
FIRST 


I  lO.NUCLIOIIOJ.DCONI 10), 10  =  1, INUC) 


C  BEGIN  THE  MAIN  LOOP  THROUGH  THE  NUCLIDE  TABLE. 

DO  250  I  *  1 , I NUC 
0RSUM  =0.0 
ASSIGN  203  TO  NSO 

C  UNPACK  THE  NUCLIDE  RORD 

C  ENSURE  THAT  SUCCESSIVE  DISINTEGRATION  CONSTANTS  'RE  NOT  EUUAL 
IF  (FIRST]  GO  TO  2743 
FACTC  =  DCONII)  -  DCON I  I  - 1 1 
IF  (ABSIFACTC) .GE.TOU  UL  TO  274 
IF  [FACTO  2741.2742,2742 

2741  DCON 1 1 -1 }  =  DCONfl-lJ  ♦  TOL 
GO  TO  274 

2742  DCONII)  =  DCON  C  1 1  ♦  TOL 
GO  TO  274 

2743  FIRST  =  .FALSE. 

274  NAME  =  I  ASS  I NUCL I D (I ] ] 

ITRUNC  «  M0DINAMF.MULTI5] J 
MI  =  MODt  ITRUNC, MULTUJ  ] 

NEWNAM  ■  {NAME/MULTI5)]<»MULT[5)  ♦  Ml 
NBR  *  4  -  Ml 

CHECK  for  EXISTENCE  of  DAUGHTERS 
IF (  ITRUNC. FQ. Ml  I  GO  TO  250 
IF  (NBRI1305.201.202 
201  NBR  x  1 

RRSUM  =  1.0 
ASSIGN  204  TO  NGO 

C 

CONSIDER  EACH  BRANCH  IN  TURN 
° 02  DO  210  J  *  1.N8R 
0 

-J 

ITRUNC7MULT( IHJ 
•  MODt ITRUNC, MULTIlMlJ 
GO  TO  NGO, (203,204 J 

203  KBR  =  KBP  ►  1 

SUM  the  BRANCHING  RATIOS  FOR  CHECKING 
BPSUM  8  8RSUM  ♦  BRANCHIKBRJ 

BRANCH  ON  THE  TRANSITION  MODE  TO  SYNTHESIZE  THE  DAUGHTER  NAME 

204  GO  TO  (211, 211, 212, 212, 212, 213, 214, 2151. KTYP 

BETA  EMISSION 

211  NAMDAU  «  (NAME/MULT(6I  I*MULTm  ♦  MULTIl)  ♦  KTYP  -  1 
SET  DO  PARAMETERS  FOR  SEARCH  IN  NEXT  1  ENTRIES 
KST  «  I  ♦  1 


NTIMES 
IN  8  5 
KTYP 
ITRUNC 


SUP1  297 
SUPl  298 
SUPl  299 
SUP1  300 
SUPl  301 
UP  SUPl  302 
SUPl  303 
SUPl,  304 
SUPl  305 
SUPl  306 
SUPl  307 
SUPl  308 
SUPl  309 
SUPl  310 
SUPl  311 
SUPl  312 
SUPl  313 
SUPl  314 
SUPl  315 
SUPl  316 
SUPl  317 
SUPl  318 
SUPl  319 
SUPl  320 
SUPl  321 
SUPl  322 
SUPl  323 
SUPl  324 
SUPl  325 
SUPl  326 
SUPl  327 
SUPl  323 
SUPl  329 
SUPl  330 
SUPl  331 
SUPl  332 
SUPl  333 
SUPl  334 
SUPl  335 
SUPl  336 
SUPl  337 
SUPl  338 
SUPl  339 
SUPl  340 
SUPl  341 
SUPl  342 
SUPl  343 
SUPl  344 
SUPl  345 
SUPl  346 
SUPl  347 
SUPl  348 
SUPl  349 
SUPl  350 
SUPl  351 
SUPl  352 
SUPl  333 
SUPl  334 
SUPl  355 
SUPl  356 


219 


oo  o  o  oo  o  o  oo 


c 


c 

c 

c 


c 


KEND  ■  KST  ♦  6 

SIT  MODI  FOR  FURTHER  SEARCHES 
ASS  SON  221  TO  K2N0 
ASSIGN  219  TO  KJRD 
60  .TO  216 

HOMERIC  TRANSITION 

212  NAHDAU  •  {NAME/MULT (6) I *MUL T II)  *  KTYP  -  S 
SET  DO  PARAMETERS  FOR  SEARCH  IN  NEXT  2  ENTRIES 
KST  «  I  ♦  1 
REND  •  KST  *1 

SIT  NODE  FOR  FURTHER  SEARCHES 

ASSI6N  122  TO  K2N0 
ASSIGN  221  TO  K3RD 
80  TO  216 


NEUTRON  PLUS  SETA  EMISSION 

213  NAUDAU  ■  {NAME/MuLTl6JJ*MULTm  •  MULTI4J  *  MULT  f  1  i 

set  do  parameters  for  search  in  preceding  entries 

KST  «  1 
KEND  «  I  -1 

SET  MODE  FOR  FURTHER  SEARCHES 
ASSIGN  223  TO  K2ND 
ASSIGN  219  TO  K3RD 
GO  TO  216 


POSITRON  EMISSION  OR  ELECTRON  CAPTURE 

214  NAMDAU  ■  INAME/MULT 1 6 1  1 *MULT III  -  MULTI1I 
SET  DO  PARAMETERS  FOR  SEARCH  IN  PREVIOUS  SEVEN  ENTRIES 

KEND  ■  I  -  1 
KST  »  KEND  •  6 

SET  MODE  FOR  FURTHER  SEARCHES 
ASSIGN  221  TO  K2N0 
ASSIGN  219  TO  K3RD 
GO  TO  216 

********  CODE  INSERTION  POINTS  *  *  * 

215  GO  TO  210 

C******************* 

c 

c  SEARCH  FOR  THE  DAUGHTER  IN  THE  NUGLiOE  TABLE 

216  NTIMES  •  NTIMES  *  1 
DO  220  K  >  KST. KEND 

IF  INAM&AU.EO. lARS(NUCLlOfK) I/HULTI5I I  GO  TO  225 

220  CONTINUE 
C 
C 

c 

217 

221 


C 

222 


C 

213 


search  failed,  try  longer  search  if  possible 

00  TO  1217. 210. 2191. NTIMES 

GO  TO  K2ND. 1221,222,223) 

KST  «  l 
KEND  *  I NUC 
80  TO  216 

KST  «  KEND  *  1 
KIND  «  KST  ♦  4 
80  TO  216 

KST  *  KIND  ♦  1 
KIND  »  I NUC 


SUP1  357 
SUP1  350 
8UP1  359 
SUP1  360 
SUP1  361 
SUPl  362 
SUPl  363 
SUPl  364 
SUPl  365 
SUPl  366 
SUPl  347 
SUPl  36S 
SUPl  369 
SUPl  370 
SUPl  371 
SUPl  372 
SUPl  373 
SUPl  374 
SUPl  375 
SUPl  376 
SUPl  377 
SUPl  38 
SUPl  379 
SUPl  380 
SUPl  381 
SUPl  362 
SUPl  303 
SUPl  384 
SUPl  305 
SUPl  386 
SUPl  387 
SUPl  388 
SUPl  389 
SUPl  390 
SUPl  391 
SUPl  392 
-SUPl  393 
SUPl  394 
SUPl  395 
SUPl  396 
SUPl  397 
SUPl  398 
SUPl  399 
SUPl  400 
SUPl  401 
SUPl  402 
SUPl  403 
SUPl  40 < 
SUPl  405 
SUPl  406 
SUPl  487 
SUPl  408 
SUPl  *89 
SUPl  410 
SUPl  411 
SUPl  412 
SUPl  413 
SUPl  414 
SUPl  415 
SUPl  418 


280 


Ju*i. 


o  n  o  o  o  o 


GO  TO  ?16  SUPl 

C  SUPl 

218  GO  TO  K3RD, (219*221 )  SUPl 

C  DAUGHTER  IS  MISSING  SUPl 

219  GO  TO  1306  SUPl 

C  SUPl 

COMPUTE  INCREMENT  or  DECREMENT  OF  PARENT  INDEX  TO  UNO  DAUGHTER#  AND  SUPl 
C  MAKE  SURE  IT  DOES  NOT  EXCEED  7  SUPl 

225  I  NCR  »  K  -  I  SUPl 

IF  UABStINCR) .OT.7J  GO  TO  1306  SUPl 

C  REVISE  THE  NUCLIDE  NAME  SUPl 

NEWNAM  8  NEWNAM  ♦  I ABS 1 1  NCR } *MULT IIM i  SUPl 

C  MARK  THE  POSITION  IF  IT  BE  A  DECREMENT.  SUPl 

IF  1 1  NCR  1 226#  227 .227  SUPl 

226  NEWNAM  t  NEWNAM  ♦  I M*MULT  1 1 J  SUPl 

227  NUCLIDIII  =  I S I  ON  I NEWNAM,  NUCL  I  D I  III  SUPl 

c  mark  the  daughter  as  n*o*t  the  beginning  of  a  subchain.  supi 

NUCLIDIKJ  =  IABSINUCLIDIK};  SUPl 

210  CONTINUE  SUPl 

C  SUPl 

CHECK  WHETHER  BRANCHING  RATIOS  ADD  UP  TO  1.  SUPl 

•r  I ABStBRSUM-1.0 I .GT.BRTfcST]  GO  TO  1307  SUPl 

C  SUPl 

250  CONTINUE  SUPl 

C  SUPl 

IF  [ . NOT . NPRNT 1311  GO  TO  2500  SUPl 

WHITE  (KOUT, 10041  SUPl 

WRITE  IKOUT.IOO?]  SUPl 

WRITE  IKOUT # 1003 )  IIO.NUCLIDt 10) ,DCON| 1 0 1 # IOel, INUC)  SUPl 

WHITE  (KOUT  # 1006 ]  SUPl 

WRITE  IKOUT, 1006!  (  Kl.BRANCHflOl# IO»l, IBRA!  SUPl 

2500  GO  TO  ISTOP# (99.300)  SUPl 

300  RETURN  SUPl 

SUPl 

********  ERROR  FORMATS  **********  SUPl 

SUPl 

1351  FORMAT  (37H0FAULTY  INPUT  RECORD  HAS  BEEN  OMITTED//)  SUPl 

135?  FORMAT  I 22HUKTYP  ♦  NDAUT  NEGATIVE//)  SUPl 

1353  FORMAT  I49H0DUPLICATE  INPUT  RECORD  HAS  BEEN  OMITTED//!  SUPl 

1354  FORMAT  I7H0DCON,  1PE10.3.13H  FOR  NUCLID,  012, 27H  INCONSISTENT  WlTSUPl 

1H  LAMBDA.  1PE10.3//J  SUPl 

1355  FORMAT  (21HHT00  MANY  DAUGHTERS,  0121  SUPl 

1356  FORMAT  l 11HGDAUGHTER .  07.28H  NOT  FOUND  OR  INCR  EXCEEDS  7]  SUPl 

1357  FORMAT  I 23H08RANCH I NG  RATIOS  FOR,  012, ?0H»  DO  NOT  ADD  UP  TO  1)  SUPl 

135ft  FORMAT  (40H0niMfcNS!ON$  OF  NUCLID  HAVE  BEEN  EXCEEDED!  SUPl 

SUPl 

********  error  traces  **********  *sut  i 

«jpi 

1301  WRITE  IKOUT, 13511  SUPl 

1310  WRITE  IKOUT, INPUT!  SUPl 

GO  TO  10  SUPl 

C  SUPl 

1302  WRITE  IKOUT, 1352J  SUPl 

ASSIGN  99  TO  'STOP  SUPl 

GO  TO  1310  SUPl 

C  SUPl 

1303  WRITE  IKOUT, 1353)  SUPl 

GQ  TO  1310  SUPl 

C  SUPl 

1304  WRITE  (KOUT, 1354)  DCON 1 1  NO  I , MUCl I  0 i I  NO  I , LAMBDA  SUPl 


417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 
143 

444 

445 

446 

447 
<48 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 


221 


ASSMN  09  10  f STOP 

SUPl 

477 

00  TO  1310 

SUPl 

478 

C 

SUPl 

479 

1305  WRITE  IKOUT 1 1355  J  NUCLTDt  t J 

SUPl 

450 

ASSIGN  99  TO  ISTOP 

SUPl 

461 

80  TO  250 

SUPl 

482 

C 

SUPl 

463 

1306  WRITE  (KOUT. 1356!  NAMDAU 

SUPl 

484 

ASSIGN  99  TO  ISTOP 

SUPl 

465 

80  TO  210 

SUPl 

486 

C 

SUPl 

487 

1307  WRITE  (KOUT. 1357!  NUCU l 0 ( t 1 

SUPl 

488 

ASSIGN  99  TO  ISTOP 

SUPl 

489 

00  TO  250 

8UP1 

490 

C 

SUPl 

491 

1300  WRITE  IKOUT. 1358! 

SUPl 

492 

ASSIGN  99  TO  ISTOP 

SUPl 

493 

00  TO  1212 

SUPl 

494 

C 

SUPl 

495 

99  CALL  D'JHP 

SUPl 

496 

STOP 

SUPl 

497 

C 

SUPl 

498 

END 

SUPl 

499 

S18FTC  YlDl  LIST, DECK. H94/2 

YLDl 

0 

SUBROUTINE  YIELD 

YLDl 

1 

1  flNTP.FISSlDj 

YLD1 

2 

C  VERSION  1 

YLD1 

3 

C  DC  TOMPKINS  —  US  ARKY  NUCLEAR  DEFENSE  LABS 

YLDl 

4 

C  14  SEPTEMBER  1«66 

YLD1 

5 

C 

YLDl 

6 

CALLED  By  PAM1 

YLDi 

7 

C 

YLDl 

8 

+  *  *  * 

*  YLDl 

9 

C 

YLDI 

10 

C  ABEQNI700J  INITIAL  FISSION  PRODUCT  ABUNDANCES  IN 

ATOHS/IOOOO 

YLDl 

11 

C  FISSIONS  PARALLEL  TO  NPARNI I 

YLDi 

12 

C  FIS11D  TYPE  OF  FISSION  REQUESTED  BY  USER 

YLDi 

13 

C  FISTYPI61  TYPES  OF  FISSION  C0RRESP0NDIN8  TO  DATA 

FIELDS  ON 

YLDI 

14 

C  FISSION  YIELD  CAROS 

YLDI 

15 

C  FYLDIN  FISSION  YIELD  ON  INPUT  CARD  IVIELD) 

YLDI 

16 

C  NSTAT  ISOMER  NUMBER  ON 

YLDi 

17 

G  FISSION  YIELD  CARD  I  YIELD! •  CF.  LISOM 

YLDI 

18 

C  ERM  CARD  IXPRM)  ► 

YLDI 

19 

C  GROUND  STATE  0  OR  2 

YLDI 

20 

C  EXCITED  STATE  1 

YLDI 

21 

C 

YLDI 

22 

#  #  #  # 

*  YLDI 

23 

c 

YLDI 

24 

COMMON/riOHlN/ 

YLDI 

25 

1  ABEQN  1700)  .ABUNDOI700  J  , BRANCH  1130)  .CAPF1S 

YLDI 

26 

2  , DCON  1700)  .IBRA  .  INUC  .HAXn»UC 

YLDI 

27 

3  .MULT  Ill)  .NUCL1DI70J) 

YLDI 

26 

COMMON/UTJLTY/ 

YLDI 

29 

1  KOUT  .NPRNT  U5j 

YLDI 

30 

C 

YLDI 

31 

DIMENSION  PMTIAI.XSPECIAIaFISTyPIAI 

YLDI 

32 

DIMENSION  INFORM  111  I  ikIM(ll),MEM!7Qt}|  »NUC  1 11 1 

YLDI 

33 

EQUIVALBMCE  IMlM« ABUNDOI 

YLDI 

34 

C 

YLDI 

35 

INTEOfR  A.B.BLANK.FISSIO.FISTYP 

222 

YLDI 

36 

< 


r 


LOGICAL  NPRNT 

YLD1 

37 

c 

YLD1 

36 

DATA  FMTIl)«FHT(2]»f’MT(41/fcr‘fI5»I**#6H,Al»  ,6HE10.0)/, 

YLD1 

39 

1  tXSPFCtn.I*l»6J/6H  ,6HlQX  ,6H20X  ,6H30X  , 

YIDi 

40 

2  6H40X  ,6H5ftX  / 

YLD1 

41 

DATA  SLANK.A.H/1H  -lHA.lHB/ 

YLD1 

42 

c 

YLD1 

43 

DO  50  JJ=l,lNuC 

YLDj 

44 

50 

ASEGNlJJ)  =  '1.0 

YLDl 

45 

ASSIGN  213  TO  I  FLAG 

YLDl 

46 

C 

FIND  THE  RIGHT  DATA 

YLDj 

47 

202 

READ  { I NTP, 101 J  I F  I  ST YP II  1 ,  l  *  1 »  6 ) 

YLDl 

48 

C 

go  ahead  if  we  found  it.  else  stop 

YLDl 

49 

IF  IFISTYPtll .EO.DLANKJ  GO  TO  I  FLAG, I  213. 16 ] 

YLDl 

50 

DO  203  K s 1 , 6 

YLDl 

51 

IF  (FISTYP(K) .EO.FISSIDJ  GO  TO  204 

YLDl 

52 

203 

continue 

YLDi 

53 

C 

YvDl 

54 

n  *  -t  , 
c.  II  vi  X 

READ  tINTp,103J  NMaS 

YLDl 

55  • 

IF  (NMAS1202. 202, 2031 

YLDl 

56 

204 

FHTI3J  =  xsp::iki 

YLDl 

57 

1 

READ  1 1 NTP,FMT I  NMAS, NAT, NSTAT, FYLOlN 

YLDl 

56 

C 

MAKE  A  NOTE  THAT  WE  FOUND  IT 

YLDl 

59 

ASSIGN  16  TO  IFLAG 

YLDl 

60 

I F  I  NMAS 117,202,2 

YLDl 

61 

213 

WRITE  [KOIIT.1304J  FISSIO 

YLDl 

62 

STOP 

YLDl 

63 

COmPAT I tf II i ze  the  isomeric  state  indicators 

YLDl 

64 

2 

IF  [NSTAT.FQ. BLANK]  NSTAT=0 

YLDl 

65 

IF  (NSTAT. FG.Al  NSTAT*1 

YLDl 

66 

IF  (NSTAT. FO. 81  NSTAT=2 

YLDl 

67 

IF  t  NST  AT . GT . 3 ]  WRITE  (K0UT.1305J  NMAS, NAT, NSTAT , FYLD 1 N 

YLDl 

68 

NAMC  =  NMAS*MULT  1 4 ]  +  NAT*MULT 1 1 ]  ♦  NSTAT 

YLDl 

69 

c 

YLDl 

70 

DO  10  I»l, I NUC 

YLDl 

71 

10 

IF  [  lABSINUCLIOm  } /MUlT l 5 ) . EQ.NAMC )  GO  TO  12 

YLDl 

72 

GO  TO  1 

YLDl 

/3 

check 

CONTENTS  OF  A6EGN 

YLDl 

74 

12 

IF  I  ABEGM  I  1114,13,13 

YLDJ 

75 

COMPILE  FYLDIN  I KTO  ARRAY 

YLDl 

76 

14 

AdEGN ( 1 1  =  FYLOIN 

YLDJ 

77 

GO  TO  1 

YLDl 

78 

C 

YLDl 

79 

13 

WRITE  (KOUT, 13011 

,  YLDl 

80 

1  NUCLIDtll .ABEGNIIJ 

YLDl 

61 

lF.lABEGNtI)«FYLD!N)14,l,14 

YLDl 

82 

17 

WRITE  IKOUT ,  1302  J 

YLDl 

83 

BACKSPACE  I NTP 

YLDl 

84 

READ  1 1 NTP , 1303 ] 

YLDl 

85 

WRITE  I INTP, 1303  J 

YLDl 

86 

GO  TO  1 

YLDl 

87 

CHECK 

FOR  COMPLETENESS 

YLDl 

88 

16 

DO  18  J*1 , J  NUC 

YLDl 

89 

IF  IABEGNUU15.1B.18 

YLDl 

90 

15 

CONTINUE 

YLDl 

91 

ABEGNIJJ  •  0,0 

YLDJ, 

92 

IS 

CONTINuE 

YLOl 

93 

IF  ( ,  NOT , NPRNT I < 1 J  GO  TO  99 

YLDl 

94 

WRITE  IKOUT, 1001)  FISSID 

YLDl 

95 

DO  1000  10  »  1. INUC 

YLDl 

96 

223 


on  o 


NAME  ■  lABSlNUCLSDi 10} 1/MULTI5 j 

CALL  UNPACK  INMA$, NAT, NSTAT. NAME! 

1000  WRITE  C KOUT ,10021  NMAS* NA? , NS7 AT • A8EGN 1 1 0) 

CODING  TO  PREVENT  DUPLICATION  OF  FISSION  YIELDS  FOP  NUCLIDES  THAT  ARE 
C  MEhSERS  or  WORE  than  ONE  SUBCHAIN 
99  DO  100  KM  «1» }NUC 
100  MEMtNHl  *  0 

DO  SCO  IN  •  1# INUC 

C  FIND  THE  NEXT  NUCLIDE  THAT  BEGINS  A  SUBCHAIN 
IF  (NUCLIDI IN] 1411*411.500 

SET  PARAMETERS  FON  BEGINNING  OF  A  SU0CHAIN 
MEMBERSHIP  COUNTER 

411  LSuB  »  1 
JL  '  0 

C  STARTIN''  INDFX 

NUC ( 1 1  ■  IN 

412  LSMILSUBI  * 

C  PROCESS  A  SUBCHAIN  MEMBER 

413  KP  ■  NUCtLSUBl 
IM  «  LIMILSUBI 

INFO  *  MOD  1 1 ABS I NUCL I D  t  KP) ] *  MULT (51 1 
I NFORM l LSUR I  *  INFO 
INC  *  1 

CHECK  FOR  END  OF  SUBCHAIN 

IF  UNF0.E0.4)  GO  TO  421 
C  EXTRACT  THE  DAUGHTER  INCREMENT 

ID  «  M0DUNF0..MITCIM*1I]/MULTIIMI 
C  SEE  IF  THIS  INCREMENT  SHOULD  BE  NEGATIVE 

IF  IM0DUNF0.MULT121 ) /MULT  Cl) .EC, I  Ml  GO  TC  414 
IF  ILSUB.EO.JuI  GO  TO  415 

C  RECORD  THE  MEMBERSHIP  wF  NUCLlUlKP)  IN  THIS  SUBCHAIN 
MEMIKP)  »  HEM [ KP  J  *1 
GO  TO  415 

414  INC  ■  -INC 
COMPUTE  DAUGHTER  INDEX 

415  NDAUT  «  KP  ♦  INC*tD 

C  ACCEPT  THE  DAUGHTER  FOR  MEMBERSHIP  AND  RECYCLE 
LSUB  ■  LSUB  ♦  1 
IF  lLSUB.GT.lll  GO  TO  500 
NUClLSUB)  «  NDAJT 
GO  TO  412 
C 

421  )F  tLSUB.EQ.il  GO  TO  500 

C  FIND  THE  LAST  BRANCH  IN  THE  SUBCHAIN 
LAST  «  LSUB  ♦  1 
DO  422  L  «  2. LSUB 
LBACK  «  LAST  -  L 
JL  ■  LBACK 
IM  *  LIMtLBACKl 

IF  t MODI  I NFORM (LBACK ]. MULTI IMJ1 /MULT  I IM-l) 1422.422.431 

422  CONTINUE 
GO  TO  500 

C 

C  SET  UP  A  NEW  SUBCHAIN  STARTING  FROM  THE  DEEPEST  UNEXPLORED  BRANCH 
431  LSUB  ■  LBACK 

LIMILSUB)  •  LlMtLSUBJ  -1 
GO  TO  413 

n.oo  continue 

C 


TLD1 

97 

YLDl 

98 

YLU1 

99 

TLDl 

100 

YLD1 

101 

TLDl 

102 

TLDl 

103 

TLDl 

104 

TLDl 

105 

YLD1 

106 

YLD1 

107 

TLDl 

10S 

TLDl 

109 

TLDl 

110 

TLDl 

111 

YLD1 

112 

YLDl 

113 

YLD1 

114 

YLDl 

115 

YLDl 

116 

YLDl 

117 

YLDl 

118 

YLDl 

119 

YLDl 

120 

YLDl 

121 

YLDl 

122 

YLDl 

123 

YLDl 

124 

YLDl 

125 

YLDl 

126 

YLDl 

127 

YLDl 

128 

YLDl 

129 

YLDl 

130 

YLDl 

131 

YLDl 

132 

YLDl 

133 

YLDl 

134 

YLDl 

135 

YLDl 

136 

YLDl 

137 

YLDl 

138 

YLDl 

139 

YLDl 

140 

YLDl 

141 

YLDl 

142 

YLDl 

143 

YLDl 

144 

YLDl 

145 

YLDl 

146 

YLDl 

147 

YLDl 

148 

YLDl 

149 

YLDl 

150 

YLDl 

151 

YLDl 

152 

YLDl 

153 

YLDl 

154 

YLDl 

155 

YLDl 

156 

22U 


) 

DO  600  KA  *1, I NUC 

YLDl 

157 

D  I  V  =  MEMIKA) 

YLDl 

156 

IF  I D I V I  613,600,601 

YLDl 

159 

601 

aBFGN(KA)  =  ABEGN  t  K A  1 /D I  V 

YLDl 

160 

$ 

GO  TO  600 

YLDl 

161 

\ 

6 13 

WRITE  16,6130]  KA 

YLDl 

162 

4 

( 

6130 

FORMAT  U5H0MIKUS  MfeM  FOR  13! 

YLD] 

163 

i 

1 

1 

500 

continue 

YLDl 

164 

RETURN 

YLDl 

165 

f* 

YLU1 

166 

( 

101 

FORMAT  I 6A6 ’ 

YLDl 

167 

I 

103 

FORMATE  15) 

YLDl 

168 

loot  FORMAT  ( 20H1F I S£ I 0*i  YIELDS  FOR  A6//5X4HMASS5X6HCHARGE5X6HIS0MER5X2YLD1  69 

15HYIELD  PER  10.000  FISSIONS/}  YLD1  170 

1002  FORMAT  t5xl3.7Xl3»9XU.:4XlPEl?.4J  YLDl  171 

1301  FORMAT  [ 9H0NUCL I D6  OlP.llH  WITH  Y  I  ELD1PE12 . 4, 14H  IS  DUPLICATED)  YLDl  172 

1302  FORMAT  (24H0CARD  WITH  NEGA'.;  i  vE  MASS)  YLDl  173 

1303  FORMATIflOH  YLDl  174 

1  1  YLDl  175 

1304  FORMAT  I32H0N0  FjSSION  YIELD  AVAILABLE  FOR  A6I  YLDl  176 

1305  FORMAT  [9HCBAD  C APD/5X2 I  3 . A  3 , 5X1PE 12 . 4 )  YLDl  177 


f  ND 

YLDl 

179 

SIPF 

'C  aPRMX 

LIST, OECK , M94/2 

XPRM 

0 

SUBROUTINE  XPRM 

XPRM 

1 

1  ( I NTP ] 

XPRM 

2 

C 

XPRM 

3 

C 

R  C  TOMPKINS  -  US  ARMY  NUCLEAR  DEFENSE  LABS 

XPRM 

4 

C 

NOVEMBER 

1906 

XPRM 

5 

CALLED  By  PAM1 

XPRM 

6 

C 

XPRM 

7 

C  * 

*  *  * 

*  *  *  *  *  glossary  *********** 

XPRM 

8 

C 

XPRM 

9 

C 

ERM1181) 

EXPOSURE  RATE  MULTIPLIERS  FOR  GAMMA-FMI TT I NG  FISSION 

XPRM 

10 

C 

PRODUCTS  ter.  XPRM  AND  GXPSR) 

XPRM 

11 

c 

JRMH8U 

CROSS  REFERENCE  TO  INDICES  OF  NPaRNT  IXPRM  AND  GXPSR) 

XPRM 

12 

r 

parallel  TO  ERM 

XPRM 

13 

c 

KRM 

number  OF  FISSIUN  oRODUCTS  CONTRIBUTING  TO  GAMMA  DOSE 

XPRM 

14 

c 

IXPRM  AND  GXPSR] 

XPRM 

15 

c 

NSTAT 

ISOMER  NUMBER  ON 

XPRM 

16 

c 

FISSION  YIELD  CARD  (YIELD),  CF.  LISCM 

XPPM 

17 

c 

ERM  CARD  ( XPRM )  - 

XPR-- 

18 

c 

GROUND  STATE  0  OR  2 

XPRM 

19 

c 

EXCITED  STATE  1 

XPRM 

20 

c 

XRM 

EXPOSURE  RATE  MULUPLIER  ON  tHM  CARD  (XPRM) 

XPRM 

21 

c 

XPRM 

22 

c  * 

•  *  * 

******************* 

XPRM 

23 

c 

XPRM 

24 

COMMON/FRYLNG/ 

XPRM 

25 

1  0SU9K 

190)  , ERM  (1851  , JRM  (1851  , KRM  ,ECF(9n) 

XPRM 

26 

COMMON/FISMIN/ 

XPRM 

27 

1  ABEGN 

1700  !  , A3UND0 ( 70o 1  ,  BRANCH  1 130  I  ,CAPFIS 

XPRM 

26 

2  , DCON 

1700)  , I 8RA  , 1 NUC  , M AXNUC 

XPRM 

29 

3  ,  MUlT 

(11)  <  NUCL I D I 7u  0  J 

XPRM 

30 

common/utilty/ 

XPRM 

31 

1  KOuT 

.NPRNT  I 15 ] 

XPRM 

32 

DIMENSION 

NAME (181) 

XPRM 

3  3 

logical  jo, igo.kdos.nprnt 

XPRM 

34 

c 

XPRM 

35 

1001  FORMAT  (2X213, 12, £8. 3) 

XPRM 

36 

1002  FORMAT 

XPRM 

37 

225 


o  o  o  o 


1  C15H10UTPUT  OF  XPRM//5x5h1MDEX5X2HI A! 

2  //] 

702  FORMAT 

1  16XI3.5XI3.5XI2.6XI1.5XI3.5XJPE10.3) 

1311  FORMAT  (22H0NEQATIVE  MASS  IN  XPRMJ 

1312  FORMAT  U9HOTOO  MANY  ERM  CARDS] 


1323  FORMAT  (5X07.5XE8.31 


initialize  variables 

IT  «  1 

MAXERM  «  181 

DO  1  I  >  1, MAXERM 
ERMlIi  •  0.0 
NAME  I II  £  0.0 
1  JRMIII  •  0 
LAST  «  0 
KRM  *  0 


READ  A  CARD 

2  READ  CINTP, 10011 

1  NMAS.NAT.NSTAT.XRM 
CHECK  FOR  END-OF-FILE  SENTINEL 
IF  (NMASU301.A.3 

3  IFIKRM.EO.MAXERMI  QO  TO  1302 
KRM  a  KRM  ♦  1 

compatibilize  the  isomeric  STATE  indicators 

MS  a  NSTAT  ♦  1 
GO  TO  (5. 5, 41. MS 
C 

4  NSTAT  *  0 

C  PACK  THE  NUCLIDE  NAME 

5  NAMEIKRM]  *  NMAS*MULT(4l  •  NAT*MULTI11  ♦  NSTAT 
ERMfKRM]  «  XRM 

C 

GO  TO  2 

C  MATCH  THE  NAMES 

6  DO  10U  K  a  l,  I NUC. 

NUCNAM  a  J  ABS  I NUCU  D  I K  1  3 /MULT  1 5  1 
DQ  10  L  »  LT.KRM 
NAML  «  NAME  tL 1 

7  IF  iNAML .EOt NUCNAM  J  GO  TO  11 

10  CONTINUE 
GC  TO  100 

C 

11  NUMAS  ■  NAML/MULT14] 

CHECK  FOR  BEGINNING  OF  MASS  CHAIN 

IF  {NUMAS  •  LASTU2.13.12 

12  TEMP  a  -ERMIU 
QO  TO  14 

13  TEMP  a  ERhUJ 

IF  tLT.EQ.KRh’  GO  TO  101 

14  LAST  a  NUMAS 

C  ORDER  THE  ARRAYS 
Kl  «  t 
H?  a  L'T  ♦  1 
LL  «  MB  ♦  Ht 


IXPRM 

38 

XPRM 

39 

XPRM 

40 

XPRM 

41 

XPRM 

42 

XPRM 

43 

IXPRM 

44 

XPRM 

45 

XPRM 

46 

XPRM 

47 

XPRM 

48 

XPRM 

49 

XPRM 

50 

XPRM 

51 

XPRM 

52 

XPRM 

53 

XPRM 

54 

XPrtM 

55 

XPRM 

56 

XPRM 

57 

XPRM 

58 

XPRM 

59 

XPRM 

60 

XPRM 

6i 

XPRM 

62 

XPRM 

63 

XPRM 

64 

XPRM 

65 

XPRM 

66 

XPRM 

67 

XPRM 

68 

XPRM 

69 

XPRM 

70 

XPRM 

71 

XPRM 

72 

XPRM 

73 

XPRM 

74 

XPRM 

75 

XPRM 

76 

XPRM 

77 

XPRM 

78 

XPRM 

79 

XPRM 

80 

XPRM 

81 

XPRM 

82 

XPRM 

83 

XPRM 

84 

XPRM 

85 

XPRM 

86 

XPRM 

87 

XPRM 

68 

XPRM 

89 

XPRM 

90 

XPRM 

91 

XPRM 

92 

XPRM 

93 

XPRM 

94 

XPRM 

95 

XPRM 

96 

XPRM 

97 

226 


00  20  M  *  MT ,  MB 
MM  *  LL  *  M 
ERMCMM]  «  ERMIMM-1J 
20  NAME  I  MM  J  «  NAME lMM-1 I 
C 

ERMtLT]  =  TEMP 
NAME ( LT  3  s  0 
jRMtlT]  =  K 
.  LT  s  MT 
C 

100  CONTINUE 

C  ERROR  TRACE  ON  NORMAL  EXIT 
GO  TO  1303 

C  PROCESS  THE  LAST  ENTRY 

101  JRMIKRM]  =  K 
ERMlKPMl  *  TEM? 

NAMEIKRM]  =  0 

C  OUTPUT  RESULTS  ON  REQUEST 

IF  I , NOT . NPRNT 1 5  J  J  RETURN 
WRITE  IKOUT  , 1002  J 
DO  7(]u  1=1, KRM 
JR  =  JRMtH 

NAMO  =  I  AES  I NUCL I D I  JR  1 ) /MULT  IS ) 

CALL  UNPACK! IA, 17, IS. MAMO) 

700  WRITE  IKOUT, 7021 

1  I »  IA,  J7»  tS».'RMIIl.FRM{  I  J 
RETURN 

C  *  »  *  *  *  *  ERROR  TRACES  ******* 

1301  WRITE  IKOUT, 1311] 

WHITE  ! KOUT ,10011  NMAS.NAT.NSTAT.XRM 
GO  TO  2 

1302  WRITE  (KOUT, 1312! 

STOP  1302 

1303  WRITE  IKOUT, 1313] 

WRITE  IKOUT, 1323]  [ NAME [ L J ,ERM ( L I , L*LT , KRM I 
KRM  =  LT  -  1 
GO  TO  101 
END 

SIEFTC  INDX  LIST, DECK, M94/2 

SUBROUTINE  INDCD1 

1  IEMITN  .  HOB  ,  KRD  ,  TW  1 
CALLED  BY  PAM1 

C  I NDCD  IS  MODIFIED  VERION  OF  JONES-HOFFMAN  INDUCED 

C  COMPUTER  PROGRAM,  USNRCL  LR- 


NOvEMBER  1966 


GLOSSARY 


XPRM  98 
XPRM  99 
XPRM  100 
XPRM  101 
XPRM  102 
XPRM  103 
XPRM  104 
XPRM  105 
XPRM  10A 
XPRM  107 
XPRM  108 
XPRM  109 
XPRM  HO 
XPRM  111 
XPRM  112 
XPRM  113 
XPRM  114 
XPRM  115 
XPRM  116 
XPRM  117 
XPRM  118 
XPRM  119 
XPRM  120 
XPRM  121 
XPRM  122 
XPRM  123 
XPRM  124 
XPRM  125 
XPRM  126 
XPRM  127 
XPRM  128 
XPRM  129 
XPRM  130 
XPRM  131 
XPRM  132 
XPRM  133 
XPRM  134 
XPRM  135 
XPRM  136 
INDX  0 
INDX  1 
INDX  2 
INDX  3 
INDX  4 
INDX  5 
INDX  6 
INDX  7 
INDX  6 
«  INDX  9 


C 

INDX 

10 

C 

ALB 

NEUTRON  ALBEDO  OF  SOIL 

INDX 

11 

c 

FACI7.18] 

NUMBER  OF  ATOMS  OF  ISOTOPE  I  OF  ELEMENT  J 

ACTIVATED 

INDX 

12 

C 

PER  NEUTRON  ICF.  INDCD1  AND  INDCD21 

INDX 

13 

c 

FA! (7,18) 

ATOMS  OF  ISOTOPE  I  OF  J  PER  ATOM  OF  J 

INDX 

14 

c 

FAT  C 16 3 

ATOMS  OF  ELEMENT  1  PER  ATOM  OF  SOIL 

INDX 

15 

c 

FMI18) 

MASS  FRACTION  OF  ELEMENTS  IN  SOIL 

INDX 

16 

c 

ICF.  CASSIDY/  ONES  Fw] 

INDX 

17 

c 

FOG ( 5 1  7, 18 ] 

PHOTONS  PER  DISINTEGRATION  Of  ENERGY  l  OF 

ISOTOPE  J 

OFIftDX 

16 

c 

ELEMENT  K  IINDCD1  AND  INDCDPi 

INDX 

19 

c 

FOM 

FRACTIONS  OF  NEUTRONS  SEEN  BY  APPARENT  CRATER 

INOX 

20 

c 

HL {7*161 

HALF  LIFE  OF  CAPTURE  PRODUCT  OF  ISOTOPE  1  OF  ELEMENT 

JINDX 

21 

c 

HOB 

Hfl GMT  OF  BURST  IN  FEET 

INDX 

22 

c 

H8CL 

SCALED  HEIGHT  OF  BURST  (H**l/3  IN  INDCD2) 

1NDX 

23 

c 

ISOt 1*1 

NUMBER  OF  ISOTOPES  OF  EACH  ELEMENT  OCCURRING  IN  NATUREINDX 

24 

c 

K8V(7,1«) 

NUMBER  OF  PHOTON  ENERGIES  EMITTED  BY  CAPTURE  PRODUCT 

INDX 

25 

c 

OF  I  OF  J 

INDX 

26 

c 

LM17.181 

UNITS  OF  HLiCP,  1UNIT 

INDX 

27 

c 

NA(7.18j 

MASS  NUMBER  OF  ISOTOPE  I  OF  ELEMENT  J 

INDX 

26 

c 

NZllSi 

ATOMIC  NUMBERS  OF  SOIL  ELEMENTS 

INDX 

29 

c 

RNYl5»7»l8) 

EXPOSURE  RATE  MULTIPLIERS  FOR  PHOTON  ENERGIES  PARALLELINDX 

30 

c 

TO  FOG 

INDX 

31 

c 

8(81(7.181 

THERNAL  NEUTRON  ABSORPTION  CROSS  SECTION  OF  ISOTOPE  I 

INDX 

32 

c 

OF  ELEHEN'  J  (BARNS  1 

INDX 

33 

c 

Slot SC[ 7, IS] 

THERMAL  NEUtRON  SCATTERING  CROSS  SECTION  OF  ISOTOPE  I 

INDX 

34 

c 

OF  ELEMENT  J  (BARNS! 

INDX 

35 

c 

SIGS 

THERMAL  NEUTRON  ABSORPTION  CROSS  SECTION  OF  SOIL 

INDX 

36 

c 

(BARNS! 

INDX 

37 

c 

S1GSSC 

THERMAL  NEUTRON  SCATTERING  CROSS  SECTION  OF  SOIL 

INDX 

38 

c 

(BARNS! 

INDX 

39 

c 

XL AM  1 7  *  16  J 

DISINTEGRATION  CONSTANT  OF  CAPTURE  PRODUCT  OF  ISOTOPE 

INDX 

40 

c 

I  OF  ELEMENT  U 

INDX 

41 

c 

INDX 

42 

c 

***** 

INDX 

43 

c 

INDX 

44 

COMMON/ INDUCE/ 

INDX 

45 

1  ALBFOM 

.FAC  l7,lfeJ,FOGRNY(7,181.!SO  110) 

INDX 

46 

2  .LMAX 

,XLAM  17.18! 

INDX 

47 

c 

INDX 

48 

common/utilty/ 

INDX 

49 

1  KOUT 

.NPRNT  US) 

INDX 

50 

c 

INDX 

51 

DIMENSION 

INDX 

52 

1  A  (7,  1»] 

.  FA  I  17.  18),  FAT  1 18) ,  FMI18I.  F0GI5.7.18I, 

INDX 

53 

2HL 17*181# 

NZI18),  LH  (7.  181.  NA  17.  18),  RNYI5.7.181, 

INDX 

54 

3k£ V ! 7* 18] , 

INDX 

55 

4  S'.  (18).  SFAI  (18).  SFA1SC  (18).  SIG!  (7.  161.  SIGISC  (7.  18) 

INDX 

56 

#1 

o 

INDX 

57 

LOGICAL  NPRNT 

INDX 

58 

c 

INDX 

59 

10  FORMAT!  12. 8X1.FIO. 01 

INDX 

60 

14  tORMAT  (12, 

I9.E13.3J 

INDX 

61 

016  FORMAT  ( 

INDX 

62 

1  13,  12,  F9.5.  F15.5.  EiO.3,  13,  F15.51 

INDX 

63 

18  FORMAT  (FlO 

.0.E10.0J 

INDX 

64 

601  FORMAT 

INDX 

65 

1  (17M10UTPUT  OF  INDCD1/22H0 NUMBER  OF  ELEMENTS  ■  12/42HQNUMBER  OINDX 

66 

2F  NEUTRONS 

EMITTED  PER  FISSION  «  F5.2/ 

INDX 

67 

4  /  9H0 

lNOEx5X3HlSO10x3HFACl2X4HXLAM«X3HKEV9X3HFOGl2X3HRNY/i 

INDX 

68 

602  FORMAT 

INDX 

69 

1  I//6XI? 

, 8X11, 6X1PE12.3.SXE10.3, 6X1 1, 6X0PF 10 , 5. 5X1PE10 . 3 ) 

INDX 

70 

603  FORMAT 

INDX 

71 

1  (63XQRF10.9.5X1RE10.3T 

INDX 

72 

6(i4  FORMAT 

INDX 

73 

1  (1H022X1PE12 .3,5xfel0 ,3,6XSli6X0PFl0.5»5XlPE10.3l 

I  NO ’A 

74 

c 

ELEMENTS  of  casing  ARE 

INDX 

75 

c 

IGNORED  IN  THIS  COMPUTATIONS 

INDX 

76 

c 

INDX 

77 

HOBLMT  «  36 

.0 

INDX 

76 

OOBLMT  »  -2 

.0 

INDX 

79 

100  RCAO 

(KRO,  10! 

INDX 

80 

228 


o  o  r>  o 


1  lmax 


IF  CLMAXJ700.700.10? 

102  READ  tKRD,  14] 

1  JNZlLl.  TSOCL  J .  FMtU.  L*l,  LMAX) 
nq  ioj  l  *  i,  lmax 

IS  *  iSPtLJ 

103  R£AD  iKRO,  161 

o  I'l'lL1'.-  fAItl.U,  SIGIII.U*  HL  !  I  ,L  ) »  LHII.U. 

2  SIGISC  [T,  Ll*  I  =  1#  IS) 

no  104  l  «  i,  lmax 
IS  s  I  SO [ L 1 
DO  104  I  »  1,  IS 
Kt  =  KEVIIfLJ 

104  READ  (KRU,  18) 

1  trOG(N.IfL),  RNYINfl.Uf  N=l,  KE I 
IF  [  EM  J  TN}71»0,700,105 
105  SIGS*  n. 

SIGSSCs  0.0 
SFhMAXsO. 


DO  120  L*l»  LMAX 
SA[LJ«0. 

I S= I  SO  I L  J 
DO  110  1*1,  is 
Al IfLlsNAtlfLJ 

110  SAIL!*  SA[L)*A(I,L)*FA!(I#L) 
120  SFWMAXsSFMMAX+FMfLl/SAtL J 
DO  150  L«l,  (.MAX 


FATILI  *  FMlLI/lSAIL]*SFhMAXJ 
SF A  I IL I *0 . 

SF  A I  SC [ L  !  *0 . 0 

IS*IS0IU 

DO  140  1*1,  is 


SFAISCfLI  «  SFAISC  C L J *F A J f I , L J *  SIGISCil.L) 
140  SFAlfLl  *  SF  A  I ( L  J  *F  A  I t I , L  I  *S  I G  I  [  !,LJ 

SIGSSC*SIGSSC*F ATILI*SFAISCIL) 

150  SlGSaSIGS^FATtLJ*SFAI (L) 

152  DO  200  L*1 ,  LMAX 


I S* I  SO ( L  I 
DO  200  1*1,  i«j 
FOGRNYtl.LI  =  0. 

K£  *  KEVII.LJ 
DO  210  N  »  1,  KE 

210  FOGRNY ( I , L I  *  FUGRNY  C I  ,L  )  ♦  FOG  IN , I ,L I • RNY f N. I , L 1 

FACII,LJ»FATCL)«FAI(I,L)*SIGin,Ll/SIGS 
MLU,LJ«TIMSEClHi.(I,L),LHIl,L),OJ 
200  XL AM( I , L J ». 693/hL 1 1 ,L J 

RE 1UCT I  ON  OF  SOIL  EXP.  RATE  IS  NOW  MADE  AC 
THE  SOLID  ANGLE  FRACTION  Of  THE  FIREBALL  TOUCHING  THE  GROUNi 
RETIME  OF  HYDRODYNAMIC  SEPARATION.  AND  THE  FRACTION  OF 
NEUTRONS  THAT  REMAIN  IN  THE  SOIL  AFTER  ALBEDO, 

HSCL*HOB/TW**0 . 33333333 

272  IF  IHSCL.LT.HOBLMT)  GO  TO  274 

273  FOM«07o 
alb«o:q 

GO  TO  287 


274  I F I HSCL 1276,277,275 

275  FOM*l 7«HSCl /SGRTf4,24«HSCL*HSCL*234, *HSCL*422“ . I 

GO  TO  286  * " 

276  IF  tHSCL.LT.DORLMTl  GO  TO  278 

277  FOM*i:o 


AT 


INDX 

81 

INDX 

82 

INDX 

83 

INDX 

84 

INDX 

85 

INDX 

86 

INDX 

87 

INDX 

88 

INDX 

89 

INDX 

90 

INDX 

91 

INDX 

92 

INDX 

93 

INDX 

94 

INDX 

95 

INDX 

96 

INDX 

97 

INDX 

98 

INDX 

99 

I NDX  100 
I NDX  101 
INDX  102 
I NDX  103 
INDX  104 
INDX  105 
INDX  106 
INDX  107 
INDX  108 
INDX  109 
INDX  110 
INDX  111 
INDX  112 
INDX  113 
INDX  114 
INDX  115 
•NDX  116 
INDX  117 
INDX  118 
INDX  119 
INDX  120 
INCX  12* 
INDX  122 
INDX  123 
INDX  124 
INDX  125 
INDX  126 
INDX  127 
INDX  128 
INDX  129 
INDX  130 
INDX  131 
INDX  132 
INDX  133 
INDX  134 
INDX  135 
INDX  136 
(NDX  137 
INDX  138 
INDX  139 
INDX  140 
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nono 


SO  TO  286 

)  NDX 

141 

278  ALB>1?0 

INDX 

142 

foh«i;o 

INDX 

143 

00  TO  287 

IMDX 

144 

286  AlB«i:i!5*53ftT(S!GS/tS!SSSC*S!GSn 

INDX 

149 

287  AIBFON  ■  EMITN«F0M»AlB*1.E4 

INDX 

146 

IF  t .N0T.NPRNTI8 J J 

RETURN 

INDX 

147 

8  WRITE  I KOUT * 601 ) 

INDX 

148 

1  LNAX.EMlTN 

INDX 

149 

INDX 

150 

DO  60S  tn.LHAX 

INDX 

151 

is  >  isom 

INDX 

152 

WRITE  (KOUT.602) 

INDX 

153 

1  1 4 1 S « F  AC ( 1 •  I ) . 

XLAM(1.  t).KEvtl,U.  FOB  11. 1,1) 

.RNYU.l.II 

INDX 

154 

KE*KEVtl.I) 

INDX 

155 

lF-CKE7GT.il 

INDX 

156 

1WRITE  (KOUT. 6031 

INDX 

157 

1  (FOGIK.l. ! J .RNYlK.l. I J ,K«2, 

KE  I 

INDX 

158 

lFtIS.EQ.ll  GO  TO 

605 

INDX 

159 

INDX 

160 

DO  600  J>2. IS 

INDX 

161 

KE  •  KEVtJ.Il 

INDX 

162 

WRITE  (K0UT.6U4I 

INDX 

163 

1  FACtJ.tl.XLAHtJ. II.KE/FOGtl 

•  J. 1 1 (RNYll.J.  1 1 

INDX 

164 

iFtKE.’GT.lJ 

INDX 

165 

1WRITE  (KOUT. 6031 

INOX 

166 

1  (FOQ(K.J.Il.PNY(K.J.M.K«2. 

KE  1 

INDX 

167 

680  CONTINUE 

INDX 

168 

689  CONTINUE 

INDX 

169 

700  RETURN 

INDX 

170 

END 

INDX 

171 

BFTC  FRUB  IIST.BEC!' 

.H94/2 

FRTA 

0 

SUBROUTINE  FRATIO 

FRTA 

1 

1  t8LDTNP.TMSD.MCHN) 

FRTA 

i 

FRTA 

3 

R  c  tonrkins  --  us 

i  ARMY  NUCLEAR 

DEFENSE  LABS 

FRTA 

4 

SEPTEMBER  1866 

FRTA 

5 

FRTA 

6 

COMMON  /SET3/ 

FRTA 

7 

1  82 

,B22 

*BZZ 

.BZ22 

FRTA 

6 

2  .DElTAX 

.  DGX 

« DGY 

.OIFCON 

FRTA 

9 

3  .OIFADJ 

>FMAS(500 1 

« FMASS 1200] 

» ICI16I 

FRTA 

10 

4  .ICON 

.  (CTR 

*  IM 

•  IOT 1181 

FRTA 

11 

9  .IP 

. IPOUT 

. ITT  1 181 

.IV 

FRTA 

12 

6  .JCI18) 

,  JIN 

.  JOUT 

. JPOUT 

FRTA 

13 

7  .KTR(9001 

.KTAPE 

.LAST 

.MAPRUN 

FRTA 

14 

8  .marray 

.MIN 

.MXREQ 

FRTA 

15 

9  ,H 

.  N  A 

»N8ZX 

• NBZX2 

FRTA 

16 

X  •  NBZY 

.  NCL 

.NE 

»NF 

FRTA 

17 

2  .NIJ 

.NMAP 

•  NMAX 

.  NOX 

FRTA 

18 

3  .NP(21| 

.NREO 

»N8 

, NTAPES 

FRTA 

19 

4  .NTAPET 

.NTASK 

.  NXMAP 

.NTMAP 

FRTA 

20 

9  , VNIN 

.PS1900I 

.P81ZEI200I 

.PACT  I  200 ) 

FRTA 

21 

6  .ROPART 

.  T 1 900 1 

,Tl 

FRTA 

22 

7  .  T2 

.  TLIMIT 

.  X 1 900 1 

.XF 

FRTA 

23 

8  .XO 

.XMAX 

.  XNIN 

>  XNMAP 

FRTA 

24 

«  .XI 

«X2 

.  X3 

»X4 

FRTA 

29 

1  . Y (906) 

.TF 

.TO 

.  YMAX 

FRTA 

26 

COMNQK/OUtfUT/ 

FRTA 

27 

1  FISNUM  «FP  (2001  .FW  .(TAB 

*  J0O 

FRTA 

28 
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c 

c 


c 

c 

c 


2  .MASCHN 

.SIGMAS 

common/fishin/ 

L  ABEQN  (7001 

,  AHUNDO (700) 

?  . DCON  (700) 

•  IBRA 

i  .MULT  Ill) 

.NUCLin  C  7001 

COMMON/UTILTY/ 

KOUT 

.NPRNT  (15) 

common/frylng/ 

BSUBK  (901 

, ERM  (185) 

common/decay/ 

100 

,JD 

.TEXIT 

.TIME 

I  1NUC 


>  MAXNUC 


» KD0S 


(1851  «  KRM 

«  TENTER 


» ECF  1 901 


DIMENSION  FR190) 

DIMENSION  R0ILI401 

EQUIVALENCE  (FR.BSU8K) 

LOGICAL  NPRNT, IGO. JO, NOTO, KUOS 


®0i^!*3l^*°'2907‘0'3{'00*0'2°76*fJ»l764.0.1Q10.0.  1026.0» 

2'o‘'343A1n5vlsi'3^9i7ivi469o'0'480a,0'3300,0*1351,°'583*0'4505*0 
«Kin4^:S'^45l*0'1832*0,2123‘0,2247*0'  1«32.0»  1534.0*457.4,165 

355. 0,3003. 0.4608. 0.4367. 0.4252, 0,4464. 0.4316. 0.5*4300.0/ 

TIME  »  TMSD 

igo  =  .false. 

JD  *  .'TRUE. 

K DOS  *  .FALSE. 

MAXCMN  ■  90 
DO  30  I  «  1, MAXCMN 
30  FRtlJ  *  0.0 

CALL  BATMAN 

MCHN  «  0 

rf.rc  *  0.0 

CNN  «  0.0 

LAST  «  lABSlNUCLlDdl  J/MULTI91 
NOTO  *  .FALSE. 

DO  10  Mtt  *  l.INUC 
NAME  «  IABSINUCLIDIMBJ 1/MULTI6J 
mass  ®  name/mult t 3 1 
MT  a  MUD  I  NAME  •  MUL  T  [  3  1  1 
IF  (NAT.QEv27.ANp.NAT.LE.66J  GO  TO  1 
WRITE  (KOUT ,5131  NAT, MASS 
ABUND  *  0.0 
GO  TO  10 

1  ir  (MAS3.EO.LASTJGO  TO  3 
MCHN  ■  MCHN  +  1 
IE  (NOTO)  FRtMCHN)  «  RFRC/CMN 
RFRC  a  0,0 
CHN  •  0.0 
NOTO  »  .FALSE. 
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FRTA  29 
FRTA  30 
ERTA  31 
FRTA  32 
FRTA  33 
FRTA  34 
FRTA  35 
FRTA  36 
FRTA  37 
FRTA  36 
FRTA  39 
FRTA  40 
FRTA  41 
FRTA  42 
FRTA  43 
C^TA  44 
FRTA  45 
FRTm  46 
FRTA  47 
FRTA  48 
FRTA  49 
FRTA  50 
FRTA  51 
FRTA  52 
331.6FRTA  53 

»  4149FRT  A  54 
•9, 15FRTA  55 


FRTA 

56 

FRTA 

57 

FRTA 

58 

FRTA 

59 

FRTA 

60 

FRTA 

61 

FRTA 

62 

FRTA 

63 

FRTA 

64 

FRTA 

65 

FRTA 

66 

FRTA 

67 

FRTA 

68 

FRTA 

69 

FRTA 

70 

FRTA 

71 

FRTA 

72 

FRTA 

73 

FRTA 

74 

FRTA 

75 

FRTA 

76 

FRTA 

77 

FRTA 

78 

FRTA 

79 

FRTA 

80 

FRTA 

61 

FRTA 

82 

FRTA 

63 

FRTA 

84 

FR1 A 

85 

FRTA 

86 

FRTA 

87 

FRTA 

88 

uuuouuuuuouuuuuu 


3  A»UN0  «  AlUNDO(MB) 

LAST  *  MASS 

IF  I AtUNOItO.18,4 

4  MOTS  «  .THUS. 

IF  IB0IL(NAT*26] .GS.SLDTMP]  RFRC  ■  RFRC  ♦  ABUND 
CMM  •  CMN  ♦  ABUND 
10  CONTINUE 

MCHN  •  MCHN  ♦  1 
IF  (NOTO)  FRIMCHNJ  ■  RFRC/CHN 
C 

IF  INPRNT1611  80  TO  22 
10  DO  S3  L  *  l.MCHN 

BtVBKlLl  »  SORtlFRtUl  •  1.0 
NONftN  •  BSUBKIL) 

SUN  >  0.0 

DO  20  M  ■  l.tTAB 

20  SUM  •  SUM  ♦  FMA$$[M)*PMZEtM]**POWER 
32  ECF(L)  •  1; 0/SUM 

tF  INPRNT(*|J  80  TO  23 

21  130  •  .TRUE. 

RETURN 

22  WRITE  (K0UT.3Q11 

WRITE  IKOUT.3021  (J.FRl JJ , J-l.MCHNI 
00  TO  19 

23  WRITE  tKOUT.5031 

WRITE  IXOUT, 502J  (K.BSUBKlK) , K«1»MCHNI 
60  TO  21 
961  FORMAT 

1  (17H1QUTPUT  OF  FRAT I0//6X4HMCHN  10X2HFR//I 

902  FORMAT 

1  (7XI2.AX1PE12.41 

903  F0RMATI///AX4HMCHN9X9HBSUBK//1 

913  FORMAT  (44HOB01LING  POINT  IS  NOT  AVAILABLE  FOR  ELEMENT  13. 
1  AH (MASS  I3.1M}; 

END 

1  6HIMASS  I3.1H1) 

SlBFTC  LNK9  LIST, DECK, M94/2 
SUBROUTINE  LINKS 
26  FEB  67 

second  half  OF  The  OUTPUT  PROCESSOR 
SUBROUTINES  CALLED 

MAP 
RUN1 
SLIDE 
L6TSQ0 
SMIFT 
CALC 
CROP 
ZERO 
PROC 
COUNT 


COMMON  /SI U/ 

1  SIAM  .DSTIDU2UIRISE  .  IEXEC 

2  SB  ,  SPAR  .  SSAM  ,  THE 

3  fift  ♦  u  .  vM  .  w 

4  Iff 1 46 1  *  RMIN  .  IBtSTR  »  SPAR1 

9  NWlAM  .  SUBRAD  .  RA6NAX  .  XBZ 


.  i s:n  .  ISOUT 

#  TMPl  ,  TMP2 

#  MBUBST  t  ICLOMB 
,  NIT API  »  FSUM 


*  TI2 


T6Z 


FRTA  «9 
FR7A  90 
FRTA  91 
FRTA  92 
FRTA  93 
FRTA  94 
FRTA  93 
FRTA  96 
FRTA  97 
FRTA  98 
FRTA  99 
FRTA  100 
FRTA  101 
FRTA  102 
FRTA  103 
FRTA  104 
FRTA  109 
FRTA  106 
FRTA  107 
FRTA  108 
FRTA  109 
FRTA  110 
FRTA  111 
FRTA  112 
FRTA  113 
FRTA  114 
FRTA  113 
FRTA  116 
FRTA  117 
FRTA  118 
FRTA  119 
FRTA  120 
FRTA  121 
FRTA  122 
FRTA  123 
FRTA  122 
LNK9  0 
LNK9  1 
LNK9  2 
LNK9  3 
LNK9  4 
LNK9  5 
LNK9  6 
LNK9  7 
LNK9  8 
LNK9  9 
LNK9  10 
LNK9  11 
LNK9  12 
LNK9  13 
LNK9  14 
LNK9  13 
«*«LNK9  16 

LNK9  17 
LNK9  10 
.  LNK9  19 
.  LNK9  20 
,  LNK9  21 
»  LNK9  22 
LNK9  23 


9 


COMMON  /SET3/ 

LNK9 

24 

1  8Z 

.BZ2 

,8ZZ 

»8Z22 

LNK9 

25 

2  .DEtTAX 

.  DGX 

,OGY 

.DIFCON 

LNK9 

26 

3  .DIF  ADJ 

,  FtlAS !  500  I 

.FMASS 1200) 

«IC(18) 

LNK9 

27 

4  .{CON 

.ICTR 

.IH 

. IOT ( 18) 

LNX9 

28 

5  .IP 

.  'POUT 

. I TT 1 10 1 

.IV 

LNK9 

29 

6  .jCIlflJ 

.JIN 

.  JOUT 

, JPOUT 

LNK9 

30 

7  .KTRI500 J 

.  KTAPE 

.LAST 

.MAPRUN 

LNK9 

31 

8  .MARHAY 

,  h  i  rf 

.MXREO 

LNK9 

32 

9  >  N 

.NA 

,NB2X 

. NBZX2 

LNK9 

33 

1  . NbZ Y 

.  NCL 

,N6 

.NF 

LNK9 

34 

2  .  N  I  J 

.  NM  AP 

.  NHAX 

,  NOX 

LNK9 

35 

3  .NPI213 

.  NREO 

.NS 

, NTAPES 

LNK9 

36 

4  .NTAPET 

.NTASK 

« NXMAR 

.NYMAP 

LNK9 

37 

5  ,  YM 1 N 

, PS !500 I 

.PSIZEI200) 

. PACT  1 200 1 

LNK9 

38 

6  .ROPART 

,  T  £  500 1 

» T1 

LNK9 

39 

7  ,T2 

.TLIMIT 

»xi5oo: 

,  XF 

LNK9 

40 

0  .  XO 

>  XMAX 

.  XM  l  N 

. XNMAP 

LNKV 

41 

9  .XI 

.X? 

»X3 

.  X4 

LNKV 

42 

1  . Y 1500  I 

,  YF 

.  YO 

«  YMAX 

LNK9 

43 

COMMON/OUTPUT/ 

LNK9 

44 

1  FISNUM 

FP  12001  . FN  .1 

TAB  ’  » JGO 

LNK9 

45 

2  .MASCHN  , 

SIGMAS 

LNK9 

46 

COMMON/DECAY/ 

LNK9 

47 

1  IGfl 

JD  .KDJiS  .TENTER 

LNK9 

48 

2  .TEXIT 

TIME 

LNK9 

49 

LNKV 

50 

COMMON  /SET4/  OMAP 140  00  1 

LNK9 

51 

LNK9 

52 

*•«•**#*•  *****8#*********n*******8***  ********  vr  ************************  *LNK  9 

53 

LNK9 

54 

1 

FORMAT { 12A6  J 

*  t 

LNK9 

55 

2 

FORMAT  I//15X.23HS0M  OF  MAP  ORDINATES  *  E13. 

6  V 

LNK9 

j6 

3 

FORMAT I1M1///754X 

,11K*  *  *  *  * 

•1 

LNK9 

57 

4 

FORMAT  1//15X.23HG ROUND  ROUGHNESS  FACTOR  F10 

.3  ) 

LNK9 

50 

9 

FORMAT ( 7F1 0 . 3 I 

LNX9 

59 

15 

FORMAT ( 18 1 4  J 

LNK9 

60 

17 

FORMAT ( 3?H  OUTPUT 

PROCESSING  IS 

COMPLETED. 1 

LMK9 

61 

23 

FORMAT! 1H1///39X?7H««**  OUTPUT 

PROCESSOR  TASK  I 5. 6H  *«**)  , 

LNK9 

62 

24 

FORMAT (///15X25HOR 10  LIMITS  AND 

INTERVALS/18X4HXMIN10X4HXHAX10X4HYLNK9 

63 

1MIN10X4HYMAX10X7HDELTA  XIOX'/HDELTA  Y/15XF10. 

0.4XF10.0. 4XF10.Q. 

AXF1LNK9 

64 

20.0.5XF10.1,5XF10 

.1) 

LNK9 

65 

25 

FORMAT  I//15X71MTHE  CONTROL  YARIARLE  ARRAY.  JCUI,  HAS  BEEN  GIVEN  TLNK9 

66 

) ME  FOLLOWING  VALUES. /15X1B14) 

LNK9 

67 

27 

FORMAT l /) 5X32HMAPPED  ON  GRID  INTERVALS  DGX 

•  F 10  •  l.>  7H  DGY«F10. 1LNK9 

68 

1! 

LNK9 

69 

31 

FORMAT!117HOINADEOUAT£  PRINTER 

DESCRIPTION. 

AN  UNDISTORTED  MAP 

CANLNK9 

70 

1NOT  BE  GUARANTEED 

,  THIS  RUN  NAS 

CONTINUED  MITH  GRID  INTERVALS 

/5X3LNK9 

71 

23H  ADJUSTED  FOR  MAXIMUM  EFFICIENCY.) 

LNK9 

72 

32 

FORMAT! I4.2F10.3 

.14] 

LNK9 

73 

33 

FORMAT  1 25H0 UN ACCEPT ABLE  REQUEST 

.  . .14) 

LNK9 

74 

34 

FORMATC//////15X, 

15HREQUEST  NUMBER  I4///15X, 

5HTYPE  14.10X5HT1 

•  F1LNK9 

75 

10 . 1 • 10X.5HT2  «  F10.1.10X.9HMASCMN  *  I 4 1 

LNK9 

76 

35 

FORMAT! 15) 

LNK9 

77 

LNK9 

78 

:  * « 

****LNK9 

79 

*  a***************** **#**#8******************************** *************LHK 9 

80 

LNK9 

81 

DATA  PROGRM  /6M 

LINK9/ 

LNK9 

82 

LOGICAL  JD.KDOS. f GO 

LNK9 

83 

o 


833 


uuu 


1 80*. TRUE. 

NUL"0 

FSUH-0.0 

119  iFIFSUH.EQvO.O)  so  TO  U9i 
NRtTEI 1I0UT* 21  FSU" 

F8UN»0.I 

C 

CU91  READ  UNITS  ON  AREA  OF  INTEREST 
1191  READ  USIN.91  XHAX.XNIN.YNaX, YMIM.DGX.DGY, GRUFF 
IF  (GRUFF .FO.O.O ]  GRUFF  «  1,0 
1F(D6X*DGY 1120 *120* 121 

120  WRITE  (ISOUT.171 
REMIND  IPOUt 
PRINT  17 
RETURN 

C 

C  READ  OTHER  SPECIFIC  INPUT 

121  READ  l!S!N*l5JtJClJ5»J»1.18i 
NVA8K«NTA8K*1 

NRO*0 

C 

C  CHECK  PRINTER  DESCRIPTIONS 
Nl*lH*IV 

IF(NII601«601.122 
601  JCU6I-1 

WRITE  tIS0UT*31] 

C 

C  122  WRITE  A  LOCAL  HEADING 

122  WRITE  ( IS0UT«23 JNTASK 

WRITE  US0UT,24JXMIN,XHAX.YMIN,YMAX,D6X,DGY 
WRITE  ItSOUT»25) tJC(JJ»J»1.18I 
WRITE  ( f S0UT»4l  GRUFF 
60  TO  1209 
C 

1211  (F| JCIi: .E0.3 J  WRITE  (MBTAPE INUL.NUL 
C 

1209  IF  (F8UM.EO.O.O!  GO  TO  1219 
WRITE  USOUT.2)  FSUN 

C  1219  READ  A  REQUEST  FOR  PROCESSING 
1219  READ  (ISIN.32)NRE0.T1<T2.NASCHN 

IF IMASCHN.Ed* 0> ANDtNREOtNE.lO )QQ  TO  1210 
IFINASCHN.GT. 71. AND. NASCHN.LT. 1021  80  TO  1210 

call  Error iprosrn» 1209* isouti 

NASONS*? 

1210  DO  tsf  I»1,NHAP 
935  UNAPI lt«0.0 

DO  936  I*1.MARRAY 
XCII'-O.O 

936  Vt I )*9.Q 
]CON*0 
MARRUN"0 

nro«nnq*i 

FSUN  *  0.0 

ntapis*ntapbt 

BO  937  |*1»NTAPIT 

937  lOT|IJ*|TTm 

SI  RRtO  AN  ACCIPTARU  RIOUEIT 
NO  TO  1119 
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LNK9  127 
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JFINRE0J1212, 1212, 1213  LNK9 

1213  !F{NRE0-MX8EPJl2l4,1214,l2li>  LNK9 

1215  WRITE  I ISOUT ,33)NHEG  LNK9 

GO  TO  1200  LNK9 

LNK9 

MXREQ  IS  MAXIMUM  NUMBER  OF  CALCULATION  COOES  ALLOWED  FOR  IN  CALC.  LNK9 
1212  NO  MORE  REQUESTS.  PREPARE  TO  RETURN  TO  READ  LOCAL  DAfA,  LNK9 

1212  CONTINUE  LNK9 

GO  TO  119  LNK9 

1214  I  POUT3 JPOUT  LNK9 

REWIND  I  POUT  LNK9 

READ l IPCUT ) TST  LNK9 

READ  IIP0UTJITST,J=1,15)  LNK9 

READIIPOUT) IDETIDI JJ, J«l,12), I0ETIDI JI,J*l.l'i!,  IOETIDI J),J«1,12),  LNK9 

ltDFTlDf JJ,J«1»12J. IDETIDI JJ. J=1,12I  LNK9 

READ  1 1  POUT  1 NPS  LNK9 

READ! I POUTJ I  TST , TST , TST , TST , J  =  1 . NPS I  LNK9 

READ  1 1 POUT) (DET ID! J) . J*1 » 12 1  LNK9 

IF  INRO-1 1 l?2l. 1222.1221  LNK9 

1221  WRITE  ( ISOHT.3)  LNK9 

1222  WRITE  IISOUT, 34INR0.NREG.T1.T2.MASCHN  LNK9 

RUFSAM  *  SSAM/GRlJrF  LNK9 

jG()*l  LNK9 

ITAB=NPS  LNK9 

FISNUM*FW*1.45E15  LNK9 

lF[NRE0.Ea;l5.0R.NRE0.EQ.l6)  GO  TO  1223  LNrt 9 

TlsT  I  MSEC I T1 , 3 • U  1  INK9 

T2=T IMSEC [ T2, 3. 0  J  LNK9 

1223  TIME=T1-TGZ  LNK9 

TENTERsTIME  LNK9 

TEXIT*T2-TGZ  LNK9 

jD= , TRUE •  LNK9 

KDOS*. FALSE.  LNK9 

GO  TO  [80.81, 79, 78, 62, 00. 00, 82, 78, 83. 80. 80 .80 .3 0.80 ,81, 80, 0  0.00, 8QLNK9 

1J.NREO  LNK9 

81  TlME=3600.0  LNK9 

GO  TO  79  LNK9 

82  KOOSs.TRUE:  LNK9 

GO  TO  78  LNK9 

83  JG0*2  LNK9 

FISNUM«FISNUM*1.E*4  LNK9 

RUFSAM=SSAM  LNK9 

GO  TO  79  LM9 

78  jDa. FALSE.  LNK9 

F I SNUMsF I SNUM/3600 .  LNK9 

79  CALL  PAM2  LNK9 

30  IF  IJCI14JJ801.1211.801  LNK9 

C  L  NK  9 

C  INITIALIZE  FOR  PROCESSING  LNK9 

801  I CTRs  0  LNK9 

8Z2*BZ*0 . 5  LNK9 

BZ22«BZ2*B7?  LNK9 

C  LNK9 

C  IS  USE  OF  DIFFUSION  MODEL  REQUESTED.  *ES  TO  i?lfl  LWK9 

IFIJCU5IJ1217, 1217, 1218  LNK9 

C  LNK9 

C1218  ADJUST  BUFFER  ZONE  WIDTH  TO  ALLOW  FOR  FORTHCOMING  DIFFUSIVE  GR0WTHLNK9 

C  OF  CLOUD  SUBDIVISIONS.  LNK9 

1218  BZ2*8Z2*D IFADJ  LNK9 

1217  IF  INRQ.NEUJ  GO  TO  140  LNK9 


(, 


C1217  IS  A  QRJD  INTERVAL  ADJUSTMENT  PERMITTED  TES  TO  130 
IF! JCI181-1J130. S31.130 
C 

C  NO  ADJUSTMENT  PERMITTED  OPTION 
131  N0ZXa-l 
NBZY«»1 

NBIX2«BZ2/rBX«1.0 
1311  TST«NB?X2 
BZ2«T8T*D0X 

C  THE  BUFFER  ZONE  IS  NOW  aN  INTEGRAL  NUMBER  OF  GRID  INTERVALS  WIDE 
BO  TO  140 
C 

C  J SO  ts  AN  UNDJSTORTEO  MAP  DESIRED  YES  TO  1302 

130  irtJClltUSSOl*  1302. 1301 

1302  DISYaJV 
DISXajH 

RD«2.0*DISY/DISX 

DISX»RD*DBY 

IF (OISX-DQX 11303, 1304. 1304 

1303  D0X*D1SX 

1304  DQYaDOX/RC 
60  TO  131 

1301  IFIJCI15J .OT.O  J  GO  TO  131 
C 

C  EFFICIENCY  ADJUSTMENT 
N8ZX«BZ/DQX 
TST«NBZX 
TST»TST*DGX 

IFIBZ-TSTJ133. 1341. 1361 
1361  IFINBZXI133.136.134 

136  NBZX--1 
NBZX2»1 
GO  TO  137 

133  IRR0R--133 
GO  TO  333 

C 

C  134  ADJUST  DGX  TO  MAKE  BZ  AN  INTEGRAL  MULTIPLE  OF  IT. 

134  NBZX«NBZX*1 
TST*NBZX 
DGX»BZ/TST 

1341  NBZX2*tN8ZX+l ]/2 

C 

C  NOW  FOR  THE  Y  DIMENSION 

137  NBZYaBZ/OGY 
TST»NBZY 
T8T«TST*DGY 

IFIBZ-T8TI  133.1311.1371 
1371  IFINBZYJ135.138.139 

135  !RROR«»135 
GO  TO  333 

138  nBZY«-1 

GO  TO  1311 

139  NBZY«NBZY*1 
7ST«NBZY 
D6Y-BZ/TST 
80  TO  1311 

C 

140  XOaXMtN*«22 
TOatM»IO-BZ2 
XFaXMAX*BZ2 
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YFsYM*X*HZ? 

c 

PREPARE  TO  PROCESS  OUTPUT 

»o*****calCulatf  number  of  zones  reyond  first  needed  in  sorting 

NYMAP  =  [ YMAX  -  YMIN)/DGY 
NXMAP=(XF-XOJ/DGX 
nst  =  NMAP/NYMAP 
if  [NXMAP-NST]  1503. 1503.3.402 

1402  NXMAP-NST 
XMAP=NXMAP 

ZZ=tXF-XO)/lXMAP»DGX] 

NZ  =  ZZ 
TST  =  NZ 

IRZZ-TST)  1500.  1551. 1401 

1500  JRROR=-1500 
GO  TO  333 

1501  NZ=NZ-1 

GO  TO  1401 
1503  K Z  =  U 
C 

C********  END  OF  ZONE  CALCULATION 
1401  NOX=NXMAP«NHZX2-NBZX2 
IF[N0X114IJ3. 1403, 1404 

1403  IRR0R=-14U3 

333  CALL  ERPOR  (PROGRM, IRHOR, ISOUT] 

GO  TO  1213 

1404  OX  =  NO  X 
DtLTAX=OX*nGX 

C 

1502  WRITE  (ISOUT. 27 JDGX.OGY 
C 

Xl=XO 
X2=X1+RZ2 
X3  =  X?  +  |1ELTAX 
X4=X3+RZ2 

300  IF(NZ-NTAPES]  200,200,201 
200  MlN=NZ 
last=o 

GO  TO  202 
2G1  M I N=NTAPES 
L  AST  =  1 

202  J I N  =  2*M  I  N 
IF(NZ1203,?04,205 

203  IRROR--203 
GO  TO  333 

204  CALL  RUN1 
CALL  M*P 
GO  TO  1211 

205  IF(LASTJ206, 207,209 

206  I  RR0f!  =  *206 
GO  TO  333 

207  CALL  LFTSGO 
ICTR=1 

DO  208  INDFXrl.MJN 
CALL  MAP 
I POUT= I  0 T [ J NDEX  ) 

X1  =  X3 
X2  =  X4 

X3  =  X4' DEL  TAX 
X4=X3*PZ2 
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CALL  SLIDE 
CALL  RUN1 

208  REMIND  IPOUT 
CALL  MAR 

80  TO  1211 

209  CALL  LETSGO 
KlN2»IP0UT 
ICTR«1 
KIN«MIN-1 

DO  210  iNDEXal.KIN 
CALL  MAP 
I f*0U «’ *  1 0 T  t  INDEX) 

Bl«X3 

X2«X4 

X3»X4*DElTAX 
X4«X3*BZ2 
CALL  SLIDE 
CALL  RUN1 

210  REMIND  I  POUT 
CALL  MAP 
IPOUT«IOTIMINI 
IFI1CONJ2111, 2112.2111 

2112  NTAPES«NTAPES-1 
IC0N»1 

GO  TO  2113 
2111  IOT  t  M I N 1 »K I N2 

2113  REMIND  IPOUT 
NZ»NZ-MIN 
X1«X3 
X2*X4 

X3«X2*DELTAX 
*4aX3*BZ2 
CALL  SLIDE 
GO  TO  300 
END 

UBFTC  CALCX  LIST, DECK, M94/2 
SUBROUTINE  CALC 

p:  flusser  technical  operations  research  sp  calc 

26  FEB  67 

***  this  subroutine  determines  what  output  is  requested  and 

*•*  computes  the  final  results,  these  it  stores  in  an  array  called 


LNK9  324 
LNK9  325 
LNK9  326 
LNK9  327 
LNK9  328 
LNK9  329 
LNK9  330 
LNK9  331 
LNK9  332 
LNK9  333 
LNK9  334 
LNK9  335 
LNK9  336 
LNK9  337 
LNK9  338 
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LNK9  344 
LNK9  345 
LNK9  346 
LNK9  347 
LNK9  346 
LNK9  349 
LNK9  350 
LNK9  351 
LNK9  352 
LNK9  353 
LNK9  354 
LNK9  355 
LNK9  356 
LNK9  357 
LNK9  358 
r  ,LC  0 
CALC  1 
CALC  2 
CALC  3 
CALC  4 
CALC  5 


1 

OMAP. 

CALC 

6 

CALC 

7 

*1 

*****CALC 

a 

CALC 

9 

COMMON  /SET1/ 

CALC 

10 

1 

DIAH 

,DETI0H2I»I«ISE 

.  IEXEC 

.  1SIN  ,  ISOUT 

,  CALC 

11 

2 

SD 

,  SPAR  ,  SSAM 

,  TME 

»  THP1  ,  TMP2 

.  CALC 

12 

3 

T2M 

,  U  ,  VPR 

»  M 

»  HBURST  .  SCLOHB 

.  CALC 

13 

4 

T I D { 40 1 

.  RMIN  .  IDISTR 

,  SPAR1 

,  MBTAPE  ,  F SUM 

,  CALC 

14 

5 

RUFSAM 

.  SPAR5  ,  SPAR6 

.  X6Z 

.  YG„  .  TGZ 

CALC 

15 

COMMON  /SET37 

CALC 

16 

1 

BZ 

,BZ2 

.  BZZ 

,BZ22 

CALC 

17 

2 

,  DELTAX 

,DOX 

,  D6Y 

.DIFCON 

CALC 

16 

3 

,  DIFADJ 

,FmASC50o  5 

, FNASS ( 200  I  ,  IC 1 10 ) 

CALC 

19 

4 

•  ICON 

.  ICTR 

.IH 

.  IOT 1 181 

CALC 

20 

5 

.IP 

.IPOUT 

« ITT  1 16 1 

,IV 

CALC 

21 

6 

.JCC18J 

*  JIN 

•  40UT 

, JPOUT 

CALC 

22 

7 

.KT«|50«1 

. KTAPi 

.LAST 

.MAPRUN 

CALC 

23 

8 

•MARBAr 

.MIN 

,HXREQ 

CALC 

24 
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V  ,N  ,  NA 

,  NBZX 

.  N0ZX2 

CALC 

25 

1  » N3Z  Y  ,  NCI 

,  NE 

»NF 

CALC 

26 

2  .NlJ  ,  NMAP 

,  NMAX 

,NOX 

CALC 

27 

3  ,>-,5*1211  ,NREQ 

.NS 

pNTAPES 

CALC 

20 

4  .NtAPET  >  NTASK 

, NXMAP 

.NYMAP 

CALC 

29 

5  ,ym;n  #  PS ( 50  0  j 

, PSIZE ( 20  0 1 

, PACT  1  200  J 

CALC 

30 

6  , ROPART 

,  T 1 500 ) 

,Tl 

CALC 

31 

7  , T2  .TLIMIT 

, X 1 500 1 

,  XF 

CALC 

32 

8  ,X0  * XMAX 

,  XM IN 

, XNMAP 

CALC 

33 

9  ,X1  *  X2 

,X3 

,X4 

CALC 

34 

1  »  Y 1 5  0  0  ]  »  YF 

» YO 

,  YMAX 

CALC 

35 

COMMON/DECAY/ 

CALC 

36 

1  IUO  ,JD  » KDOS 

.TENTER 

CALC 

37 

2  ,TEXIT  .TIME 

CALC 

38 

CALC 

39 

COMMON/OUTPUT/ 

CALC 

40 

1  FISNUM  ,F»  (200)  ,FW 

.ITAB  , JGQ 

CALC 

41 

2  *  M ASCHN  .SIGMAS 

CALC 

42 

COMMON  /SET4/  OMAP  t  4000  I 

CALC 

43 

CALC 

44 

***** 

*CALC 

45 

CALC 

46 

210  FORMATt8H0FOR.MULAl6.ft7H  IS  UNAVAILABLE. 

COMPUTATION  WAS  CONTINUED 

CALC 

47 

IFOR  A  REQUEST  Of  TYPE  1.  I 

CALC 

48 

CALC 

49 

****************************  ******* ****#*#*****#*****##*«**###***«****CALC 

50 

******** 

***** 

►CALC 

51 

CALC 

52 

CALC 

53 

DATA  HR0GRM/6H  CALC  / 

CALC 

54 

CALC 

55 

ASSIGN  213  TO  NORD 

CALC 

56 

GO  TO UOt. 102. 103.104,105.106,107,102,102,102 

,112.113,114,115,116 

CALC 

57 

1,117,10V, 110, 111, 120 J.NREO 

CALC 

58 

CALC 

59 

:  101  COUNT  OF  GROUNDFD  WAFERS 

CALC 

60 

101  F  s 1 • 0 

CALC 

61 

GO  TO  ion 

CALC 

62 

CALC 

63 

103  DOSE  RATE  AT  TIME  H+Tl  SECONDS 

CALC 

64 

103  iFtTUPJ  *T1 1102,102,777 

CALC 

65 

CALC 

66 

:  104  DOSE  ACCUMULATED  FROM  TIME  H*Tl 

SECONDS 

TO  infinity 

CALC 

67 

104  fFtTt IPJ-T111041.1041.1042 

CALC 

60 

1041  TENTERsTl  -TGZ 

CALC 

69 

GO  TO  13P 

CALC 

70 

1042  TENTERsT  1 1 P  J  -TG7 

CALC 

71 

GO  TO  130 

CALC 

72 

CALC 

?J 

105  DOSE  ACCUMULATED  FROM  TIME  H+Tl 

TO  TIME 

H*T2 

SECONDS 

CALC 

74 

105  IF{TIIP1-T2J1051,777,777 

CALC 

75 

1051  IF [TI IPJ-T1I1052, 1052, 1053 

CALC 

76 

1052  TENTERsT  t IP  I «TGZ 

CALC 

77 

GO  TO  130 

CALC 

70 

1053  TENTERsTl  »TGZ 

CALC 

79 

GO  TO  130 

CALC 

BO 

CALC 

8.1 

:  106  TOTAL  PARTICLE  MASS  DEPOSITED 

CALC 

02 

106  F«FMAS^IPJ 

CALC 

83 

GO  TO  100 

CALC 

84 

239 
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C  CALC 

C  107  TOTAL  PARTICLE  MASS  DEPOSITED  BETWEEN  TIMES  T1  AND  T2  SECONDS  CALC 

107  !FITIIPJ-T2J1Q71,777.777  CALC 

1071  IT  tTt 1PI-TU  777.777, 106  CALC 

130  CALL  PAM2  CALC 

C  CALC 

C  102  FIND  INDEX  OF  PARTICLE  SIZE  CLASS  CALC 

102  DO  131  J*l, I  TAB  CALC 

iFfPACTUl.LE.PStlPJ  JGO  TO  132  CALC 

131  CONTINUE  CALC 

CALL  ERRORIPROOPM.131, ISOUTI  CALC 

GO  TO  777  CALC 

C  CALC 

132  IPS>J  CALC 

F*FP(  IPS)*FMAS(  iPl/lFMASSl  IPS l*Rt)FSAMj  CALC 

GO  TO  100  CALC 

C  CALC 

C  112  TIME, OF  ARRIVAL  CALC 

112  ASSIGN  211  TO  NORD  CALC 

1121  F«  T  C I P 1  CALC 

GO  TO  100  CALC 

C  CALC 

C  113  TIME  OF  CESSATION  CALC 

113  ASSIGN  212  TO  NORD  CALC 

GO  TO  1121  CALC 

C  CALC 

C  114  SMALLEST  PARTICLE  SIZE  CALC 

114  ASSIGN  211  TO  NORD  CALC 

1141  F«  PS ( IP]  CALC 

GO  TO  100  CALC 

C  CALC 

C  115  LARGEST  PARTICLE  SIZE  CALC 

115  ASSIGN  212  TO  NORD  CALC 

GO  TO  1141  CALC 

C  CALC 

C  114  MASS  FROM  PARTICLES  IN  THE  SIZE  RANGE  T1  TO  T2  MICRONS.  CALC 

116  IFIPSIIPI.GE.T1.AND.PSUP1.LE.T21  GO  TO  106  CALC 

GO  TO  777  CALC 

CALC 

117  H*1  HR  NORMALIZED  DOSE  RATE  RESULTING  FROM  PARTICLES  IN  THE  SIZE  CALC 

RANGE  T1  TO  T2  MICRONS  CALC 

117  IFIPSIIP1.GE.T1.AND.PSIIP1.LE.T21  GO  TO  102  CALC 

GO  TO  777  CALC 

CALC 

CALC 

****•«•**•••*••*•«*»<>••*  CODE  INSERTION  POINTS  **#*********************CALC 
199  CONTINUE  CALC 

110  CONTINUE  CALC 

111  CONTINUE  CALC 

(;•••***•*«•••»*•**••••*••  code  insertion  points  ************************calc 

c  calc 

120  CONTINUE  CALC 

WRITE  IISOUT.210 JNREO  CALC 

NREG«1  CALC 

GO  TO  101  CALC 

100  CONTINUE  CALC 

C  CALC 

C  CALCULATE  WAFER  BOUNDARIES  CALC 

irtJCtl9H1001.1001.1002  CALC 

1002  CALL  DIFUZ1IRZ2J  CALC 
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88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 
1.  i 

138 

139 

140 

141 

142 

143 

144 
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F*F*  BZ22/ l RZ2**2  J 
GO  TO  1003 
1001  RZ2=BZ/2.0 
1003  WXL«XUP1-RZ2 
WYT*Y I  IP  J ♦RZ2 
WYB*Y ( IP  J -RZ2 
WXR«X  l IP 1*RZ2 
C 

C  DOES  WAFER  t  PART  I  ALL  Y 1  FALL  IN  LEFT  BUFFER  ZONE... 
I F l X I  IP ) -X212.3. 3 

C  2=YES. ADJUST  LEFT  BOUNDARY  AND  SET  NOL 
2  WXL*X2 

NOL«l*NBZX2 
GO  TO  7 

3»N0, COMPUTE  NOL 


NUL=SHALLEST  X  -  INDEX  OF  ANY  GRID  PT.  WITHIN  WAFER 
3  NOL=IHXL-X1I/DGX*1.0 


DOES  WAFER  [PmRTIALLYI  FALL  OUTSIDE  RIGHT  BUFFER  ZONE 
IF[WXR-X4I4.4,6 

4  =  NO, CHECK  IF  GRID  INTERVALS  WERE  ADJUSTED 

4  !F(NBZX*1 15,7,9 
5=ERR0R 

5  IRR0R«5 
GO  TO  333 

6  WXR=X4*,01*DGX 

7  JX=(WXR-X1)/DGX-1.0 
NWX=JX-N0L 


ARE  THERE  OUTPUT  PTS  TO  BE  CONSIDERED 

IFINWXI777.777.10 

NWX'NBZX 

NWX*NO .  OF  GRID  PTS.  COVERED  BY  WAFER  IN  X  DIRECTION 


DOES  WAFER  (PARTIALLY]  FALL  IN  LOWER  BUFFER  ZONE... 
0  IFIWYB-YMINJ11.1P.12’ 

1 1* YES.  ADJUST  LOWER  BOUNDARY  AND  SET  NOB 
1  WYB=YMIN 
NOR«l 


GO  TO  16 

l?*NO, COMPUTE  NOB 

NOB»SMALLEST  y  -  INDEX  OF  ANY  GRID  PT  WITHIN  WAFER 

12  NOB«IWYB-YHINJ/DGY*1.0 
C 

C  DOES  WAFER  {PARTIALLY  FALL  IN  UPPER  BUFFER  ZONE 
IFIWYT-YHAX113.13.15 

C  13«N0, CHECK  IF  GRID  INTERVALS  WERE  ADJUSTED 

13  !FtNBZY*lJ14,l6.t8 
C  14’ERROR 

14  1RR0K«14 
GO  TO  333 

15  WYT* YMAX 

16  JY«CWYT-YMINJ/DUY*1.0 

C  NWY*NO •  OF  GRID  PTS.  COVERED  BY  WAFER  IN  Y-DIRECT ION 

NWY« JY-NOB 

C 

C  ARE  THERE  OUTPUT  POINTS  TO  BE  CONSIDERED 
JFINWYI777, 777.19 
18  NWY»NBZY 


2Ul 


CALC  145 
CALC  146 
CALC  147 
CALC  148 
CALC  149 
CALC  150 
CALC  151 
CALC  152 
CALC  153 
CALC  154 
CALC  155 
CALC  156 
CALC  157 
CALC  158 
CALC  159 
CALC  160 
CALC  161 
CALC  162 
CALC  163 
CALC  164 
CALC  165 
CALC  166 
CALC  167 
CALC  168 
CALC  169 
CALC  170 
CALC  171 
CALC  172 
CALC  173 
CALC  174 
CALC  175 
CALC  176 
CALC  177 
CALC  178 
CALC  179 
CALC  180 
CALC  181 
CALC  182 
CALC  183 
CALC  184 
CALC  185 
CALC  186 
CALC  187 
CALC  188 
CALC  189 
CALC  190 
CALC  191 
CALC  192 
CALC  193 
CALC  194 
CALC  195 
CALC  196 
CALC  197 
CALC  198 
CALC  199 
CALC  200 
CALC  201 
CALC  202 
CALC  203 
CALC  204 


c  i«*vcs.  compute  wafer  contribution 

c 

19  N>NQl»INOt*i)»NXHAP 

nh«n*|nny-ii*nxnap 

nn«nnx*i 

DO  20  JpK.NM.NXHAP 
JJ«NN*J 
DO  20  !*J. JJ 
ONASONAPU) 

00  TO  NORD,  (211.212.213) 

211  tf(ONA.IO.O.O)  60  TO  213 
OMARI IJ*ANIN1  10MA.FI 

00  TO  20 

212  OMAPm«AMAXl(0NA.n 
GO  TO  20 

213  ONAP( I J*OMAP 1 1 )*F 
20  CONTINUE 

777  RETURN 

333  CALL  ERROR  (PROGRH. IRROR. tSOUT I 
C 

STOP 

END 

SISFTC  COUN  LIST, DECK, M94/2 
SUBROUTINE  COUNT 
C  26  FEB  67 

C  P.  FLUSSER  TECHNICAL  OPERATIONS  RESEARCH  SR  COUNT 
C*«*SUBROIITlNE  COUNT  COMPUTES 

C***  JOUT  THE  MOST  OENSELY  POPULATED  REGION 

C*«*  NS  THE  NUM8ER  OF  PARTICLE  PARAMETRS  TO  BE  WRITTEN  OUT 

C*««  KTAPE  THE  TAPE  NUMBER  ON  WHICH  THESE  PARTICLE  PARAMETER 

C**«  ARE  TO  BE  WRITTEN  OUT. 


CALC  205 
CALC  206 
CALC  207 
CALC  208 
CALC  209 
CALC  210 
CALC  211 
CALC  212 
CALC  2.3 
CALC  fl4 
CALC  215 
CALC  216 
CALC  217 
CALC  218 
CALC  219 
CALC  220 
CALC  221 
CALC  222 
CALC  223 
CALC  224 
CALC  225 
CALC  226 
CALC  227 


10 

COUN 

11 

IMON  /3ET1/ 

COUN 

12 

DIAN 

. DET I  DC  12 ) » IRISE 

.  IEXEC 

.  I  SI N  .  ISOUT 

.  COUN 

13 

SD 

.  SPAR  ,  SSAM 

.  THE 

.  TMP1  »  TMP2 

.  COUN 

14 

T2M 

*  U  .  VPR 

.  w 

.  HBURST  .  SCLDH8 

.  COUN 

15 

TIDI40I 

.  RMIN  ,  IDISTR 

.  SPAR1 

.  MBTAPE  .  FSUM 

.  COUN 

16 

SPAR4 

.  SPAR5  .  SPAR6 

.  SPAR7 

.  SPARS  .  SPAR9 

COUN 

1) 

IMON  /SETS/ 

COUN 

18 

BZ 

.872 

.822 

»BZ22 

COUN 

19 

.deltax 

,D8X 

•  06Y 

, DIFCON 

COUN 

20 

.OlFADJ 

,FMAS (500  I 

. FMASS 1 200 )  .ICC18I 

COUN 

21 

.ICON 

.  ICTR 

.IN 

» IOTI 18) 

COUN 

22 

.IP 

. I POUT 

» ITTt 181 

.IV 

COUN 

23 

.JCI18J 

•  JIN 

.JOUT 

. JPOUT 

COUN 

24 

•NTRlSOO) 

.KTAPE 

.LAST 

.MAPRUN 

COUN 

25 

.HARR AT 

.MIN 

.MXREQ 

COUN 

26 

.N 

.NA 

*  NOZX 

.N8ZX2 

COUN 

27 

.NOZY 

•  NCI 

.NE 

.NF 

COUN 

28 

.NU 

»NMAP 

*NMAX 

.NOX 

COUN 

29 

.NPIB1) 

,  NRIO 

.NO 

.NTAPES 

COUN 

30 

.NTAPET 

. NTASK 

.NXMAP 

.NYNAP 

COUN 

31 

» YMJN 

.PSC500T 

. POIZE ( 201 1  .PACT! 200) 

COUN 

32 

.OOP ART 

.TI50QI 

,T1 

COUN 

33 

•  ft 

.TLINIT 

»Xt«88) 

.XF 

COUN 

34 

•  00 

.XMAX 

,XNt*N 

,X«MP 

COUN 

35 

.XI 

«X2 

«X9 

»X4 

COUN 

36 

nocioooooooooo 


V  ) 


1  «  Y  1 500  1  . YF  ,  YO  , YMAX 

COMMON  /SET4/  UHAP ( 40001 

c 

c  *»***********«*«**»*******»*.*«*****»***4**»*««****, .,»***«** 

c 

DATA  PR0GRM/6HC0UNT  / 

C 

C  *••*.••••••.•••»•.••**.»».•••»•*««„ 

C  . . 

c 

MAX*NPtl J*NP(2I 

jOUTfig 

IF  CJiN.LT.4]  GO  TO  6 
DO  4  J=4» JIN»2 
IF [MAX-NPI J] )  3.4,4 

3  MAX*NP { J ) 
jOijT*  J 

4  CONTINUE 

IF [MAX-NPClJ-NPtPl 15,6,7 
&  CALL  ERBORIPROGHm.-S. ISOUTJ 

6  NS*MAX+NP [ 3  I 
GO  TO  a 

7  NSsNPl JOUTl*NP[ JOUT+1I 

5  JJ  »  JOUT/2 
KTAPE=IOTI JJ1 
RETURN 

END 

SIBFTC  CRDPX  LIST, DECK ,  M94/2 
SUBROUTINE  CROP 

P.  FLUSSER  TECHNICAL  OPERATIONS  RESEARCH  SH  CHOP 
26FEB  6/ 

•••AFTER  ALL  THE  PARTICLE  PARAMETERS  HAVE  BEEN  READ  FROM  TAPE 
•••IPOUT,  SUBROUTINE  CHOP  IS  CALLED  AND  WRITES  OUT  THOSE 
•••PART  I CLE  PARAMETERS  THAT  ARE  LEFT  IN  CORE  ON  THE  APPROPRIATE 
•••TAPES.  IT  LEAVES  THOSE  PARTICLES  THAT  FALL  INTO  THE  ZONE 
•••WHICH  IS  TO  RE  TREATED  NEXT  IN  CORE  AND  SETS  NIJa-1  AS  A 
•••SIGNAL  TO  SUBSEQUENTLY  CALLED  SUBROUTINES  TO  TREAT  THESE 
•••PARTICLES  BEFORE  READING  NEW  ONES  FROM  TAPE. 


COMMON  /SET1/ 


1 

2 

3 

4 

5 

1 

2 

3 

4 

5 

6 
7 
6 
9 
1 
2 


DIAM  , 
SD  , 

T2P  , 

T I O ( 40  I . 
SPAR4  . 
COMMON  /SET3/ 

BZ 

.DELTAX 
»  DIF ADJ 
,  ICON 
.IP 

.  JCU81 
, KTR  1 500  J 
.MARRAY 
» N 

,  NBZ  V 
,NI  J 


12 ) , JR  ISE  ,  1  EXEC 
.  SSAM  ,  THE 
,  VPR  ,  W 
.  IUISTR  ,  SPAR1 
•  SPAR6  ,  SPAR7 


.  IS  IN  ,  ISOUT 
*  TMP1  ,  TMP2 
»  HBURST  ,  SCLDHB 
,  MBTAPE  »  FSUM 
,  SPARfl  ,  SP AR9 

,8222 
.DIFCON 

,  icnai 

, IOTI1B] 

,IV 

, JPOUT 
.MAPRUN 

, NBZX2 
,NF 
,  NOX 


DETIOl 

SPAR 

U 

RMIN 

SPARS 


BZ2 

,821 

DGX 

,  DGY 

FMAS 1 500  J 

.FMASSI20OI 

ICTR 

,  IH 

IPOUT 

,  I TT 1 18 ) 

JIN 

,  JOUT 

KTAPE 

.LAST 

MIN 

, MXREO 

NA 

,  NBZX 

NCL 

,NE 

NMAP 

,  NMAX 

COUN 

37 

COUN 

3ft 

COUN 

39 

-•♦COUN 

40 

COUN 

41 

COUN 

42 

COUN 

43 

♦♦COUN 

44 

♦♦COUN 

45 

COUN 

48 

COUN 

47 

COUN 

48 

COUN 

49 

COUN 

50 

COUN 

51 

COUN 

52 

COUN 

53 

COUN 

54 

COUN 

55 

COUN 

56 

COUN 

57 

COUN 

5ft 

COUN 

59 

COUN 

60 

COUN 

61 

COUN 

62 

COUN 

63 

CROP 

0 

CROP 

1 

CRDP 

2 

CROP 

3 

CRDP 

4 

CRDP 

5 

CRDP 

6 

CRDP 

7 

CRDP 

8 

CRDP 

9 

CRDP 

10 

CRDP 

11 

CRDP 

12 

•CRDP 

13 

CRDP 

14 

CRDP 

15 

CRDP 

16 

CRDP 

17 

CRDP 

18 

CRDP 

19 

CRDP 

20 

CRDP 

21 

CRDP 

22 

CRDP 

23 

CRDP 

24 

CRDP 

25 

CRDP 

26 

CRDP 

27 

CRDP 

28 

CRDP 

29 

CRDP 

30 

CRDP 

31 

CRDP 

32 

243 


t  i 

t  i 
;  t 

i  s 

* 

• 

3  .NPI21 1  . NREQ  .NS 

.NT APES 

CROP 

33 

4  .NTARET  .NTASK  .nxmap 

.NYHAP 

CROP 

34 

5  .TRIM  .P3I500T  .PS1ZEI200) 

, PACT  I  200 1 

CROP 

35 

6  .ROPART  . T ( 9Q0 1 

»Tl 

CROP 

36 

7  #T2  .TLINIT  . X 1 9  0  0 ) 

.XF 

CROP 

37 

•  *XO  •  XMAX  . Xhl N 

tXNHAP 

CROP 

38 

9  .XI  »X2  ,X3 

,X4 

CROP 

39 

1  . YI500)  . YF  .YO 

*  VNAX 

CROP 

40 

COMMON  /SETA/  OMAPIAOOOJ 

CROP 

41 

c 

CROP 

42 

c  • 

>**CRDP 

43 

c 

CROP 

44 

c 

CROP 

45 

c  * 

»**CRDP 

46 

c  * 

►**CRDP 

47 

c 

CRDP 

48 

K«JlN-2 

CRDP 

49 

C***  IS  LAST  ZONE  SORTED...  IT  YES.  WRITE  OUT  ALL  ZONES. 

CRDP 

50 

C*««!f  NOT.  TREAT  LAST  ZONE  DIFFERENTLY. 

CRDP 

51 

I F CLAST I  50.50.51 

CRDP 

52 

50  K*K*2 

CRDP 

53 

5J 

IFIK.LT. 23  00  TO  52 

CRDP 

54 

DO  1  J»2,K,2 

CRDP 

55 

J0UT»J 

CRDP 

56 

JJaJ/2 

CRDP 

57 

ktape«iovuji 

CRDP 

58 

SFI J*213l.2.3l 

CRDP 

59 

31 

NS«NPl Jl^NPl J»1 J 

CRDP 

60 

IF  I NS 1  2.2.3 

CRDP 

61 

3  CALL  SHIFT 

CRDP 

62 

2  L*0 

CRDP 

63 

WRITE  IKTAPE1L 

CRDP 

64 

1  REWIND  KTAPE 

CRDP 

65 

C***  IS  LAST  ZONE  WRITTEN  OUT... 

CRDP 

66 

52 

IFILAST)  8.10,0 

CRDP 

67 

C***  CAN  W8  DUNP  ALL  PARTICLES  NOW... 

CRDP 

68 

•  jFrNPlJlNl.NHAXl  5.5.6 

CRDP 

69 

6  NS«NNAX 

CRDP 

70 

NPCJINI*NPtJ|Nl-NS 

CRDP 

71 

00  TO  7 

CRDP 

72 

5  NS«NPIJINI 

CRDP 

73 

7  JOUTOIN 

CRDP 

74 

ktari«iotiminj 

CRDP 

75 

iriN«it,9.7i 

CRDP 

76 

71 

CALL  SHIFT 

CRDP 

77 

C***AR*  ANY  PARTICLES  LEFT... 

CRDP 

78 

iriNPIJlNll  9.9.8 

CRDP 

79 

9  L*« 

CRDP 

80 

WRITE  IKTAPE1L 

CRDP 

81 

REWIND  KTAPE 

CRDP 

82 

11  NU»-i 

CRDP 

83 

RETURN 

CRDP 

84 

END 

CRDP 

05 

SISFTC  DlFUXl  LIST, DECK, M94/2 

DIFU 

0 

SORROUTINI  DIFUZl (RZ2) 

DIFU 

1 

C 

T.W.  SCMWRNKE  TECHNICAL  OPERATIONS  RESEARCH 

DIFU 

2 

C 

U  OCT  66 

DIFU 

3 

C 

DIFU 

4 

C 

THIS  BMRftoVINS  EXPANSE  TN*  CLOUR  WOBI  VISIONS  AS  A  MEANS  OF 
APPROXINATINB  THE  EFFECTS  OF  ATNRtRHfiRIC  DIFFUSION. 

OIFU 

S 

e 

DIFU 

6 

i 

m 

\  ..  Ti 

’  v*  * 

i  ■  stf> 

'• 

- 

? 

*4  ‘  ■  «  ...  i 

’  «  1  *k  v  ■  #  r  '* 

is.  ■  i  J-  ?  w.  . 

t 


o  o  o  o  onnnnoon  or>o 


J.IRISE  »  IEXEC 
,  SSAM  .  THE 
,  VPR  *  H 
.  ID1STR  ,  SPAR1 
,  RADMAX  *  XGZ 


1S1N 

TMPl 

HBURST 

HBTAPE 

YGZ 


ISOUT 

TMP2 

SCLDHB 

FSUM 

TGZ 


DIFU  7 

•••***********i*****«******************************************#***DIFu  8 

DIFU  9 

common  /sen/  j0ET1DlljliIR|SE  ,  ,EXEC  ,  „„  .  nous  .  Sjru  15 

1  ?SM  :  rR  :  5f  :  I"E  :  'JEt* :  KU  :  VSi  15 

4  TID(4(]J,  RMIN  .  ID1STR  »  SPAR1  »  HBTAPE  .  FSUM  ►  DIFU  14 

5  SPAR4  «  SUBRAD  »  RADMAX  *  XGZ  »  YGZ  »  TGZ  DIFU  15 

DIFU  16 

...«..«..*..*.**.******‘********»*********#*‘»**#**,‘***<,**0*°**D1FU  17 

DIFU  18 

COMMON  /SETS/  Q„00  JJJJJ 

BZ  ,QZ2  »BZZ  .8222  DIFU  20 

.DELTAX  .DGX  .DGY  .D1FC0N  DIFU  21 

.DIFADJ  .FMASI50Q1  .FMASS1200J  > 1 C ( 1 6 )  DIFU  22 

.ICON  » I CTR  .!H  , I0T 1 181  DIFU  23 

i  ,jp  , JPQUT  . ITT  1 181  .IV  DIFU  24 

p  .jCIlfl]  .JIN  .JOUT  # JPOUT  DIFU  25 

’  ,KTR 15001  .KTAPE  .LAST  .MAPRUN  DIFU  26 

|  .MARRAY  .MIN  .MXREO  D  FU  27 

I  ,N  ,NA  . NBZX  .NBZX2  DIFU  28 

,NBZY  .NCL  .NE  .NF  DIFU  29 

>  ,NIJ  » NMAP  »NMAX  .NOX  DTFU  JU 

I  .NPI211  .NREQ  .NS  .NTAPES  DIF'J  31 

I  .NTAPET  .NTASK  .NXMAP  .NYMAP  DIFU  32 

i  ,Ym!N  » PS (5001  .PSIZEI2C0I  .PACT1200!  DIFU  33 

i  .ROPART  . T 1 500 1  . Tl  DIFU  34 

1  , t2  .TLIMIT  , X l 500 1  .XF  DIFU  35 

S  ,  xO  ,XMAX  .XMIN  . XNMAP  DIFU  36 

>  .XI  .  X2  »X3  .X4  DIFU  37 

L  » Y 1 5 0 0  1  .YF  .YO  .YMAX  DIFU  38 

»**•.*•*•«**••*•**•• **.********************************************DIFU  40 

DIFU  41 

COMMON  /SET4/  OMAP14000I  DIFU  42 

DIFU  43 

DIFU  45 

THE  VARIABLE  DlFCON  HOLDS  AT  THIS  POINT  THE  PRODUCT  3.0*DIFC0N  DIFU  46 
WHERE  DlFCON  ORIGINALLY  WAS  PUT  IN  AS  AN  ATMOSPHERIC  DIFUSION  DIFU  47 

CONSTANT.  _  _  _  _ _ ...» . . 


COMMON  /SET3/ 

1  RZ 

•  BZ2 

.BZZ 

1 

o  BZ22 

2 

.DELTAX 

.DGX 

.DGY 

.DlFCON 

3 

.DIFADJ 

.FMASI500 I 

•  FMASS I  200 I 

.ICI16I 

4 

.ICON 

.  I  CTR 

.  IH 

.I0TI181 

5 

.  IP 

.  1P0UT 

.ITTIlfll 

.IV 

6 

.JCIlfl] 

.JIN 

.JOUT 

.JPOUT 

7 

,KTR 15001 

.KTAPE 

.LAST 

.MAPRUN 

a 

.MARRAY 

•  .MIN 

.MXREO 

.NBZX2 

9 

.N 

.NA 

.NBZX 

1 

.NBZY 

.NCL 

.NE 

»NF 

2 

.  N I  J 

.NMAP 

.NHAX 

.NOX 

3 

.NPI21I 

.NREQ 

.NS 

.NTAPES 

4 

.NTAPET 

.NTASK 

. NXMAP 

.NYMAP 

5 

» YM !  N 

.PSI5001 

. PS  I ZE ( 2G0 1 

•PACT ( 200 ! 

6 

.ROPART 

. T 1 50  U I 

.Tl 

7 

« T2 

.TLIMIT 

.  X 1 500  ) 

» XF 

8 

.XO 

.XMAX 

.XMIN 

.XNMAP 

9 

.XI 

>  X2 

»X3 

,X4 

1 

»  Y  1 5  G  n ) 

.YF 

» YO 

,  YMAX 

COMMON  /SET4/ 

OMAP (40001 

WHERE  DlFCON  ORIGINALLY  WAS  PUT  IN  AS  AN  ATMOSPHERIC  DIFUSION  DIFU  47 

CONSTANT  DIFU  48 

8Z22  HASTHE  SQUARE  OF  BZ/2.0  .THE  KIDTH  OF  THE  CLOUD  SUBDIVISION. DIFU  49 

DIFU  50 

FORMAT (53H  DIFFUSIVE  GROWTH  OF  CLOUD  SUBDIVISIONS  IS  EXCESSIVE. .3XDIFU  51 
1.3HX*  FU.3.3HY*  Fll.31  DIFU  52 

D  l  r  U  53 

,*.******.*,.*, ****«»*»***«*#*****«*********************************DIFU  54 


DATA  NGOOF  /0/ 

C 

RZ2«S0RT I DlFCON* ITIIPJ -TGZ 1*BZ221 
IFIRZ2  .LE7BZ21  RETURN 
RZ2-8Z2 
ngoof*ngoof*i 

IFINGOOF  .GT.O  .AND. NGOOF  .LT.50)  WRI TE 1 1 SOUT. 1 ) X I  IP  I . Y I  IP  I 

RETURN 

END 

SI8FTC  LETSG  LIST, BECK. M94/2 


►DIFU  *5 
DIFU  56 
DIFU  57 
DIFU  58 
DIFU  59 
DIFU  60 
DIFU  61 
DIFU  62 
DIFU  63 
DIFU  64 
DIFU  65 
LETS  0 


* 


SUBROUTINE  LETSQO 

LETS 

1 

e 

96  FEB  67 

LETS 

2 

c 

p;  flusser  technical  operations 

RESEARCH 

SR  LETSBO 

LETS 

3 

c 

LETS 

4 

C»** 

this  subroutine 

reads  the  particle 

PARAMETERS  FROM  TAPE  IPOUT 

LETS 

3 

c*** 

and  CAULS  THE  APPROPRIATE  SUBROUTINES  TO  PROCESS  THEM. 

LETS 

6 

C*o* 

SUBROUTINES  called  by  LETSQO...'. 

LETS 

7 

C***MQC  *  21  NO  *  COUNT* 

SHIFT. CROP. 

LETS 

8 

C***N8*  NUMBER  OF  EMPTY  SPACES. 

LETS 

9 

C*** 

marray*  oumensibn  OF  PARTICLE  array 

LETS 

IQ 

c*** 

NPUi*  NUMBER  OF  PARTICLES  FALLING 

,  IN  ITH  ; 

ZONE 

LETS 

11 

e*** 

KTRIII*  ZONE  1NDENTIFICATION  NUMBER  OF  ITH 

PARTICLE 

LETS 

12 

c**« 

NIJb  NO.  OF  PARTICLES  IN  NECT  DATA 

BLOCK. 

LETS 

13 

c 

LETS 

14 

c  ** 

►****LETS 

15 

c 

LETS 

16 

COMMON  /SE71/ 

LETS 

17 

1  DIAM 

<DETID(12)» (RISE 

.  IEXEC 

.  ISIN  .  1SOUT 

.  LETS 

16 

2  SO 

.  SPAR  .  SSAH 

.  THE 

.  TMPl  .  TMP2 

,  LETS 

19 

3  T2M 

.  U  .  VPR 

.  W 

.  HBURST  »  SCLDHB 

,  LETS 

20 

4  TIDI401.  RHIN  .  (OISTR 

.  SPAR1 

.  MBTAPE  .  FSUM 

.  LETS 

21 

5  SPAR4 

.  SPARS  .  SPAR6 

.  SPAR 7 

.  SPARS  .  SPAR9 

LETS 

22 

COMMON  /SET3/ 

LETS 

23 

1  BZ 

,BZ2 

.BZZ 

,8222 

LETS 

24 

2  .DELTAX 

.  OQX 

•  OCT 

.DIFCON 

LETS 

25 

3  .DIFADJ 

.FMASI500 J 

.FMASSI2Q0)  . ICt 16) 

LETS 

26 

4  .ICON 

.  I CTR 

.IN 

.IOTI18J 

LETS 

27 

5  .IP 

. IPOUT 

. ITT! 181 

.IV 

LETS 

26 

6  ,  JCC16  J 

.JIN 

« JOUT 

, JPOUT 

LETS 

29 

7  .K7RC506J 

.KTAPE 

.LAST 

.MAPRUN 

LETS 

30 

6  .MARRAY 

.MIN 

.MXREQ 

LETS 

31 

9  .N 

.NA 

*  NBZX 

•NBZX2 

LETS 

J2 

1  .N3ZY 

,  NCL 

.Nfi 

,NF 

LETS 

33 

2  .NiJ 

.NMAP 

.  NMAX 

.NOX 

LETS 

34 

3  .NPI21I 

.NREO 

.NS 

.NTAPES 

LETS 

35 

4  .NTAPET 

.NTASX 

• NXMAP 

.NYMAP 

LETS 

36 

3  .  YMIN 

•PSI500I 

•  PSIZE 1 200 1  i PACT  1 200  J 

LETS 

37 

6  .ROPART 

.TI900I 

,T1 

LETS 

38 

7  .T2 

.TLIMIT 

. X 1 500 ) 

,  XF 

LETS 

39 

8  .XO 

.  XNAX 

.  XMIN 

, XNNAP 

LETS 

40 

9  .XI 

»X2 

»X3 

,X4 

LETS 

41 

1  , YI500I 

*  YF 

,YO 

,  YMAX 

LETS 

42 

COMMON  /SET4/ 

OMAPI40G0) 

LETS 

43 

c 

LETS 

44 

c  *• 

»****LET8 

45 

c 

' 

LETS 

46 

DATA  PROORM/fiHLfcTSQO/ 

LETS 

47 

c 

LETS 

46 

c  *• 

*****LETS 

49 

c  •* 

►«**#LETS 

50 

c 

LETS 

51 

NE»HARRAY 

LETS 

52 

M«JIN*1 

LETS 

53 

SO  2  ts&.K 

LETS 

54 

2  NPlll*0 

LETS 

55 

DC  3  i * U MARRAY 

LETS 

56 

3  NTH! I 1*1 

LETS 

57 

ftfSlBK  IIS  TO 

NtN 

LETS 

56 

4  READ  IlBOUTiNIJ 

LETS 

59 

c*«* 

ARE  ME  DONE  f; , . 

8*YESj  9*N0. 

LIT* 

60 

266 

* 


s  . 


p 

i 


IF [ N I J J  5,8,9  LETS  61 

5  jRR0R=-5  LETS  62 

7734  CALL  ERRORIPROGRM, IRRQR, ISOUTJ  LETS  63 

C***0UMP  AND  RETURN  LETS  64 

8  CALL  CROP  LETS  65 

GO  TO  18  LETS  66 

9  IF  IN! J-MARRAY)  11.11.10  LETS  67 

10  IKRORs-lO  LETS  68 

GO  TO  7734  LETS  69 

C**»  IS  THERE  enough  ROOM  TO  read  NEXT  DATA  BLOCK...  LETS  70 

C***  12*  YES,  PROCEED,  SHIFTING  ZEROS  IF  NECESSARY.  LETS  71 

11  IF  f NI J-NE 1  12,12,15  LETS  72 

12  GO  TO  NSN, 1100,200)  LETS  73 

100  ASSIGN  200  TO  NSN  LETS  74 

C***  13*  READ  PARTICLE  PARAMETERS  DECREMENT  EMPTY  SPACES,  PROCESS  LETS  75 


C***PARTICLES  READ  IN 

AND  READ  NUMBER 

OF  PARTICLES  IN  NEXT 

LETS 

76 

c***  data  block. 

LETS 

77 

13  READ  CIPOUTlIXtl  J»Ym.Tm,PSII),FMAS(II»I*l,NIJI 

LETS 

78 

NE=NE-NIJ 

LETS 

79 

CALL  PROC 

LETS 

60 

GO  TO  4 

LETS 

81 

200  CALL  ZERO 

LETS 

82 

GO  TO  13 

LETS 

83 

15  call  count 

LETS 

84 

call  shift 

LETS 

85 

GO  To  11 

LETS 

66 

18  RETURN 

LETS 

87 

END 

LETS 

88 

SIBFTC  MAP X  LIST. DECK, M9A/2 

MAPX 

0 

TUHROUTINE  MAP 

MAPX 

1 

C  26  FEP  67 

MAPX 

2 

C  T.W.5CHWENKE 

TECHNICAL  OPERATIONS  RESEARCH  SR  MAP 

MAPX 

3 

C 

MAPX 

4 

c  **♦****«•*? **•******♦•**», *»o*»*«*******»*»»**************************mAPX 

5 

c 

MAPX 

6 

COMMON  /SET1/ 

MAPX 

7 

1  D  1  AM 

,nETHUl2)#IRISF 

,  IEXEC  ,  ISIN  ,  ISOUT 

9 

MAPX 

8 

2  SD 

,  SPAR  ,  SSAM 

,  THE  ,  TMP1  ,  TMP2 

9 

MAPX 

9 

3  T2M 

.  U  ,  VPR 

,  W  ,  HBURST  ,  SCLDHB 

9 

MAPX 

10 

4  TIPI40) 

,  R*IN  ,  IDISTR 

,  SPAR1  .  M8TAPE  ,  FSUM 

9 

MAPX 

11 

5  SPAR4 

.  S3AR5  ,  SPAR6 

.  XGZ  .  YGZ  .  TGZ 

MAPX 

12 

COMMON  /SFT3/ 

MAPX 

13 

1  8Z 

,BZ2 

<  BZZ  ,9222 

MAPX 

14 

2  .OELTAX 

« DUX 

, DGY  .DIFCON 

MAPX 

15 

3  »  D IF  AD J 

.FMASI500 ) 

, FMASS 1 200 )  .ICI18I 

MAPX 

16 

4  .ICON 

,  ICTR 

, I H  .I0TI181 

MAPX 

17 

5  ,  IP 

,  IPOUT 

, I TT [ 18 1  .IV 

MAPX 

18 

6  ,JCI18) 

.JIN 

, JOUT  , JPOUT 

MAPX 

19 

7  .KTR1500) 

•  , KTAPE 

.LAST  .MAPRUN 

MAPX 

20 

8  .MARRAY 

.MIN 

, MXREQ 

MAPX 

21 

9  ,  N 

,  NA 

,  NBZX  , NBZX2 

MAPX 

22 

1  » NBZY 

.NCL 

,NE  , NF 

MAPX 

23 

2  .NI  J 

,  NMAP 

, NMAX  , NOX 

MAPX 

24 

3  , NP  1 23  J 

,  NREO 

, NS  , NTAPES 

MAPX 

25 

4  , NTAPET 

.NTASK 

, NXMAP  .NYMAP 

MAPX 

26 

5  , YM I  N 

.  PS  C  500 1 

. PS  I ZE I  200  I  , PACT  12001 

MAPX 

27 

6  .ROPART 

, T 1 500 )  »  Tl 

MAPX 

26 

7  ,T2 

.TLIMIT 

, X 1 500 )  , XF 

MAPX 

29 

8  ,  XO 

.XMAX 

»  XM I N  » XNMAP 

MAPX 

30 

9  ,X1 

,  X2 

,X3  ,X4 

MAPX 

31 

OOOO  OflO 


1 

2 

3 

4 

5 

6 
7 
6 

9 

10 
11 
12 

13 

14 

15 

16 
17 
10 

19 

20 


21 

22 

23 

24 

25 

26 
27 


C 


100 


C 

C 


1  . Y 1300 1  .YF  ,YQ  , /MAX 

MAPX 

32 

COMMON  /SET4/  OMAPI4000) 

MAPX 

33 

COMMON/OUTPUT/ 

MAPX 

34 

1  FISNUM  ,FP  (200)  »FW  , I  TAB  ,  JGO 

MAPX 

35 

2  .MASCHM  .sigmas 

MAPX 

36 

DIMENSION  JHAP 120 ) 

MAPX 

37 

MAPX 

30 

***** 

**MAPX 

39 

MAPX 

40 

FORMAT  1 1H1»5H8TRJP13) 

MAPX 

41 

FORMAT ( /IX* 1916 1 

MAPX 

42 

FORMAT 115X21HTM0-1 I NE  E  FORMAT  MAPI 

MAPX 

43 

F0RMAT(3X.19F6.3) 

MAPX 

44 

FORMAT (15X26HTH0-L I NE  F11.3  FORMAT  MAP.l 

MAPX 

45 

FORMAT 1 16H0 DISPLAY  METHOD  |4,33H  IS  NOT  AVAILABLE.  USED  METHOO  1 

. JMAPX 

46 

FORMAT 1//15X.28HTHE  OUTPUT  PRESENTATION  IS  A1 

MAPX 

47 

FORMAT C//15X.25HTHE  QUANTITY  PRESENTED  1ST 

MAPX 

48 

FORMAT ( 15X*27HA  COUNT  OF  GROUNDED  WAFERS.) 

MAPX 

49 

FORMAT (15a* 3SHDOSE  RATE  NORMALIZED  TO  TIME  H*1  HOUR • 1 

MAPX 

50 

FORMAT (15X* 2 OHDOSE  RATE  AT  TIME  H*F10.1»9H  SECONDS.) 

MAPX 

51 

FORMAT (15X*32HDOSE  ACCUMULATED  BETWEEN  TIME  H*Fl0.1.22H  SECONDS 

ANMAPX 

52 

ID  INFINITY.) 

MAPX 

53 

FORMAT (15X.32HD0SE  ACCUMULATED  BLTWEEN  TIME  H+Flf).l,12M  AND 

TIME 

HMAPX 

54 

1*F10.1#9H  SECONDS.) 

MAPX 

55 

FORMAT ( 15X.34HTOTAL  MASS  OF  DEPOSITED  PARTICLES.) 

MAPX 

56 

FORMAT (15X.44HT0TAL  PARTICLE  MASS  DEPOSITED  BETWEEN  TIMES  FlO.i, 

5HMAPX 

57 

1  AND  F10.1.9H  SECONDS.] 

MAPX 

58 

FORMAT I/1X.F7. 0.3X. 2 ( 10X. 5H**«**. F12, 0. 3X ) *20X»3H*****,/1 

MAPX 

59 

FORMAT ( 15X* 41H ASSUMES  ALL  PARTICLES  ARE  CROUNDEb  BY  Tl.I 

MAPX 

60 

FORMAT ( 15X* 17HACT ! V I TY  AT  TIME  Fl0.1,19H  DUE  TO  MASS  CHAIN 

14! 

MAPX 

61 

FORMAT I15X*26HMULT I PLE  BURST  BINARY  TAPE1 

MAPX 

62 

FORMA? (15X* 31H8R0UND  ZERO  IS  LOCATED  AT  X  a  F10.1.8H  ,  Y 

«  F10 

•  1MAPX 

63 

1) 

MAPX 

64 

FORMAT  1 1H1*41X*36HY»C00R0I NATE  SCALES  FOR  SIDES  OF  MAP/1H0) 

MAPX 

65 

FORMAT I//1X.F13.0.92X.F13. 0) 

MAPX 

66 

F.0RMAT(15X*46HTIME  (SECONDS!  OF  ONSET  OF  FALLOUT  DEPOSITION 

.) 

MAPX 

67 

FORMAT (15X*50HTl ME  ISECONDSl  OF  CESSATION  OF  FALLOUT  DEPOSITION. 

)  HAPX 

68 

FORMAT !15X*50HDiAHS7ER  (MICRONS!  OF  SMALLEST  DEPOSITED  PARTICLE. 

)  MAPX 

69 

FORMAT tl5X*49HS I AME TER  (MICRONS)  OF  LARGEST  DEPOSITED  PARTICLE.) 

MAPX 

70 

FORMAT 1 15X . 58HMASS  DEPOSITED  (KGM/M**21  BY  PARTICLES  IN  THE 

SIZE 

PHAPX 

71 

1ANQE  »Fl2.5*4M  TO  .F12.5*  9H  MICRONS,! 

MAPX 

72 

FORMAT H5X* HOUR  NORMALIZED  DOSE  RATE  RESULTING  FROM 

PART ICLMAPX 

73 

1ES  IN  THE  SIZE  RANGE  .F12.5.4H  TO  .F12.5.9H  MICRONS.) 

MAPX 

74 

MAPX 

75 

***** 

**MAPX 

76 

**MAPX 

77 

MAPX 

78 

DAT:\  SITLUM.INC.LREW/  6MMULTIB.19. 0/ 

MAPX 

79 

MAPX 

80 

IFIHAPRUNJ  101*100.101 

MAPX 

01 

TINC»5.O*D0X 

MAPX 

82 

XCOORDaXMINoDGX 

MAPX 

83 

VINC«INC 

MAPX 

84 

XCINC  YlNC«DGX 

MAPX 

85 

KML«NWZX2  t 

MAPX 

66 

NX«NXMAP?NrZX2*NBZX2 

MAPX 

07 

LIFT  IS  USED  HERE  AS  A  TEMPORARY  STORAGE 

MAPX 

88 

L8FTa|XMAX*X2)/i&X 

MAPX 

89 

PRINT  NAP  TITLE 

MAPX 

90 

WRITE  (ISOUT.7) 

MAPX 

91 

246 


c 

SELECT  APPROPRIATE  D I  SPLAT  OPTION  0006 

MAPX 

92 

IF  [  JCIini47.147.131 

MAPX 

93 

131 

IFI  JC(1  3-6)132.132.147 

MAPX 

94 

130 

jcm*i 

MAPX 

95 

132 

M*jcm 

MAPX 

96 

GO  TO  1141,142,143.144,145,146 J,N1 

MAPX 

9/ 

141 

ASSIGN  150  TO  N2 

MAPX 

96 

WRITE  rlSOUT.3) 

MAPX 

99 

GO  TO  102 

MAPX 

100 

1«2 

ASSIGN  151  TO  N2 

MAPX 

101 

WRITE  IISOUT.53 

MAPX 

102 

GO  TO  102 

MAPX 

103 

143 

WRITE! JS0UTt19) 

MAPX 

104 

ASSITN  301  TO  N2 

MAPX 

105 

IFU.REW.NE. 03  GO  TO  1431 

MAPX 

106 

lrew=i 

MAPX 

107 

REWIND  HRTAPE 

MAPX 

106 

1431 

WRITE  [MBTAPFJBITL'JM 

MAPX 

109 

WRITEIMBTAPEIXMlN.XMAX. YMIN. YMAX.DGX.DGY 

MAPX 

110 

GO  TO  10? 

MAPX 

111 

C 

MAPX 

112 

c*«** 

113 

144 

continue 

MAPX 

114 

145 

CONTINUE 

MAPX 

115 

146 

continue 

MAPX 

116 

c  *  *  »  ★ 

******* **************** *mapx 

117 

C 

MAPX 

118 

147 

WRITE  (ISOIIT.63N1 

MEPX 

119 

GO  TO  130 

MAPX 

120 

101 

KKL  =  1 

MAPX 

121 

NX=NXMAP-NPZX2 

MAPX 

122 

C 

left  IS  USED  HERE  AS  A  TEMPORAPY  STORAGE 

M»PX 

123 

IEFT=(XMA/.X1]/DGX 

MAPX 

124 

GO  TO  l70i. 

KAPX 

125 

C  102 

PRINT  ORD.NaTE  DESCRIPTION 

MAPX 

126 

C 

MAPX 

127 

102 

WHITE  (ISOUT.fc] 

MAPX 

128 

GO  TO  [161,162,163,164,165,166,167,166,169 

« 171,172, 173, 174, 175, 176MAPX 

129 

1,177,176,179,170,170) ,NREO 

MAPX 

130 

161 

WRITE  US0tlT,9] 

MAPX 

131 

GO  TO  170 

MAPX 

132 

162 

WRITE  f  I  SOIJ  T  ,10) 

MAPX 

133 

GO  TO  170 

MARX 

134 

163 

WRITE  IISODT.llJTl 

MAPX 

135 

GO  TO  170 

KAPX 

136 

164 

WRITE  f  I SOUT , 1? ) T1 

MAPX 

137 

GO  TO  170 

MAPX 

138 

165 

WRITE  [ I SOUT » 13  3  T1 »  T? 

MAPX 

:  39 

GO  TO  1 7 U 

MAPX 

140 

166 

WRPE  IIS0UT.14) 

MAPX 

141 

GO  TO  170 

MAPX 

142 

167 

WRITE  I I SOUT . 15 ) T1 , T2 

MAPX 

143 

GO  TO  l.'O 

MAPX 

144 

166 

WRITE  1 1 SOUT , 13  3 T1 , T2 

HAPX 

145 

WRITEUSOUT,17] 

MAPX 

146 

30  TO  170 

MAPX 

147 

169 

WRITE  1 1 SOUT , 12  3  T1 

MAPX 

J  *8 

WRITE  ( I SOUT ,173 

MAPX 

5  ^ 

GO  TO  170 

MAPX 

150 

171 

WRITE  1 1 SOUT  » 18  J  T1 , MASCHN 

MAPX 

151 

o 

Km/ 


2U9 


■' 

WRITEIISOUT.17) 

HAPX 

152 

80  TO  170 

HAPX 

153 

172 

WRITE  U50UT.23J 

HAPX 

154 

00  TO  170 

HAPX 

155 

173 

WHITE  IIS0UT.241 

MAPX 

156 

00  TO  170 

MAPX 

157 

174 

WHITE  IIS0UT.251 

HAPX 

158 

GO  TO  170 

MAPX 

159 

175 

WRITE  IIS0UT.26J 

MAPX 

160 

GU  TO  170 

MAPX 

161 

176 

WRITE  IIS0IIT.27J  T1.T2 

MAPX 

162 

GO  TO  170 

MAPX 

163 

177 

WRITE  IISOUT.28J  T1.T2 

MAPX 

164 

GO  TO  170 

MAPX 

165 

C 

MAPX 

166 

POINTS  ********************* 

i***MAPX 

167 

17* 

CONTINUE 

MAPX 

168 

179 

CONTINUE 

MAPX 

169 

C*«»*i 

POINTS  ******>************** 

***MAPX 

170 

C 

MAPX 

171 

170 

WRITE  USOUT.20J  XGZ.YGZ 

MAPX 

172 

inJCllJ.CO.33  GO  TO  1702 

MAPX 

173 

C 

MAPX 

1/4 

C 

PRINT  A  PAIR  0^  PASTE-ON  V  SCALES 

HERE 

MAPX 

175 

WRITE  ( I SOUT j 21 J 

MAPX 

176 

YV«YHIN*DGV*FL0ATINTMAPJ 

MAPX 

177 

DO  1701  J*1 » NYMAP 

MAPX 

178 

WRITE  IIS0UT.221YY.YV 

MAPX 

179 

1701 

yy«yy-dgy 

HAPX 

180 

1702 

IFILEFT-NX)  1021.1022.1022 

MAPX 

181 

1021 

NX«LEFT 

MAPX 

182 

1022 

HN»Na/UNCJ 

MAPX 

183 

H»MH*1 

HAPX 

184 

C 

LEFT  IS  USFD  HERE  AS  THE  NUMBER  OF 

PRINT  COLUMNS  IN  THE  LAST 

MAPX 

185 

C 

PRINTER  STRIP 

MAPX 

186 

left»nx*-mm*iincj 

MAPX 

187 

IF  ILEFT.NF.OJ  GO  TO  2023 

MAPX 

188 

M  *  MM 

MAPX 

189 

LEFT  «  INC 

MAPX 

190 

C 

STRIPS 

MAPX 

191 

2023 

DO  110  ISTRIPul.M 

MAPX 

192 

HAPRUN»MAPRUN*1 

MAPX 

193 

IF  UCI1I.EQ.3J  GO  TO  1023 

MAPX 

194 

XC2«XC00RD*TINC 

MAPX 

195 

XC3*XC2+TINC 

MAPX 

>96 

wr:te  iisout.ijmaprun 

MAPX 

197 

WRITE  IlS0UT.161xC00RD.XC2.XC3 

MAPX 

198 

1023 

KLaXKL^tNYMAP-1 J*NXMAP 

MAPX 

l'»9 

I F I  ISTRIP-MJ103.104.103 

MAPX 

200 

104 

KlNC»LEFT-l 

MAPX 

201 

VLEFT«LEFT 

MAPX 

202 

xcin»vleft*dgx 

MAPX 

203 

GO  TO  1031 

MAPX 

204 

103 

kinc«:nc*i 

MAPX 

205 

XC 1  N<*XC  i  NO 

MAPX 

206 

1031 

continue 

MAPX 

207 

KLINX  •  K  JNC*1 

MAPX 

208 

lFCJCtll.gO.3J  WRITEIMBTAP61NYMAP, 

XL  INK 

HAPX 

209 

C 

MAPX 

210 

C 

ROWS 

MAPX 

211 

230 


DO  200  J=1,NYMAP 
KH*KL*K I NC 
KDC  =  0 

DO  201  K=KL.KH 
201  FSUMsFSUM*OMAPtK] 

C 

c  numbers  within  rows 

DO  300  Ks«L»KH 

kdc=kdoi 

C  TRANSFER  TO  CODfc  FOR  SELECTED  PRESENTATION 

GO  TO  N2. 1150.151, 3011 
C 

C  150  CODE  FOR  POWER  OF  TEN  DISPLAY 

150  IF(OMAP{KH105,106,107 

105  ASSIGN  121  TO  N3 
OMAP(KJ«-OMAP(K] 

GO  TO  109 

107  ASSIGN  300  TO  N3 
109  H  =  ALOG1 0  I OMAP I K ] ] 

Hl=AMOPlH,1 ,0] 
jMAPIKDC]sH-Hl 

IF  I JMAF IKDCJ .EO.O] JMAPIKDCjsO 
OMAP[K)*10.0**H1 
I FlOMAP IK  1-9.999 1115. 115, 1091 
1091  OMAP(K)«OMAPIK]/JO.O 
jMAPCKDCJrjMAPlKnCJ-l 
GO  TO  115 

106  JHAP[KDC]*0 
GO  TO  300 

115  CO  TO  N3, 1300.1211 
C  121  RESET  SIGN  OF  MAP  COORDINATE 
121  OMAPtKJa-OMAPIK] 

GO  TO  300 
C 

C  151  CODE  FOR  TWO-LINE  Fli.3  DISPLAY 

151  jMAP(KDC]=OMAPfK)/10,0 
ZMAPsJMAPIKDC] 

OMAPtKl«ONAPtKl-fZMAP*10.0) 

300  CONTINUE 

WRITE  IISOUT.21 I JMAPIK] ,K*1,K0C1 
WRITE  USOUT.4) lOMAPIKl ,K=KL.KH1 
GO  TO  200 

301  WRITE  IMRTAPF)  lOMAPCK I ,K*KL.KU) 

200  KLsKL-NXMAP 

IF  UCtl) .E0.31  GO  TO  110 
WRITE  I  IS0IIT,16)XC'J0RD.XC2.XC3 
XCOORDaXCOORD-XCjN 
110  KKL=KKL-TNC 
RETURN 
END 

SIBFTC  PRC  LIST, DECK, M94/2 

SUBROUTINE  PROC 
C  ?6  FEH  67 

C  P.  FLUSSER  TECHNICAL  OPERATIONS  RESEARCH  SR  PROC 
C***THJS  SUBROUTINE  COMPUTES  A  NUMBER,  KTRII1,  WHICH  DETERMINES 
C*** 1 NTO  WHICH  ZONE  OR  BUFFER  ZONE  THE  l  TH  PARTICLE  HAS  LANDED. 

C***  IT  SETS  KTRUJaO  IF  THE  I  Th  PARTICLE  LANDED  IN  THE  FIRST  ZONE, 
C***  AND  CALLS  SUBROUTINE  CALC  TO  COMPUTE  THE  CONTRIBUTION  TO  THE 
c*«*  final  result  OF  This  PARTICLE,  it  also  computes  a  new  value  for 
c*»*  FOR  NE,  THE  NUMBER  OF  EMPTY  SPACES  IN  THE  PARTICLE  ARRAY. 


MAPX  212 
MAPX  213 
MAPX  214 
MAPX  215 
MAPX  216 
MAPX  217 
MAPX  218 
MAPX  219 
MAPX  220 
MAPX  221 
MAPX  222 
MAPX  223 
MAPX  224 
MAPX  225 
MAPX  226 
MAPX  227 
MAPX  226 
MAPX  229 
MAPX  230 
MAPX  231 
MAPX  232 
MAPX  233 
MAPX  234 
MAPX  235 
MAPX  236 
MAPX  237 
MAPX  238 
MAPX  239 
MAPX  240 
MAPX  241 
MAPX  242 
MAPX  243 
MAPX  244 
MAPX  245 
MAPX  246 
MAPX  247 
MAPX  248 
MAPX  249 
MAPX  250 
MAPX  251 
MAPX  252 
MAPX  253 
MAPX  254 
MAPX  255 
MAPX  256 
MAPX  25? 
MAP!!  258 
MAPX  259 
MAPX  260 
MAPX  261 
PRC  0 
PRC  1 
PRC  2 
PRC  3 
PRC  4 
PRC  5 
PRC  6 
PRC  7 
PRC  8 
PRC  9 
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C***  FINALLY,  THE  NUN8ER  OF  PARTICLES 

THAT  HAVE  FALLEN  IN  EACH  ZONE 

PRC 

10 

C*«*  IS  COMPUTED  (NPCin. 

PRC 

11 

C 

PRC 

12 

*«« 

'•PRC 

13 

C 

PRC 

14 

COMMON  /SET1/ 

PRC 

15 

1  D! AM  ,DETID(12)»IRISE 

.  1EXEC  .  I SIN  .  ISOUT 

9 

PRC 

16 

2  SD  ,  SOAR  ,  SSAM 

,  THE  .  TMPl  ,  TMP2 

9 

PRC 

17 

S  T2M  ,  U  ,  VPR 

,  M  ,  HBURST  ,  SCLDHB 

9 

PRC 

18 

4  TiofAOi,  RMIN  ,  IDISTR 

,  SPAR1  .  MBTAPE  .  FSUM 

9 

PRC 

19 

5  SP*R4  ,  SPARS  ,  SPAR6 

.  SPAR7  ,  SPARS  .  SPAR9 

PRC 

20 

COMMON  /SET3/ 

PRC 

21 

t  BZ  ,BZ2 

,8ZZ  . BZ22 

PRC 

22 

2  .DSLTAX  » DQX 

, D6Y  . DIFCON 

PRC 

23 

3  .DIFADJ  #FMAS1500 I 

, FMASS 1200)  , ICI 18) 

PRC 

24 

4  , ICON  « ICTR 

,IH  .iomai 

PRC 

25 

5  .IP  , I  POUT 

. I TT  C 18 1  .IV 

PRC 

26 

6  .JC(18)  ,  JIN 

,  JOUT  , JPOUT 

PRC 

27 

7  »KTR{500 I  .KTAPE 

.LAST  .MAPRUN 

PRC 

28 

8  .marray  .min 

, MXREO 

PRC 

29 

9  .N  ,NA 

,  NBZX  .NBZX2 

PRC 

30 

1  .NBZY  «NCL 

» NE  ,NF 

PRC 

31 

2  .NiJ  >  NMAP 

. NMAX  , NOX 

PRC 

32 

3  »NPt2i ]  « NREQ 

,NS  , NTAPES 

PRC 

33 

4  .NTAPET  .NTASK 

, NXMAP  .NYMAP 

PRC 

34 

5  . VMIN  ,PS(500t 

.PSIZEI200I  .PACT  1 2001 

PRC 

35 

0  .ROPART 

.T1500I  ,Tl 

PRC 

36 

7  ,T2  .TLIMIT 

.  X  (500 1  ,  XF 

PRC 

37 

8  ,XO  .XMAX 

,  XM IN  , XNMAP 

PRC 

38 

9  .XI  .X? 

,X3  , X4 

PRC 

39 

1  « Y (500 ]  .YF 

•  YO  » YMAX 

PRC 

COMMON  /SET4/  OmAPUOOQJ 

PRC 

41 

C 

PRC 

42 

*** 

•PRC 

43 

C 

PRC 

44 

DATA  PR0GRM/6H  PROC  / 

PRC 

45 

C 

PRC 

46 

*** 

•PRC 

47 

PRC 

48 

C  NGONE  IS  THE  NUMBER  OF  PARTICLES 

DISCARDED 

PRC 

49 

IF ( ICTR ]  1,1.2 

PRC 

50 

C  INTO  OR  NEAR  ENOUGH  TO  I  HE  AREA 

OF  INTEREST 

PRC 

51 

1  JCTR  ■  0 

PRC 

52 

DO  107  1*1, NIJ 

PRC 

53 

iFixm-XOl  107,108,100 

PRC 

54 

108  IFIXF-Xim  107,109,109 

PRC 

55 

109  IFIYMI-VOJ  107,110,110 

PRC 

56 

110  IFIYF-Ymi  107,111,111 

PRC 

57 

111  JCTR* JCTR*J 

PRC 

58 

XlJCTRl*xm 

PRC 

59 

Y l JCTR I *Y  1 1 J 

PRC 

60 

TlJCTRJ"Tm 

PRC 

61 

PS(JCTRJ*Psm 

PRC 

62 

FMASt JCTR]aFMAS( I } 

PRC 

63 

107  CONTINUE 

PRC 

64 

C  NGONE  IS  THE  NUMBER  OF  PARTICLES 

DISCARDED 

PRC 

65 

NG0NE*NJ J-JCTR 

PRC 

66 

IF (NOONS I  20.2.52 

PRC 

67 

20  !RROR*«tO 

PRC 

68 

30  TO  7734 

PRC 

69 

ooooooooooo 


I' 


52  JPTH* JCTH»1  PRC 

0IG*XO-1.O  PRC 

DO  104  ! = JPTR, N I J  PRC 

KTRUJafl  PRC 

104  XtlJaUIG  PRC 

NE«NE*NGONE  PRC 

NIJ«JCTH  PRC 

IF  I JCTR  J  21, 15, 2  PRC 

21  !RR0R=-21  PRC 

7734  CALL  ERRORIPROGKM, IRROR, ISOUTJ  PRC 

c  *****  END  OF  PARTICLE  (CLOUD  SUBDIVISION!  DISCARDING  CODE  *********  PRC 

2  DO  9  1*1. NIJ  PRC 

R«XCII-X1  PRC 

Ks J I N*2  PRC 

DO  B  J*?,K,2  PRC 

RSR-BZ?  PRC 

IF[RJ  3,3,6  PRC 

3  I F I J-2  J  4,4,5  PRC 

4  KTRU1=0  PRC 

10  NE*NE*1  PRC 

11  I P= I  PRC 

CALL  CALC  PRC 

GO  TO  9  PRC 

5  KTH I  I J  = J-3  PRC 

NPT J-3]»NPf J-3)*l  PRC 

I F ( J-4 ]22,?5,9  PRC 

22  I RROR=-22  PRC 

GO  TO  7734  PRC 

6  R=R-DELTAX  PRC 

IF ( R 1  7,7,8  PRC 

7  KTRU)*J-2  PRC 

I F ( J-2 I  10,10,12  PRC 

1?  NP(J”2]*NPIJ*2J*1  PRC 

GO  TO  9  PRC 

25  KTR I  1 1 *2  PRC 

GO  TO  11  PRC 

8  CONTINUE  PRC 

KTRI I J  *  J I N  PRC 

NPI JINJ*NP[JINJ*1  PRC 

9  CONTINUE  PRC 

15  RETURN  PRC 

END  PRC 

SIBFTC  RNN1  LIST, DECK, M94/2  RNN1 

SUBROUTINE  RUM  RNN1 

26  FER  67  RNN1 

P.  FLUSSFR  TECHNICAL  OPERATIONS  RESEARCH  SR  RUNl  RNN1 

RNN1 

**TH I S  SUBROUTINE  IS  CALLED  IF  AND  ONLY  IF  ALL  THE  PARTICLES  THAT  RNN1 

**„*?  ON  THE  TAPE  WHICH  WILL  BE  READ  NEXT  EITHER  FALL  INTO  RNNi 

**  The  area  currently  being  considered  or  can  be  DISCARDED  rnni 

**  ALTOGETHER.  THIS  SUBROUTINE  CALLS  CALC  WHICH  THEN  COMPUTES  RNNI 

**  THE  CURRENT  REQUEST.  RNNI 

RNNI 

RNNI 

COMMON  /SET1/  RNNI 

1  DIAM  .DETI0I12J',  IHISE  .  IEXEC  ,  ISIN  ,  ISQUT  ,  RNNI 

2  SD  ,  SPAR  ,  SSAM  ,  THE  ,  TMP1  ,  TMP2  »  RNNI 

3  T2M  ,  U  .  VPR  ,  W  ,  hSURST  ,  SCIDHB  ,  RNNI 

4  TIDC401.  WHIN  ,  IOISTR  ,  SPAR1  ,  M0TAPE  ,  FSUM  ,  RNNI 


70 

71 

72 

73 

74 

75 

76 

77 

78 

79 
00 
01 
02 
03 
84 
05 
06 

87 

88 

89 

90 

91 

92 
9.3 
94 
9!J 
94 

97 

98 

99 
100 
101 
102 
1(3 
1114 
105 
116 
117 
108 

109 

110 
111 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

Xl 

12 

13 

14 

15 

16 
17 


o 
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5  SPAR4  i  SPAR5  »  SPAR6 

•  SPAR7  .  SPARS  .  SPAR9 

RNN1 

18 

COMMON  /SETS/ 

RNN1 

19 

1  tz 

.BZ2 

,9ZZ 

«BZ22 

RNN1 

20 

2  .DELTAX 

,  D8X 

,D6Y 

.DlfCON 

RNN1 

21 

3  .DIFADJ 

» FMAS 1500 ] 

.FMAS8I200I 

« ICtlS) 

RNN1 

22 

4  , ICON 

,  1CTR 

.IN 

.toms] 

RNN1 

23 

9  .IP 

» I  POUT 

« ITT  1  IS) 

.IV 

RNN1 

24 

A  .JC118) 

.JIN 

,  JOUT 

. JPOUT 

RNN1 

25 

7  .KTRC50BJ 

.KTAPE 

.LAST 

.MAPRUN 

RNN1 

26 

a  »M ARRAY 

.MIN 

.MXREQ 

RNN1 

27 

9  <  N 

.NA 

,NBZX 

.NBZX2 

RNN1 

28 

1  .NfZY 

,  NCL 

,NE 

.NF 

RNN1 

29 

2  »Nl  J 

»NMAP 

,  NMAX 

,NOX 

RNN1 

30 

3  .NPI21 ) 

.NREO 

.NS 

, NTAPE3 

RNN1 

31 

4  .NTAPET 

. NTASK 

.NXMAP 

.NYMAP 

RNN1 

32 

5  # YMIN 

. PS  1 500 1 

•PSIZEI200) 

, PACT (2001 

RNN1 

33 

6  .ROPART 

.T | 500) 

»Tl 

RNN1 

34 

7  #T2 

» TL1MIT 

, XI500) 

.XF 

RNN1 

35 

a  .xo 

.  XMAX 

,  XMIN 

. XNMAP 

RNN1 

36 

9  .XI 

•  X2 

«X3 

»X4 

RNN1 

37 

1  « Y 1500 1 

» YF 

« YO 

,  YMAX 

RNN1 

38 

COMMON  /S6T4/  OMAPI4000] 

RNN1 

39 

c 

RNN1 

40 

i***RNNl 

41 

c 

RNN1 

42 

OATA  PR0GRM/6H  RUN1  / 

RNN1 

43 

c 

RNN1 

44 

k***RNNl 

43 

t*«*RNNl 

46 

C 

RNN1 

47 

C***  ARE  THERE  ANY  CURRENT  PARTICLES 

LEFT  IN  CORE... 

RNN1 

48 

c***  have  those  particles  which  fall 

OUTSIDE  THE  AREA 

OF  INTEREST 

RNN1 

49 

C***BEEN  DISCARDED... 

RNN1 

50 

18  IFIICTRJ2.3.4 

RNN1 

51 

2  JRROR»*2 

RNN1 

52 

7734  CALL  ERROR IPRflBRH 

.  IRROR.ISOUT) 

RNN1 

53 

3  ASSIGN  200  TO  N 

RNN1 

54 

GO  TO  5 

RNN1 

55 

C***ARE  THERE  ANY  CURRENT  PARTICLES  LEFT  IN  CORE... 

RNN1 

56 

4  IFINIJI41.42.42 

RNN1 

57 

41  ASSIGN  200  TO  N 

RNN1 

58 

N!J«HARRAY 

RNN1 

59 

00  TO  43 

RNN1 

60 

42  ASSIGN  100  TO  N 

RNN1 

61 

5  READ  IIPOUTINIJ 

RNN1 

62 

iFfNIJI  6,7.8 

RNN1 

63 

C*»*ARE  MS  DONE.!. 

RNN1 

64 

6  IRROR—6 

RNN1 

65 

GO  TO  7734 

RNN1 

66 

§  READ  liPQUTlIXtl) 

.YU3.Ttn.PS 1 11. FMAS l  II.I-l.NUJ 

RNN1 

67 

45  DO  300  |*l#Nt J 

RNN1 

t>8 

C***PRILIMINARY  CHECK  OF  PARTICLES 

RNN1 

69 

eo  to  N.uaa.tso) 

RNN1 

70 

200  lFiim*Xll300.201.201 

RNN1 

71 

201  IF IX 1 1 1*X4 1212.202, 300 

RNN1 

72 

202  irtYin-YOI300.203.203 

RNN1 

73 

2«3  iriYm-Yriioo*ioo,3oo 

RNNi 

74 

100  IP'! 

RNN1 

75 

CALL  CALC 

RNNI 

76 

309  CONTINUE 

RNNi 

77 

25* 


i 


V 


oooooooooooooooooooooooooocioooooooooo 


GO  TO  10  RNN1  78 

7  RETURN  RNN1  79 

END  RNN1  80 

S1BFTC  SHIF  LIST, DECK, M94/2  SMIF  0 

SUBKOUT I NE  SHIFT  SHIF  1 

26  FEB  67  SHIF  2 


P.  FLUSSER  TECHNICAL  OPERATIONS  RESEARCH  SR  SHIFT  SHIF  3 

THIS  SUBROUTINE  WRITES  ON  THE  APPROPRIATE  TAPE  THE  PARTICLE  SHIF  4 

PARAMETERS  OF  THOSE  PARTICLES  WHICH  FALL  IN  THE  MOST  DENSELY  SHIF  5 

POPULATED  ZONE  OF  THE  AREA  OF  INTEREST.  IT  ALSO  COMPUTES  A  NEW  SHIF  6 

VALUE  OF  NF,  THE  NUMBER  OF  EMPTY  SPACES  IN  THE  PARTICLE  ARRAY.  SHIF  7 

SHIF  8 

••»•*•*••••••*• »*••**••*•»*••*• •••*****»**•***•*«•••» »*********«*«SH IF  9 

SHIF  10 

NS  «  NUMBER  OF  PARTICLES  TO  BE  WRITTEN  OUT  SHIF  11 

NE  s  NUMBER  OF  EMPTY  SPEACES  CURRENTLY  AVAILABLE  SHIF  12 

KTRII)  *  INDEX  INDICATING  INTO  WHICH  ZONE  THE  I  TH  PARTICLE  HAS  SHIF  13 

LANDED  SHIF  14 

JOUT  «  INDEX  OF  ZONE  TO  BE  WRITTEN  OUT  SHIF  15 

X.Y.T, ID.PSI.  »  PARTICLE  PARAMETERS  SHIF  16 

I OT l JOUT/2 J  =  TAPE  NUM8ER  OF  TAPE  TO  BE  USED  IN  CURRENT  WRITE  SHIF  17 

KTAPE  =  TAPE  NUMBER  OF  TAPE  TO  BE  USED  IN  CURRENT  WRITE  SHIF  18 

JIN  *  LARGEST  INDEX  APPEARING  IN  PARTICLE  CLASSIFICATION  SHIF  19 

NMAX  *  MAX  I M I M  NUMBER  OF  UNSOPTED  PARTICLES  TO  BE  WRITTEN  OUT  SHIF  20 

IN  ONE  DATA  BLOCK  SHIF  21 

jT  *  TOP  COUNTER  SHIF  22 

JB  a  BOTTOM  COUNTER  SHIF  23 


SHIF  24 
SHIF  25 
SHIF  26 


IF  NTH.NBH  OR  NTPH  ARE  ZERO.  THERE  IS  A  HULE  IN  THE 

TOP,  BOTTOM 

ORSHIF 

27 

TEMPORARY  STORAGE  RESPECTIVELY. 

IF  THESE 

variables 

ARE  1. 

SHIF 

28 

THERE  IS  NO  HOLE 

THERE 

SMIF 

29 

NHCTR  a  INDEX  KEFPING  TRACK  OF 

SPACE  AVAILABLE  FOR  INSERTION  OF 

SHIF 

30 

CONTENTS  OF  TEMPORARY 

STORAGE  AT 

the  end  of 

EXECUTION. 

SHIF 

31 

NPIII  »  NUMBER 

OF  PARTICLES  WITH  CLASSIFICATION  NUMBER  I 

SHIF 

32 

IF  LAST«0,  THE  LAST  ZONE  HAS  BEEN  SORTED. 

IF  LASTal 

THIS  STILL 

SHIF 

33 

NEEDS  TO  8F  DONE 

a 

SHIF 

34 

MARRAY  a  DIMENSION  OF  PARTICLE 

ARRAY 

SHIF 

35 

SHIF 

36 

******«•#*; 

**SHIF 

37 

SHIF 

38 

COMMON  /SET!/ 

SHIF 

39 

1  DIAM  , 

DE  T I D 1 12 ) # I R I SE 

.  IEXEC 

.  (SIN  . 

ISOUT  , 

SHIF 

40 

2  SD 

S=>AR  ,  SSAM 

,  TME 

.  IMP!  , 

TMP2  , 

SHIF 

41 

3  T2M  , 

U  ,  VPR 

.  W 

.  HBURST  . 

SCLDHB  , 

SHIF 

42 

4  T  I D  ( 4  0  I  > 

PM  I N  ,  IUISTR  ,  SPARl 

.  MBTAPE  . 

FSUM  , 

SHIF 

43 

5  SPAR4  , 

SPAR5  .  SPAR6 

,  SPAR7 

>  SPARS  • 

SPAR9 

SHIF 

44 

COMMON  /SET3/ 

s;uf 

45 

1  BZ 

<BZ2 

»BZZ 

>  BZ22 

SMIF 

46 

2  .DELTAX 

,DGX 

.  DGY 

.DIFCON 

SHIF 

47 

3  .DlfADJ 

,FMAS  1500  I 

. FMASS 1 200 1  .  1 C ( 18 1 

SHIF 

48 

4  .ICON 

,  1CTR 

.  IH 

, I0TI18I 

SHIF 

49 

5  .IP 

,  1POUT 

.ITTI18I 

.  IV 

SHIF 

50 

6  , JC 1 18 1 

.JIN 

,  JOUT 

, JPOUT 

SHIF 

51 

7  .KTR1500) 

.KTAPE 

.LAST 

.MAPRUN 

SHIF 

52 

B  .MARRAY 

.MIN 

. MXREQ 

SHIF 

53 

9  .N 

.NA 

.  N8ZX 

>  N8ZX2 

SHIF 

54 

1  .NBZY 

,  NCL 

.NE 

.NF 

SHIF 

55 

2  »NlJ 

.  NMAP 

.NMAX 

,'OX 

SHIF 

56 

255 


t 


3  « NR  1 21)  .NREO 

,  NS 

.NTARES 

SHIP 

57 

4  «NTARET  .NTASK 

, NXMAP 

•NYMAR 

SHIP 

56 

5  *  YMIN  «RSI500t 

•  PS  I ZE (200) 

, PACT  12001 

SHIP 

59 

4  .RORART 

» T  f  5  0  0 1 

»Tl 

SHIP 

60 

7  ,T2  .TLINIT 

•X 1500) 

,XF 

SHIP 

61 

•  .  XO  . XNAX 

»  aMIN 

, XNMAP 

SHIP 

62 

9  .XI  . X2 

,X3 

,X4 

SHIP 

63 

1  .Y 15001  * VF 

.TO 

,  VMAX 

SHIP 

64 

COMMON  /SET4/  OMAPI4000) 

SHIP 

65 

c 

SHIP 

6ft 

c 

••SHIP 

67 

c 

SHIP 

66 

DATA  RR00RM/6H  SHIFT/ 

SHIP 

69 

c 

SHIP 

70 

c 

••SHIP 

71 

c 

•  •SHIP 

72 

c 

SHIP 

73 

c 

ARE  HE  SORTING  THE  LAST  ZONE  ... 

3*NO,  6«VE» 

SHIP 

74 

IF (LAST)  3. 3. AO 

SHIP 

75 

c 

AO  ARE  WE  DUNRING  LAST  ZONE  «..  5»YES.  3»N0 

SHIF 

76 

AO  IFUOUT-JIN)  3*3,0 

SHIP 

77 

6 

JRROR»-A 

SHIP 

76 

GO  TO  7734 

SHIF 

79 

c 

SET  UR  COUNTERS 

SH!F 

60 

3  JT  U 

SHIF 

61 

JB  *  MARRAY 

SHIF 

82 

NTH«1 

SHIP 

83 

NSW*! 

SHIP 

64 

NTPH«0 

SHIP 

85 

nhctr«o 

SHIF 

86 

c 

IS  THERE  A  HOLE  IN  THE  TOP  JJJ  If 

YES,  EXAMINE  BOTTOM) 

SHIF 

07 

10  IFIXTRIJTJJ  9. 12.11 

SHIF 

66 

9 

JRR0R--9 

SHIF 

89 

7734  CALL  ERROR IRR08RM, IRROR, ISOUT) 

SHIF 

90 

12  NTH>0 

SHIF 

91 

GO  TO  15 

SHIF 

92 

C 

IS  JT  TH  PARTICLE  TO  BE  DUMPED  ., 

.  IF  YES,  EXAMINE  NEXT  *0 

SHIF 

93 

C 

PARTICLE.  IF  NOT,  cXAMNE  BOTTOM 

PARTICLEt 

SHIF 

94 

11  JFIKTRI JT J»JOUT I  14,13,14 

SHIF 

95 

C*«*  THIS  RARTICLE  DOES  ROT  FALL  IN  BUFFER  ZONE.  ZERC 

1  OUT 

SHIF 

96 

C*** IDENTIFICATION  NUMBER. 

SHIF 

97 

13  KTRIJTI-0 

SHIF 

98 

60  TO  777 

SHIF 

99 

14  IFIKTRIJTI.I-JOUTJ  15,1*. 15 

SHIP 

100 

c***  this  rarticle  falls  in  buffer  ZONE 

.  IT  NEEDS  TO 

BE  BOTH 

SHIF 

101 

C***  WRITTEN  OUT  AND  RETAINED.  INCREASE  IDENTIFICATION  NUMBER 

SHIF 

102 

C***  BY  one: 

SHIF 

103 

16  KTRUTlPKTRlJTln 

SHIF 

104 

777  JT«JT*1 

SHIF 

105 

IFIJT-NSI  10,10,40 

SHIP 

106 

C 

IS  THERE  A  HOLE  IN  THE  BOTTOM.,. 

IF  YES,  SEE  IF 

THERE  IS 

SHIF 

107 

C 

PARTICLE  THAT  HANTS  TO  COME  DOWN 

FROM  THE  TOP. 

IF  NOT,  EXAMINE 

SHIP 

108 

C 

particle. 

SHIF 

109 

19  IFINGMI  17,10,17 

SHIF 

110 

C 

DOfiS  PARTICLE  MANT  TO  BE  DUMPED.. 

.  IF  YES,  MOVE 

IT  TO  THE  TOP,  I 

SHIF 

111 

C 

NOT.  EXAMINE  NEXT  BOTTOM  PARTICLE 

SHIF 

112 

17  IFIKTRUBI)  23,19,20 

SHIF 

113 

19  NiK«0 

•HIP 

114 

IS  IFISTNJ  7G,GCG,7G 

SHIP 

115 

C 

«09E  TOR  TO  BOTTOM 

SHIP 

ISA 

856 


78  X  t  JB  J  =X  C  JT ) 

Y [ JB ] - Y  t  JT ) 

TtjB)*Tt JTJ 
PS l JB I *PS ( JT  3 
FMASIJB)=FMAS[JT] 

KTRt  JTJ 

NTHsO 

Nt)H*l 

C  ARE  WE  FINISHED  ..  IF  NOT,  CONTINUE,  IF  YES,  DUMP  PARTICLES 
C  COMPUTE  a  new  value  for  ne 
C***  ARE  DONE... 

eee  jb=jb-i 

IFIJ8-NS]  AO, 17, 17 
20  IFIKTRUBI-JOUTI  24,23,24 
C*«*  THIS  PARTICLE  DOES  NOT  FALL  IN  BUFFER  ZONE. 

C***  XERO  OUT  IDENTIFICATION  NUMBER. 

23  KTR ( JB ) *0 
GO  TO  26 

24  ifiktri jBj-i-j0UT)  68b, 25,888  . 

C***  THIS  PARTICLE  falls  in  buffer  zonez..  it  needs  to  BE  BOTH 
C***  WRITTEN  OUT  AND  RETAINED.  INCREASE  ID.  NO;  BY  ONE. 

25  KTR I JB ) «KTR  t  JB  J  *1 

26  I F l NTH  I  27,87,27 

27  IFINTPHJ  30,77.30 

30  !RROR=-30 

GO  TO  7734 

c  move  top  to  temporary  storage 

77  xEMPsXIJTI 
YEMP=Y[ JT] 

TEMP=T[ JT ] 

PEMPaPSlJTJ 
FEMpsFMAS  ( JT] 

KEmP=KTR[ JTI 
NTPH=1 

C  MOVE  BOTTOM  TO  TOP 

87  X  t  JT 1 *X  t  JB ) 

V l JT  S  * Y  t  JB 1 

T(JT]=T[ JR] 

PSl  JTJrPSt JB) 

FMASt JT J*FMASI JB] 

KTRt JT1-KTRI JB  1 

C**.  TO  AVOID  DUPLICATION  OF  PARTICLES,  ZERO  OUT  IDENTIFICATION 
C***  NUMBER. 

KTRt JB)«0 

NBH*Q 

NTH*1 

c***  keep  track  of  empty  space  in  bottom 

KHCTRSJB 
GO  TO  777 

40  I F  t NTPH I  67,5000,67 
C«»*  MOVE  TEMPORARY  STORAGE  TO  BOTTOM. 

67  X ( NHCTR I *XFMP 
YtNHCTR J*YEMP 
T  t  NHCTR 1 »TFMP 
PStNHCTRl»PEMP 
FMAS(NHCTRJ»FEMP 
KTR(NHCTR)«KEMP 
5000  WRITE  tKTAPE INS 

WRITE  lKTAPEIlXlI),Ym.Tin,PSCn.FMASm,!«l,NSI 
C**»  ADJUST  THE  NUMBER  OF  EMPTIES  AND  THE  PARTICLE  COUNT 
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SHIF  117 
SHIF  118 
SHIF  119 
SHIF  120 
SHIF  121 
SHIF  122 
SHIF  123 
SHIF  124 
SHIF  125 
SHIF  126 
SHIF  127 
SHIF  128 
SHIF  129 
SHIF  130 
SHIF  131 
SHIF  132 
SHIF  133 
SHIF  134 
SHIF  135 
SHIF  136 
SHIF  137 
SHIF  138 
SHIF  139 
SHIF  140 
SHIF  141 
SHIF  142 
SHIF  143 
SHIF  144 
SHIF  145 

ft*  ?  ••  4  ,  , 

<?mr  *«9o 

SHIF  147 
SHIF  148 
SHIF  149 
SHIF  150 
SHIF  151 
SHIF  152 
SHIF  153 
SHIF  154 
SHIF  155 
SHIF  156 
SHIF  157 
SHIF  158 
SHIF  159 
SHIF  160 
SHIF  161 
SHIF  162 
SHIF  163 
SHIF  164 
SHIF  165 
SHIF  166 
SHIF  167 
SHIF  168 
SHIF  169 
SHIF  170 
SHIF  171 
SHIF  172 
SHIF  173 
SHIF  174 
SHIF  175 
SHIF  176 


IFU0UT-2)  100*102.101 
ISO  f RR0S*"iOO 
60  TO  7734 

102  N6*NE*NP  1 1 } *NP 1 2 1 
*mi«9 
00  TO  110 

111  iriJOUT-JINj  103*103.10$ 

105  IRROR*S105 
90  TO  7734 

193  NE»NE*NP(JOUT) 

110  NP l J0UT*2] «NP  t  J0UT*2 1 *NP I J0UT*1 1 
NP(JOUT*1)«0 
M»tJOUTl«0 

120  RETURN 
END 

SIBFTC  SLID  LIST.0ECK.N94/2 
SUBROUTINE  SLIDE 

C  P.  FLUSSER  TECHNICAL  OPERATIONS  RESEARCH  SR  SLIDE 
C  26  FEB  67 
C 

C***SUBROUTlNE  SLIDE  MOVES  THE  CONTENTS  OF  THE  RIGHT  BUFFER  ZONE 
C***!NTO  THE  LEFT  BUFFER  ZONE  AND  ZEROS  OUT  THE  REMAINING 
C***ENTRIES  IN  THE  HAP  ARRAY. 

C***NOX  •  NUMBFR  OF  OUTPUT  GRID  POINTS  IN  THE  ZONE  ITSELF 
C*«*  COUNTING  IN  THE  X  DIRECTION. 


C***  NBZX2*  NUMBER  OF  OUTPUT  GRID  POINTS  IN  THE  BUFFER  ZONE 
C***  COUNTING  IN  THE  X  DIRECTION, 

C***  NX>  NUMBER  OF  CUTOUT  GRID  POINTS  IN  THE  20NE  ITSELF  PLUS 
C**>*  ONE  BUFFER  ZONE  COUNTING  IN  THE  X  DIRECTION. 

C***  NXMAP*  NUMBER  OF  OUTPUT  GRIO  POINTS  IN  THE  ENTIRE  MAP  .COUNTING 
C***THO  8UFFER  ZONES)  IN  THE  X  DIRECTION. 

C***  NYMAP*  NUMBER  OF  OUTPUT  GRIO  POINTS  IN  ENTIRE  MAP  COUNTING 


SHIF  177 
SHIF  17S 
SHIF  179 
SHIF  180 
SHIF  161 
SHIF  182 
SHIF  183 
SHIF  184 
SHIF  185 
SHIF  186 
SHIF  187 
SHIF  188 
SHIF  169 
SHIF  190 
SHIF  191 
SLID  0 
SLID  1 
SLID  2 
SLID  3 
SLID  4 
SLID  5 
SLIP  6 
SLID  7 
SLID  8 
SLID  9 
SLID  10 
SLID  11 
SLID  12 
SLID  13 
SLID  14 
CLIP  15 
SLID  16 


c**« 

IN 

Y  DIRECTION. 

SLID 

17 

c*** 

OMAP*  HAP  STORAGE 

SLID 

18 

c 

SLID 

19 

C  •  *1 

***«#***#l 

20 

c 

SLID 

21 

COMMON  /SET1/ 

SLID 

22 

1 

DIAM  . 

DETIDU21*  IRISE 

.  IEXEC 

.  ISIN  .  ISOUT 

*  SLID 

23 

2 

SD  . 

SPAR  .  SSAH 

.  TME 

.  THP1  ,  TMP2 

.  SLID 

24 

3 

T2M  . 

U  .  VPR 

.  N 

.  H8URST  .  SCLDHB 

.  SLID 

25 

4 

TIDI40). 

RMIN  .  I0ISTR 

.  SPAR1 

*  MBTAPE  .  FSUH 

.  SLID 

26 

5 

SPAR4  . 

SPAR5  .  SPAR6 

,  SPAR7 

.  SPARB  .  SPAR9 

SLID 

2? 

COMMON  /SET3/ 

SLID 

28 

1 

BZ 

*  BZ2 

.9ZZ 

»BZ22 

SLID 

29 

2 

.DELTAX 

,DGX 

.DAY 

.DIFCON 

SLID 

30 

3 

.DIFADJ 

.FMAS1500) 

. FMASS 12001  . ICI18I 

SLID 

31 

4 

.ICON 

» ICTR 

» IH 

.  I0TI18! 

SLID 

32 

5 

.IP 

. IPOUT 

. ITTI 18) 

.IV 

SLID 

33 

6 

.jctiai 

.JIN 

>  JOUT 

, JPOUT 

SLID 

34 

7 

•  KTR (500 ) 

.KTAPE 

.LAST 

.MAPRUN 

SLID 

35 

i 

. KARRA Y 

.MIN 

.MXREU 

SLID 

36 

9 

»N 

|NA 

.  NBZX 

. NBZX2 

SLID 

37 

1 

.NBZY 

.  NCL 

<Nfi 

,NF 

SLID 

38 

2 

»Nl  J 

»NMAP 

>  NMAX 

.NOX 

SLID 

39 

3 

.NPI21J 

.NREO 

.Nf 

, NTAPES 

SLID 

40 

4 

.NTAPfT 

.NTASK 

. NXMAP 

.NYMAP 

SLID 

41 

5 

*  YMIN 

.PSISC9I 

.PII2EI2I0)  .PAST  12001 

SLID 

42 

6 

.ROPART 

*ri5i») 

,T1 

SLID 

43 

7 

.  T2 

.TLIMIT 

.XIPOOl 

>  XF 

SLID 

44 

256 


8  .XO  » XMAX 

,  XMIN 

, XNMAP 

SLID 

45 

9  ,X1  ,X2 

*  X3 

»  X4 

SLID 

46 

1  ,  Y 1500  J  , YF 

»ro 

«  VMAX 

SLID 

47 

COMMON  /SET4/  OMAPI4000) 

SLID 

46 

C 

SLID 

49 

t**#4**+*4 

50 

51 

C 

SLID 

52 

M«N8ZX2*N0X 

SLID 

53 

NX*M 

SLID 

54 

N*0 

SLID 

55 

DO  503  J®1 , NYMAP 

SLID 

56 

DO  501  K#1  , NBZX2 

SLID 

57 

NN=N*K 

SLID 

56 

mm=m*k 

SLID 

59 

c**«  shift  buffer  zone 

SLID 

60 

501  OMAPlNNJsOMAPtMMJ 

SLID 

61 

L*N*NBZX2*1 

SLID 

62 

LMN»L*NX-1 

SLID 

63 

DO  502  I=L.LMN 

SLID 

64 

C**‘-  7ERO  OUT  WHATEVER  IS  LEFT 

SLID 

65 

502  OMAPlII»0.n 

SLID 

66 

M=»M*NXMAP 

SLID 

67 

503  N*N*NXMAP 

SLID 

68 

RETURN 

SLID 

69 

END 

SLID 

70 

SIRFTC  ZER  LIST, DECK, M94/2 

ZER 

0 

SUBROUTINE  ZERO 

ZER 

1 

C  26  FEB  67 

ZER 

2 

C  P.  FLUSSER  TECHNICAL  OPERATIONS 

RESEARCH 

SR  ZERO 

ZER 

3 

C*«*  THIS  SUBROUTINE  MAKES  ROOM  FOR  NIJ  PARTICLES  TO  BE  WRITTEN  IN 

ZER 

4 

C***  THE  PARTICLE  ARRAY  3Y  MOVING  THE 

PARTICLE 

PARAMETERS  INTO  THE 

BODY  ZER 

5 

C***OF  THE  ARRAY*. 

ZER 

6 

C*«*  JT»  TOP  COUNTER 

ZER 

7 

C**«  jg«  BOTTOM  COUNTER 

ZER 

8 

c 

ZER 

9 

10 

COMMON  /SET1/ 

ZER 

11 

1  DIAM  , DET I D  1 12  I  #  IR  ISE 

.  IEXEC 

,  IS1N  ,  1SOUT 

.  ZER 

12 

2  SD  .  SPAR  ,  SS AM 

,  TKE 

»  TMP1  ,  TMP2 

.  ZER 

13 

3  T2M  ,  U  »  V?R 

.  W 

«  HBURST  .  SCLDHB 

#  ZER 

14 

4  T I D I 40 1 #  RMIN  .  IDISTR 

.  SPAR1 

.  M8TAPE  ,  FSUK 

,  ZER 

15 

5  SPAR4  .  S»AR5  »  SPAR4 

,  SPAR7 

#  SPARS  ,  SPAR9 

ZER 

16 

COMMON  /SET3/ 

ZER 

17 

1  BZ  1 0Z2 

>  BZZ 

,  BZ22 

ZER 

18 

2  .OELTAX  , DGX 

,  DGY 

. DIFCON 

ZER 

19 

3  , D IF  AD J  , FMAS  I  50  0  ) 

, FMASS I  20 0  ]  , ICI18) 

ZER 

20 

4  .ICON  , I CTR 

*  IH 

, IOT I 161 

ZER 

21 

5  .IP  , I  POUT 

.  ITTI181 

.IV 

ZER 

22 

6  .slCIlBJ  .JIN 

,  JOUT 

. JPOUT 

ZER 

23 

7  . KTR1500  J  .KTAPE 

.LAST 

, MAPRUN 

.ZER 

24 

8  .MARRAY  , M  IN 

. MXREO 

ZER 

25 

9  . N  ,NA 

.  NSZX 

.N8ZX2 

ZER 

26 

1  . NBZT  ,ncl 

.NE 

,  NF 

ZER 

27 

2  .Nlj  , NHAP 

.  NMAX 

,NOX 

ZER 

28 

3  .NPI21J  , NREO 

»NS 

, NT  APES 

ZER 

29 

4  .NTAPET  .NTASK 

, NXMAP 

.NYMAP 

ZER 

30 

5  » YMIN  .PS15Q0J 

. PSl ZE ( 200 1  » PACT  12001 

ZER 

31 

6  .ROPART 

. T 15001 

»Tl 

ZER 

32 

7  . T2  . TLlMlT 

, X 1 500 ) 

,  XF 

ZER 

33 

o  n  o  o  n  n  ci  n  r»  o  o  o  o  n  n  o  o 


,  XM1N 

»X3 

,Y0 


*  XNMAP 
»  X4 
« YMAX 


THE  TOP,..  IF  YES,  BO  ON, 


ISOUT1 


CHECK  BOTTOM. 


HOVE  A  PARTICLE  FROM  THE 


’  #  XMAX  • XMIN  , XNHAP 

?  '*2  ,X3  ,  X4 

1  , T 1 500  1  , YF  , YO  .YMAX 

COMMON  /SETA/  OMA^ (4000 ] 

SATA  PR0GRM/6H  ZERO  / 

JT«1 

jB-HARRAY 

C**«  1 8  THERE  A  HOLE  IN  THE  TOP,..  IF  YES,  80  ON.  IF  NOT.  CHECK  BC 
if  I F  IKTR { JT I J 3 « 4, 5 

3  !RROR*»3 

7734  CALL  fiRROfHPROSRH,  IRROR,  ISOUT1 

4  JT»JT*1 

ARE  ME  DONE... 
trt JT-N|J12,2,10 

IS  THERE  MOLE  IN  THE  BOTTOM...  IF  YES,  HOVE  A  PARTICLE  FROM  1 

C***  TOP,  IF  NOT,  TRY  AND  FIND  ONE, 

-5  irtKTHCJBn6»7.a 

A  !RR0R»-6 

00  TO  7734 

C***  MOVE  PARTICLE  PARAMETERS  ANO  DECREMENT  BOTTOM  COUNTER. 

7  XUB)«XfJT3 

Y(JB1*Y(JT) 

T I J@ ) *T  t J7 ) 

PSU8)*PSUT) 

FMASIJBI-FHASI JT1 
KTRI JB)*K?FM JT J 
J0«J0-1 
00  TO  *» 

0  jB« J8-1 

ARE  THERE  ENOUQH  HOLES..., 

I F l J8-N I J ) 9 . 9, 5 

9  JRR0R*-9 
00  TO  7734 

10  RETURN 
END 

S13FTC  PAM2MD  LIST, DECK, M94/2 
SUBROUTINE  PAM2 

R  C  TOMPKINS  —  US  ARMY  NUCLEAR  DEFENSE  LABS 

OCTOBER  1966 

EXECUTIVE  PROGRAH  TOR  THE  TIME-DEPENDENT  PART  OF  THE  PARTICLE 

ACTIVITY  MODULE 
ALLED  BY  LINKS  AND  BY  CALC 


GLOSSARY 


FP 1200 ) 
STAB 
MASCHN 
SV  1 200  1 


ACTIVITY  DENSITY  IN  EACH  PARTICLE  SIZE  FRACTION 
number  OF  particle  SIZE  CLASSES 

HASS  NUMBER  REQUESTED  FOR  OUTPUT  WITH  JflO  ■  2 
FRACTION  OF  TOTAL  SURFACE  IN  EACH  PARTICLE  SIZE 
DIVtDEO  BY  FRACTION  OF  TOTAL  VOLUHE 


COHMON/riiHlN/ 

1  ABEBn  (7001 

2  , DCON  (7001 

3  ,MULt  til] 

COMMON/ 1  NDi'SE/ 


, ABUNDO (700) 
,IBRA 

,NUCLIDI700 ] 


. BRANCH  1130) 
,  I NUC 


.CAPFIS 
, HAXNUC 


ZER 

34 

ZER 

35 

ZER 

36 

ZER 

37 

ZER 

36 

ZER 

39 

ZER 

40 

.  ZER 

41 

ZER  f. 

42 

ZER 

43 

ZER 

44 

ZER 

45 

ZER 

46 

ZER 

47 

ZER 

46 

ZER 

49 

ZER 

50 

ZER 

51 

ZER 

52 

ZER 

53 

ZER 

54 

ZER 

55 

ZER 

56 

ZER 

57 

ZER 

58 

ZER 

59 

ZER 

60 

ZER 

61 

ZER 

62 

ZER 

63 

ZER 

64 

ZER 

65 

ZER 

66 

ZER 

67 

ZER 

60 

PAM2 

0 

PAH2 

1 

PAH2 

2 

PAM2 

3 

PAM2 

4 

PAM2 

5 

PAH2 

6 

PAH2 

7 

PAM2 

8 

*  PAM2 

9 

PAH2 

10 

PAM2 

11 

PAM2 

12 

PAM2 

13 

S  PAM2 

14 

PAH2 

15 

PAH2 

16 

PAM2 

17 

PAM2 

16 

PAH2 

19 

PAH2 

20 

PAM2 

21 

PAM2 

22 

PAH2 

23 

PAH2 

24 

860 


H'oasJO'vn^c^wM'oa’MO'vrAwwK  wm  no  h*  »-*  ro  i-* 


ALHFOM  . F  AC  (7,l81»F0GRNYl7.161, ISO 

( ie  i 

PAM2 

25 

.LMAX  ,XL>H  ( 7*  ia ) 

PAH2 

26 

PAH2 

27 

COMMON/UT !LTY/ 

PAM2 

28 

KOUT  •  , NPRNT  tit 1} 

PAM2 

29 

PAM2 

30 

COMHOU/OUTPOT/ 

PAM2 

31 

F1SNIIM  ,FP  ( 200  1  »FH 

.  [TAB 

,  JGQ 

°AM2 

32 

. MASCHN  .SIGMAS 

PAM2 

33 

PAM2 

3* 

common/decay/ 

PAH2 

35 

IGO  ,JD  » KDOS  .TENTER 

PAM2 

36 

.TEXIT  .TIME 

PAM2 

37 

PAM2 

36 

COMMON  /SFT3/ 

PAM2 

39 

a 2  .  BZ2 

.  BZZ 

>  3Z22 

PAH2 

40 

.DELTAX  . DGX 

,  DGY 

.  D IFCON 

PAM2 

41 

. C I F  AP J  . FHAS  C 500  1 

» FMASS (2001 

.10(181 

PAM2 

42 

.ICON  .  I  CTR 

.IH 

.  ioTuei 

PAM2 

43 

i  .IP  ,  I  POUT 

. ITT  C 18  J 

,IV 

PAM2 

44 

'  .jCIlflJ  .JIN 

.JOUT 

, JPOUT 

PAM2 

45 

» K  T  R  ( 5  0  n  3  , KTAPE 

.LAST 

.MAPRUN 

PAM2 

46 

1  >  *  A  R  R  u  Y  .MIN 

. MXREQ 

PAM2 

47 

1  .MYDUMY  . N4 

.  NBZX 

. NBZX2 

PAM2 

48 

.  K37  Y  . NCL 

.NE 

.NF 

PAM2 

49 

,NIJ  , NMAP 

.  NMAX 

.  NOX 

°AM2 

50 

1  . NP ( 21 1  , NREO 

.NS 

. NTAPES 

PAM2 

51 

i NTAPET  .ntask 

. NXMAP 

.NYMAP 

PAM2 

52 

i  . YM I N  , PS [ 50 0  J 

.PSIZEI260) 

. PACT  12001 

PAM2 

53 

i  .ROPART 

. T I 500 1 

.  T 1 

PAM2 

54 

,T2  .TLIMIT 

.XI 500/ 

,  XF 

PAM2 

55 

1  ,XO  .XMAX 

,XMJN 

. XNMAP 

PAM2 

56 

1  .XI  ,X2 

,X3 

*  X4 

PAM2 

57 

,Yt50n]  ,YF 

.YO 

.  YMAX 

PAM2 

50 

PAM2 

59 

LOGICAL  JD. IGO.KOOS.NPRNT 

PAM2 

60 

PAM2 

61 

FORMAT 

PAH2 

62 

I17H1TOTAL  PAM  OUTr-UT/9X5HPS  I  ZE22X2HFP 1 

PAM2 

63 

FORMAT 

PAM2 

64 

I5X1PE12.4.14XL12.43 

PAM2 

65 

PAM2 

66 

DO  101  «  1 #  I TA0 

IMM2 

67 

FPUI  =  0.0 

PAM2 

68 

PAM2 

69 

GO  TO  [1.2.3] « Jfcp 

PAM2 

70 

PAM2 

71 

call  gxpsr 

PAM2 

72 

IF  t C«PF I C ] 3, 3. 4 

PAM2 

73 

call  uran 

PAM2 

74 

IF  (LMAXJb.t  ,0 

PAM2 

75 

call  indcd? 

PAM2 

76 

IF[  .NOT.  ,PRNTI1‘J5  3  RETURN 

PAM2 

77 

WRITE  I KOUT .1003 

PAM2 

78 

WRITE  (KOUT. 1011  I.PSIZEm.FPlIl, 

1*1. ITABI 

PAM2 

79 

RETURN 

PAH2 

80 

CALL  HCHDEP 

PAM2 

81 

GO  TO  5 

PAM2 

82 

FND 

PAM2 

63 

GO  TO  5 

PAM2 

82 
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u  -v  v 


\ 


i 

1 

-  ! 

I lflFTC  GXT5  LIST, DECK  » M94/2 

GXTS 

0 

i  |  ) 

SUBROUTINE  GXPSR 

GXTS 

1 

i 

C 

GXTS 

2 

\ 

c 

CASSIDY  -  NRDL 

/  TOM?KINS  - 

NDL 

GXTS 

3 

c 

GXTS 

4 

c 

NOVEMBER  1966 

GXTS 

5 

CALLED  3Y  PAM2 

GXTS 

6 

COMMON/FISHIN/ 

GXTS 

7 

1  ABEQN  (7001 

, A9UND0 ( 700  I 

, BRANCH i 130 1 

.CAPFIS 

GXTS 

8 

2  » DCON  {7001 

.  I3RA 

.  INUC 

. HAXNUC 

GXTS 

9 

3  ,mult  mi 

»N\lCllZH760  ) 

GXTS 

10 

C 

GXTS 

11 

COmKON/FRYLNG/ 

GXTS 

12 

1  BSUBK  1903 

,ERM  (1851 

. JRM  1185) 

*KRM  , ECF 190) 

6XTS 

13 

C 

GXTS 

14 

3 

COi<HON/UTILTY/ 

GXTS 

15 

> 

1  ''.OUT 

.NPRNT  MSI 

GXTS 

16 

j 

C 

GXTS 

17 

COMMON 'OUTPUT/ 

GXTS 

18 

Y 

1  FISNUM 

, F  P  1200  3 

»FW 

*  I  TAB  , JGO 

GXTS 

19 

A 

2  , MASCHN 

.SIGMAS 

GXTS 

20 

J 

C 

GXTS 

21 

COMMON/DECAY/ 

GXTS 

22 

1  IGO 

.  JD 

.KDOS 

.TENTER 

GXTS 

23 

2  *  TEX  I T 

.TIME 

GXTS 

24 

C 

GXTS 

25 

COMMON  /SFT3/ 

GXTS 

26 

1  BZ 

,8Z2 

.  BZZ 

.8222 

GXTS 

27 

2  .DELTAX 

,  DGX 

.  DGY 

.DIF  CON 

GXTS 

28 

< 

i  , OIFADJ 

, FMAS 1 500  3 

.FMASSt  200 )  ,  I C ( 18  I 

GXTS 

29 

4  .ICON 

.  I CTR 

.IH 

. IOTI 18) 

GXTS 

30 

j 

5  ,IP 

, I  POUT 

» 1TT( 18) 

,IV 

GXTS 

31 

I  i 

6  , JC ( 16 ] 

.  JIN 

,  JOUT 

o  JPOUT 

GXTS 

32 

7  .KTR1503) 

, KTAPE 

.LAST 

.HAPRUN 

GXTS 

33 

9  .MARRAY 

,  M  I N 

.  MXREO 

GXTS 

34 

j 

9  .MYDUMY 

,NA 

.  NBZX 

.  NBZX2 

GXTS 

35 

\ 

1  .NBZY 

,  NCL 

.  NE 

.  NF 

GXTS 

36 

\ 

2  ,n;  j 

,  MMAP 

,  NMAX 

.  NOX 

GXTS 

37 

> 

3  , NP ! 21 1 

,  NREO 

.NS 

, NTAPES 

GXTS 

36 

1 

1 

4  .NTAPE-! 

.NTASK 

. NXMAP 

. NYMAP 

GXTS 

39 

j 

5  » !  N 

.PSI500) 

, PSIZE ! 200  S  .PACT ! 200 ! 

SXTS 

40 

, 

6  o  RC.’Aft? 

.1(500) 

.  T 1 

GXTS 

41 

7  »T£ 

,  Tu  I M I  T 

,  X  1  500 1 

,XF 

GXTS 

42 

8  ,XO 

,  XMAX 

.  XMIN 

, XNMAP 

GXTS 

43 

5 

9  ,X1 

,X2 

»X3 

.  X4 

GXTS 

44 

j 

1  ,  Y  t*S00  I 

,  YF 

.  YO 

.  YMAX 

GXTS 

45 

r 

GXTS 

46 

f 

1 

DIMENSION  XRT [ 90 ] 

GXTS 

47 

\ 

c 

GXTS 

48 

\ 

LOGICAL  JD.IGO, 

KDOS. NPRNT 

GXTS 

49 

DATA  CROSS, UNIT/100, 0,1.0/ 

GXTS 

50 

t 

1 

c 

GXTS 

51 

j 

901  FORMA7 

GXTS 

52 

1  U6H10UTPUT 

OF  GXPSR/5X13HPARTICLE  S I ZE7X24MF I SS ! ON  PROCUCT 

ACGXTS 

53 

i 

2T I V ! " Y 1 

GXTS 

54 

1 

1 

902  FORMAT 

GXTS 

55 

I 

J 

1  fex7MMICRONSl6XllH(R»M**2J/MP//I 

GXTS 

56 

f 

i 

903  FORrmT 

GXTS 

57 

\ 

i 

1  0X4*812.4, 

14XE12.il 

GXTS 

58 

I 

912  FORMAT 

GXTS 

59 

! 
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1  ;»X7HMICR0NSl8X6HR*M**2//] 

GXTS 

60 

c 

GXTS 

61 

call  batman 

GXTS 

62 

MAXMCH  *  90 

GXTS 

63 

MCH  =  0 

GXTS 

64 

DO  )  I  »  1, MAXMCH 

GXTS 

65 

1 

XRTI I 1  ■  0.0 

GXTS 

66 

c 

GXTS 

67 

DO  10  J  f  1  *  KRM 

GXTS 

66 

K  =  JHM[J] 

GXTS 

69 

IF  (EHMlJJ  111,10,12 

GXTS 

70 

11 

MCH  =  MCH  +  1 

GXTS 

71 

cokputf  mass  chain  normalization  factor 

GXTS 

72 

c 

GXTS 

73 

12 

XRTI MCH  J  s  XRTfMCH)  ♦  A BUNOO I K ] < ABS I ERM ( J }] 

GXTS 

74 

c 

GXTS 

75 

10 

CONTINUE 

GXTS 

76 

c 

GXTS 

77 

DO  20  LC'  =  1  *  MCH 

GXTS 

78 

IF  (XRT(LC) ) 20*  20 »  21 

GXTS 

79 

21 

PNEX  =  PSUPKiLCl 

GXTS 

80 

CRISS  =  CROSS**BNEX 

GXTS 

81 

RADIAL  =  EOF ( LC  J / t  UN  I T  ♦  CP  I SS*tCF  I  LC )  1 

GXTS 

82 

STRAIT  *  RAD ! aL*CR I SS 

GXTS 

83 

TNEX  =  FISNUM*XRI I L  C ) 

GXTS 

84 

DO  40  LD  s  1,  I  TAP 

GXTS 

85 

40 

FPILD1  *  FFtLDl  ♦  I R AD  I AL*PS I ZE l L D ) **BNEX  ♦  STR A  I T 1 *TNEX*FHASS ( LD ) GXTS 

86 

20 

CONTINUE 

GXTS 

87 

c 

GXTS 

88 

c 

GXTS 

89 

IF  I .NOT.NPRNTtlPl I  RETURN 

GXTS 

90 

c 

GXTS 

91 

WHITE  I KOUT  *9011 

GXTS 

92 

IF  (JUJ  GO  TO  101 

GXTS 

93 

WRITE  I KOUT «  912 ) 

GXTS 

94 

GO  TO  102 

GXTS 

95 

101 

WRITE  I KOUT  <9021 

GXTS 

96 

102 

CONTINUE 

GXTS 

97 

DO  U3  Jsl,ITAB 

GXTS 

98 

WRITE  I KOUT » 9  03 J  PS ! Zfc U 1 » TP II) 

GXTS 

99 

103 

continue 

GXTS 

100 

c 

GXTS 

101 

RETURN 

GXTS 

102 

END 

GXTS 

103 

SlPFTC  URANX  LIST. DECK. M94/2 

URAN 

0 

SUBROUTINE  URAN 

URAN 

1 

C 

URAN 

2 

c 

R  C  TOMPKINS  -  US  ARMY  NUCLEAR  DEFENSE 

LABS 

URAN 

3 

c 

MAY  1966 

URAN 

4 

called  BY  PAM2 

URAN 

5 

C 

URAN 

6 

C 

DLaM  disintegration  constant  OF 

NP239 

URAN 

7 

C 

PLAM  DISINTEGRATION  CONSTANT  OF 

U239 

URAN 

8 

C 

URAN 

9 

COMMON/FISHIN/ 

URAN 

10 

1  ABEGN  1  700  )  , ABUNDO I  700  I  »  BRANCH  1 1 

30)  .CAPFIS 

URAN 

11 

2  *  DCON  17  0  0  )  ,  1 9R A  .INUC 

• MAXNUC 

URAN 

12 

3  .MULT  Ill)  ,  N','CL I D ( 7  0  0  I 

URAN 

13 

C 

URAN 

14 

COMMON/UT ILTY/ 

URAN 

15 
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1  KOUT  .NPRNT  115) 

URAN 

16 

COMMON/OUTPU'  * 

URAN 

17 

1  FlSNUM  ,FP  (2009  .Fm  • 1 T A8 

« JGO 

URAN 

18 

2  » HASCHN  .SIGMAS 

URAN 

19 

COMMON/DFCAY/ 

* 

URAN 

20 

1  ISO  ,JD  <  KOOS  .TENTER 

URAN 

n 

2  .TEX1T  .TIME 

URAN 

22 

C 

URAN 

3,3 

COMMON  /SETS/ 

URAN 

24 

1  RZ  , BZ2 

,8ZZ 

»BZ22 

URAN 

25 

2  .DELTAX  ,DGX 

,  OGY 

, DIFCON 

URAN 

26 

3  , DIFADJ  ,FMAs(500) 

» FHASS  t  200 ) 

, IC ( 18 ) 

URAN 

27 

4  « ICON  < 1 CTR 

.1H 

*  *OT 1 18) 

URAN 

28 

5  .IP  » IPOUT 

,  I TT 1 16) 

,iV 

URAN 

29 

6  . JCI181  .JIN 

,  JOUT 

, JPOUT 

URAN 

30 

7  . KTRf 500 J  .KTAPE 

.LAST 

.MAPRUN 

URAN 

31 

8  .MARRAY  .MIN 

•MXREO 

URAN 

32 

9  .MYDUMY  ,NA 

,  NBZX 

,  NBZX2 

URAN 

33 

1  .N8ZY  >  NCL 

,NE 

,NF 

URAN 

34 

2  «Nl J  » NMAP 

.  NHaX 

,NOX 

URAN 

35 

3  .NPI2U  . NREO 

,  NS 

,  NTAPES 

URAN 

36 

4  .ntapft  .ntask 

, NXMAP 

.NYMAP 

URAN 

37 

5  » YMIN  .PSI500J 

.PSIZEI2001 

.PACT  I 203  I 

URAN 

38 

6  . HOPART 

,  T 1 500 ] 

,T1 

URAN 

39 

7  . T2  .TLIMIT 

, X ( 500 ) 

» XF 

URAN 

40 

8  »XO  . XK  AX 

,  XMIN 

, XNMAP 

URAN 

41 

9  .XI  . X2 

,  X3 

» X4 

URAN 

42 

1  , Y 1500 1  .YF 

.YO 

,  YMAX 

URAN 

43 

CCCCC 

URAN 

44 

LOGICAL  JD.IGO. KOOS, NPRNT 

URAN 

45 

C 

URAN 

46 

COMPUTE  U239  DISINTEGRATION  CONSTANT 

URAN 

47 

PLAM  •  0.693147/123.5*60.01 

URAN 

48 

COMPUTE  NP239  DISINTEGRATION  CONSTANT 

URAN 

49 

OLAH  *  0.693147/(56.0*3600.0) 

URAN 

50 

C 

URAN 

51 

2  AZERO  *  CAPFIS*! .£4»PLAM 

URAN 

52 

GLMP  «  DLAM/SDLA.<  -  PLAN! 

URAN 

53 

SLUMP  a  AZERO*BLM? 

URAN 

54 

C 

URAN 

55 

IF  t.MOT.JDJ  80  TO  3 

URAN 

56 

ABURAN  ■  AZERObEX0  I ~PLAM*Y IME I 

URAN 

57 

AbNEP  «  GLMP*mBURAN  «  GLUMP*EXP 

l  »OLAM*T IME 1 

URAN 

58 

60  TO  7 

URAN 

59 

C 

URAN 

60 

3  IF  t .NOT. KOOS]  GO  TO  4 

URAN 

61 

ABURAN  ■  AZERO/PLAM*(EXP  1 -PLAM*TENTER 1  -  EXP  1- 

PLAM*TEXI T  1  ) 

URAN 

62 

A8N2P  ■  OLMP* A0URAN  - 

URAN 

63 

16LUMP*>EXP  I-DLAM*TENTER1  -  EXP 

l-DLAM*TEXIT) l/DLAM 

URAN 

64 

GO  TO  7 

URAN 

65 

C 

URAN 

66 

4  ABURAN  *  AZERO/PL AM*EXP  I *PL AM*TENTER 1 

URAN 

67 

ABNEP  »  OLMP*ABURAN  •  QLUMP/OLAM*EXP  I-DLAN*TENTER) 

URAN 

68 

C 

URAN 

69 

7  ANEP  *  (ABURAN*. 327E-6  ♦  A8NEP* . 

9666-61*FISNUM 

URAN 

70 

00  8  J»l. STAB 

URAN 

71 

8  FPtJ)  «  FPIJ)  ♦  ANEP*FMASSUJ 

URAN 

72 

C 

URAN 

73 

IF  INPRNTI1213  WRITE  IKOUT.IOO) 

ANEP 

URAN 

74 

100  FORMAT 

URAN 

75 
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1  115H10UTPUT 

OF  URAN/5X21HMASS  239  CONTRIBUTES  1PE12.4, 

URAN 

70 

2  23H  TO  EACH 

PARTICLE  SIZE.  1 

URAN 

77 

RETURN 

URAN 

78 

END 

URAN 

79 

SIBFTC  INDY  LIST, DECK, M94/2 

INDY 

0 

SU8R0UTINE  INDCD2 

INDY 

1 

C 

INDY 

2 

C 

NOVEMBER  1966 

INDY 

3 

COMMON/INDUCE/ 

INDY 

4 

1  ALBFOM 

,FAC  I7,10].FOGRNY(7,181.ISO 

(18) 

INDY 

5 

2  .LMAX 

.XLAM  17*161 

INDY 

6 

C 

INDY 

7 

common/utilty/ 

INDY 

8 

1  kuut 

. NPRNT  (15) 

INDY 

9 

C 

INDY 

10 

common/output/ 

INDY 

11 

1  fisnum 

, FP  12001  ,FH  .ITAB 

,  JGO 

INDY 

12 

2  .MASCHN 

.SIGMAS 

INDY 

13 

C 

INDY 

14 

COMMON/DECAY/ 

INDY 

15 

1  I  GO 

,JD  . KDOS  .TENTER 

INDY 

16 

2  #  TEX  I T 

.time 

INDY 

17 

C 

INDY 

16 

COMMON  /SET3/ 

INDY 

19 

1  B2 

.BZ2  ,BZZ 

» BZ22 

INDY 

20 

2  .DELTAX 

. UGX  . DG Y 

, DIFCON 

INDY 

21 

3  .DIFAIIJ 

.FMASISjOOI  ,  FM  ASS  (  2  0  0  ] 

. I C 1 18 1 

INDY 

22 

4  .ICON 

» I CTR  .  I H 

.I0TI18J 

INDY 

23 

5  .IP 

. I  POUT  .ITTI18I 

.IV 

INDY 

24 

6  ,JC(10] 

.JIN  . JOUT 

.  JPOUT 

INDY 

25 

7  .KTR15O0) 

. KTAPE  .LAST 

.MAPRUN 

INDY 

26 

0  .MARRAV 

,MIN  . MXREQ 

INDY 

27 

9  .MYDUMY 

.NA  . NBZX 

. NBZX2 

INDY 

26 

1  « NB7  Y 

, NCL  NE 

»NF 

INDY 

29 

2  .  N  I  J 

. NMAP  , NMAX 

>  NOX 

INLY 

30 

3  » NP  1 2l ] 

. NREQ  ,ns 

.  NT  APES 

INDY 

31 

4  .NTaPET 

. NTASK  >  NXMAP 

.NYMAP 

INDY 

32 

5  . YM I N 

» PS  1 50  0  )  .PSIZEI200) 

>  PACT  12001 

INDY 

33 

6  .ROPART 

. T l 500 ) 

.  Tl 

INDY 

34 

7  ,T2 

. T L I M I T  . X  t  500 1 

.XF 

INDY 

35 

fl  .XO 

. XMAX  , XM  I  N 

.XNMAP 

INDY 

36 

9  .XI 

.  X2  ,X3 

,X4 

INDY 

37 

1  , Y  1500 ] 

,YF  . YO 

,YMAX 

INDY 

38 

C 

INDY 

39 

LOGICAL  JD, IGO.KDOS.NPRNT 

INDY 

0 

C 

INDY 

41 

1000 

FORMAT 

INDY 

42 

1  (17H10UTPUT 

of  i NQCD2/5X53H induced  activity 

IN  THE  TRANSPOHTEDINDY 

43 

2  SOIL  CONTRIBUTES  1PE12.4.23H  TO  EACH  PARTICLE  SIZE.) 

INDY 

44 

c 

INDY 

45 

SDRE  =  0.0 

INDY 

46 

c 

INDY 

47 

DO  24  L  =  i.LMAX 

INDr 

48 

IS  =  ISOIL) 

INDY 

49 

c 

INDY 

50 

00  22  I  =  1,  IS 

INDY 

51 

DLAM  »  -XLAMtl.L 

i 

INDY 

52 

IF  I.NO’.JDl  GO 

TO  12 

INDY 

53 

OR I  »  -FACCI.LJ* 

DLAM*FOPRNyI !,Ll*EXP!DLAM*TIME) 

INDY 

54 

GO  TO  22 

INDY 

55 
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c 

INDY 

56 

12  |F  ( .N0T.KD03) 

60  TO  14 

INDY 

57 

DR I  •  FACU,Ll*FOGRNYU,Ll*tEXPtDLAH*TENTERI  - 

EXP(DLAM*TEXIT)I 

INDY 

56 

GO  TQ  22 

INDY 

59 

c 

INDY 

60 

14  DR!  ■  FACII *L1*F OfiRNY 1 I *L J*EXP IDLAM*TENTER 1 

INDY 

61 

c 

INDY 

62 

22  SORE  »  SD«6  ♦  DR  I 

INDY 

63 

24  CONTINUE 

INDY 

64 

c 

INDY 

65 

c 

INDY 

66 

sdre  »  sdre»albfom*fjsnuk 

INDY 

67 

c 

INDY 

68 

DU  26  HA  •  1» I Y AR 

INDY 

69 

26  FPCMAl  ■  PR |MA I 

*  SDRE*FHASS{Ha3 

INDY 

70 

c 

INDY 

71 

IF  iNPRNTtlllJ 

WRITE  (KOUT. 10001  SDRE 

INDY 

72 

RETURN 

INDY 

73 

END 

INDY 

74 

RETURN 

INDY 

73 

SI8FTC  MCTS  LI  ST, DECK . M94. 2 

MCTS 

0 

SUBROUTINE  MCHDEP 

MCTS 

1 

C 

MCTS 

2 

C 

R  C  TOMPKINS 

-  US  ARMY  NUCLEAR  DEFENSE  LABS 

MCTS 

3 

C 

NOVEMBER  1966 

MCTS 

4 

CALLED  BY  PAH2 

MCTS 

5 

C 

MCTS 

6 

common/fishin/ 

MCTS 

7 

1  ABEQN  (700) 

. A3UND0 17001  • BRANCH [1301  .CAPFIS 

MCTS 

8 

2  . DCON  (7001 

.  I8RA  > I NUC  .MAXNUC 

MCTS 

9 

3  .MULT  till 

.NUCL I D 1 700 ) 

• 

MCTS 

10 

CUMKON/UTSLTY,' 

MCTS 

11 

1  KOUT 

. NPRNT  1151 

MCTS 

12 

COMMON/OUTPUT/ 

MCTS 

13 

1  F1SNUM 

.FP  (200  )  .FM  . 1 T  AB 

,JSO 

MCTS 

14 

2  . MASCHN 

.sigmas 

MCTS 

15 

COMMON/FRYLNG/ 

MCTS 

16 

1  8SUBK  (90) 

.ERM  (165)  >  JflM  (165)  . KRM 

. ECF (901 

MCTS 

17 

COMMON/DECAY/ 

MCTS 

18 

1  160 

,JD  . KDOS  .TENTER 

MCTS 

19 

2  .TEXIT 

.TIME 

MCTS 

20 

COMMON  /SET3/ 

MCTS 

21 

1  3Z 

. BZ2  . BZZ 

>  BZ22 

MCTS 

22 

2  .DELTAX 

. DGX  . DQY 

. CIFCON 

MCTS 

23 

3  .DIFADJ 

,FMAS(500  )  .FMASS  1 200 ) 

.  ICt 16) 

MCTS 

24 

4  .ICON 

.  I CTR  .  IF 

.  10T11S) 

MCTS 

25 

5  .  IP 

.  I POUT  . IT) (IS) 

.IV 

MCTS 

26 

6  .JC(18) 

.JIN  .JOUT 

. JPOUT 

MCTS 

27 

7  . KTR 1 500  1 

» KTAPE  .LAST 

.MAPRUN 

MCTS 

28 

3  .MARBAY 

.NIN  . MXREQ 

MCTS 

29 

9  .MYDUMY 

.NA  .NBZX 

.NBZX2 

MCTS 

30 

1  *  NBZ  Y 

. NCL  .NE 

,  NF 

MCTS 

31 

2  •  N I  J 

. NMAP  • NM AX 

,NOX 

MCTS 

32 

3  *  NP 1 21 1 

.NREQ  .NS 

.NTAPES 

MCTS 

33 

4  .NTAFET 

.NTASK  .NXMAP 

.NfMAP 

MCTS 

34 

5  » YMIN 

«PS?500t  ,PSIZE(200) 

« PACT ( 200 ) 

hCTS 

35 

6  .RQPART 

. T  *  5001 

» Tl 

MCTS 

36 

7  .12 

.TLIMsT  . X i 500 ) 

•  XF 

MCTS 

37 

I  .XO 

.XMAX  . XM I N 

* XNMAP 

MCTS 

36 

«  .XI 

.X2  P X3 

.  X4 

MCTS 

39 

2 66 


\  ) 


1  , V  £ 500 !  , YF  ,Y0  , YKAX  HCTS 

C  MCTS 

DIMENSION  FMTAtl2)»FMTBtl8},UN!TCl21»UNJTFI2)  MCTS 

C  MCTS 

LOGICAL  NPRNT, TZERO.TMINUS  MCTS 

C  MCTS 

DATA  IFMTAI * ). I  =1 , 10 I/6H I /14X3. 6H1H  T0T.6HAL  ABU. 6HNDANCE. 6H  OF  MAMCTS 
1.6HSS  CHA.6HIN  I3..6H4H  WAS. 6H1PE12. , 6H4.  9H/  MCTS 

2,IFMTB(I),I*1.1&J/6H(17H10,6HUTPUT  .6HOF  MCH. 6HDEP///. 6H5X13HP  MCTS 

3} 6HART I  CL . 6HE  S I 7E . 6H6X22HA . 6HCT I  V  I T , 6HY  OF  M.6HASS  CH.6HAJNI 4/  MCTS 
4,6H8X7HMI .6HCR0NS1.6H8X  9h/  MCTS 

5,tUNlTCtll.I»1.21/6H  CURIE, 6HS  /)  /  MCTS 

6, l UN I TF II J . !«1.2 J/6H  F I SS i . 6H0NS/ I  /  MCTS 

DATA  CROSS. UNIT/100. 0.1.0/  MCTS 

C  MCTS 

903  FORMAT  MCTS 

1  15X1PE12.4.14XE12.41  MCTS 

r  MPTQ 

T  ZERO  =  .FALSE.  MCTS 

TMINUS  *  .FALSE.  MCTS 

FMTAUlJ  a  UNI  TC  { 1 1  MCTS 

FM  f  A ( 1? ]  a  UN  1 TC  f  2  ]  MCTS 

FMTB [ 16 1  «  UN  I TC  f 1 1  MCTS 

FMTBI17I  a  UN  I TC [ 2 1  MCTS 

IF  ( T I  ME  1 11 . 1. 2  MCTS 

1  T  ZERO  =  .TRUE.  MCTS 

COMPUTE  EQUIVALENT  FISSIONS  MCTS 

ABNDM  =  1.0  MCTS 

FlRNljM  a  nSNUM’J.E'.  MCTS 

F M T A [ 1 1 ]  *  UN  I  TF  f 1 1  MCTS 

FMTAI12I  *  UN  I TF  [  2  I  MCTS 

FMTB  ( 16 !  a  UNITF'l!  MCTS 

FMTb [ 17  I  »  UN  I  TF  (21  MCTS 

2  IF  { NPRNT  1 1 3 1 ]  WRITE  (KOUT.FMT0I  MASCHN  MCTS 

IF  (TZFROI  GO  TO  10  MCTS 

COMPUTE  ACTIVITY  IN  CURIES  MCTS 

call  batman  mcts 

abnum  =  o.o  mcts 

DO  22U  Kl*l, IMUC  MCTS 

1FIMASCHN.NE.  IABSINUCLlD(Kin/MULTI91J  GO  TO  220  MCTS 

C  SUM  THE  ACTIVITIES  IN  ONE  MASS  CHAIN  AND  CONVERT  TO  CURIES  MCTS 

ABNDM  a  ABNDM  ♦  ABUN0O (KIT  MCTS 

220  CONTINUE  MCTS 

ABNDM  a  ABNDM/3 . 7E 1 0  MCTS 

C  MCTS 

IF  l ABNDM  J9.9.10  MCTS 

C  THE  REST  IS  AN  ABRIDGEMENT  OF  GXPSR  MCTS 

10  BNEX  a  BSU.TK  I MASCHN-71 )  MCTS 

CRISS  =  CRf'SS*»BNEX  MCTS 

RADIAL  «  ECFIMASCHN-71 J/IUNIT  *  CR I SS*ECF I MASCHN- 71 ))  MCTS 

STRAIT  a  RADIAL«CRISS  MCTS 

ABNDM  a  *8NDM«F I SN JM  MCTS 

DO  134  LD  a  l,IT*e  MCTS 

DSR  a  (R*DIAL*PSIZE tLD]**BNfeX  ♦  STRA I T ) *ABNDM*FMASS t LD I  MCTS 

134  FPILD1  a  FPILDJ  ♦  DSR  MCTS 

IF  t .NOT .NPRNT  1 13  J I  GO  TO  9  MCTS 

WRITE  [KOUT  #9031  MCTS 

i  iPsizcrn.FPm,i»i.!TABj  acts 

9  WRITE  IKOUT.FMTAJ  MASCHN, ABNDM  MCTS 

FETURN  MCTS 


40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 
G6 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 


267 


c 

c 


c 

c 


11  TH1NUS  *  .TRUE. 
RETURN 


CODE  INSERTION  POINT 


C 

c 

c 


****** 

END 

****** 

1  riSNUH 

2  .  .HASCHN 
CONHON/FRYLNG/ 

1  BSUBK.  (90) 

COHMON/DECAY/ 

1  ISO 

2  .TEXIT 
COMMON  /SET3/ 

1 


,IUB  .JSO 

,6RM  (165)  *JRN  1185)  »KRN  .ECFI9Q1 


,FP  (200)  .F« 
.SIGMAS 


.  JO 
.TIME 


.  kdos 


.TENTER 


2 

3 

4 

5 

6 

7 

8 
9 
1 
2 

3 

4 

5 

6 

7 

8 
9 
1 


BZ 
.DELTAX 
.DIF  AD J 
.ICON 
.IP 

.JCI1A1 

.KTRI5003 

.MARRAY 

.MYDUMY 

.NBZT 

*NU 

.NPI21J 

.NTAPET 

.YMIN 

.ROPART 

.  T2 

.XO 

.XI 

. Y (500 ) 


BZ2 

»BZZ 

.  BZ22 

DGX 

.  DGY 

.DIFCON 

FMAS  1500  ) 

.FMASSI200) 

,  XC  1 18) 

ICTR 

,  IH 

.I0TI18) 

IPOUT 

•  ITT! 181 

.IV 

.JIN 

» JUUT 

, JPOUT 

.KTAPE 

.LAST 

.MAPRUN 

.MIN 

.KXREQ 

» NA 

,  NBZX 

.NBZX2 

«N£L 
.  NMAP 

»N£ 

.  NHAX 

»NF 
,  NOX 

.NREQ 

.NS 

.NTAPES 

,  NTASK 

.NXMAP 

.NYMAP 

.PS1500J 

.PS1ZEI200I 

.PACT1200) 

» T 1 500  J 

,T1 

.TLIMIT 

,  X 1 500 ) 

.XF 

.XMAX 

.  XMIN 

, XNMAP 

,X2 

,X3 

.  X4 

#  YF 

*  vo 

,  YMAX 

DIMENSION  FMTA112)  .FMTR 1 18 J .UNI TC ( 2) .UNI TF 1 2) 

logical  nprnt.tzero.tminus 

DATA  SFMTAt I  I • I«l*l03/6Hl/l4X3.6HlH 
1.6HSS  CHA.6HIN  13..6H4H  WAS. 6H1PE12 
2, IFHT0I I ) » |*1.15J/6H(17H10.6HUTPUT  .6H0f 
3 , 6HART I  CL  * 6HE  SJZE.6M6X22HA.6HCT IV  IT. 6HY 
4.6H8X7HMI .6HCR0NS1.6H8X  VH/ 
5.[UNITClI)»I*l»2)/6H  CURIE. 6HS  /)  / 

6, l UNI TF ( 1 1 . 1 *1  *  2  J/6H  FJSSI.6H0NS/I  / 

DATA  CROSS. UNlT/100. 0.1.0/ 


T0T.6MAL  ABU.6HNDANCE.6H 
• .  6H4.  9H/ 


OF 


MCH.6HDEP///.6H5X13HP 
OF  H.6HASS  CH.6HAINI4/ 


903  FORMAT 

•  16X1PE12, 


4 . 14XE12 . 4  } 


TZERO  * 

TMINUS  * 

FMTAU1 1 
FMTAU23 
FMT3U6) 
FMTBU73 
IF  iTIH£m*l»2 
TZERO  *  .TRUE. 


FALSE. 

.false. 

«  UN  I TC 1 1 1 
»  UNITCtai 
»  UN  1  TC 1 1 ! 
*>  UN  I  TC  ?  S'  1 


HCTS  100 
MCTS  101 
HCTS  102 
MCTS  103 
MCTS  104 
MCTS  105 
MCTS  106 
MCTS  105 
MCTS  14 
MCTS  15 
MCTS  16 
MCTS  17 
MCTS  18 
MCTS  19 
MCTS  20 
MCTS  21 
MCTS  22 
MCTS  23 
MCTS  24 
MCTS  25 
MCTS  26 
MCTS  27 
MCTS  28 
MCTS  29 
MCTS  30 
MCTS  31 
MCTS  32 
MCTS  33 
MCTS  34 
MCTS  35 
MCTS  36 
MCTS  37 
MCTS  38 
MCTS  39 
MCTS  40 
MCTS  41 
MCTS  42 
MCTS  43 
MCTS  44 
MCTS  45 
MAHCTS  46 
MCTS  47 
MCTS  48 
MCTS  49 
MCTS  50 
MCTS  51 
MCTS  52 
MCTS  53 
MCTS  54 
MCTS  55 
MCTS  56 
MCTS  57 
MCTS  58 
MCTS  59 
HCTS  63 
MCTS  61 
riCTS  62 
MCTS  63 
MCTS  64 
MCTS  66 
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COMPUTE  EQUIVALENT  FISSIONS 

MCTS 

66 

ABNDM  =  1.0 

MCTS 

67 

FlSNUM  ■  FISNUN*1,E4 

MCTS 

68 

FMTAlllJ  s  UN I TF 1 1 ) 

MCTS 

69 

FMTAI12I  *  UNI TF {2  I 

MCTS 

70 

FMTBI16J  «  UNlTFfl) 

MCTS 

71 

FMTBC17]  s  UN I  TF  { 2  I 

MCTS 

72 

2 

IF  t NPRNT  113)1  WRITE  [KOUT.FMTBI  MASCHN 

MCTS 

73 

IF  ITZEROI  GO  TO  10 

MCTS 

74 

COMPUTE  ACTIVITY  IN  CURIES 

MCTS 

75 

call  batman 

MCTS 

76 

ABNUM  3  0.0 

MCTS 

77 

DO  220  K1«1,INUC 

MCTS 

78 

IF  I MASCHN. NE . I ABS I NUCLID (K1 ] J /MULT (9) 1  GO  TO  220 

MCTS 

79 

C 

SUM  THE  ACTIVITIES  IN  ONE  MASS  CHAIN  AND  CONVERT  TO  CURIES 

MCTS 

80 

ABNDM  =  ABNOM  ♦  AbUNDOIKlI 

MCTS 

81 

220 

CONTINUE 

MCTS 

82 

ABNDM  *  ABNDM/3.7E10 

MCTS 

83 

C 

MCTS 

84 

IF  ( ABNDM]9,9,10 

MCTS 

85 

C 

THE  REST  IS  AN  ABRIDGEMENT  OF  GXPSR 

MCTS 

86 

10 

BNEX  =  BSUBKIMASCHN-71 J 

riCTS 

87 

CHISS  =  CROSS**BNEX 

MCTS 

88 

RADIAL  s  ECFIMASCHN-71I/IUNIT  ♦  CR I SS*ECF I MASCHN-71 )1 

MCTS 

89 

STRAIT  «  RAD  I AL*CR I SS 

MCTS 

90 

AbNDM  s  ABNDM*FISNUM 

MCTS 

91 

DO  134  LD  «  1, I  TAB 

MCTS 

92 

DSR  =  (RADIAL*PSIZEILD I **BNEX  ♦  STRAIT)*ABNDM*FMASSILD) 

MCTS 

93 

134 

FPILDJ  ■  FPILDI  ♦  DSR 

MCTS 

94 

IF  ( .NOT .NPRNTI13J I  GO  TO  9 

MCTS 

95 

WRITE  t  KOUT  *  903  3 

MCTS 

96 

1 

tHSIZEm#FPtI),I«i,ITA81 

MCTS 

97 

9 

WRITE  [KOUT.FMTAJ  MASCHN, ABNDM 

MCTS 

98 

return 

MCTS 

99 

c 

*  * 

MCTS 

100 

c 

MCTS 

101 

11 

TMINUS  «  .TRUE. 

MCTS 

102 

RETURN 

MCTS 

103 

c 

MCTS 

104 

c 

* 

*  MCTS 

105 

END 

MCTS 

106 

\ 
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SIBFTC  MULTIB  DECK  H94/2, 


9  MAR?  67 


iW.SCHWENKE  TECHNICAL  OPERATIONS  RESEARCH 


THIS  PROGRAM  COMBINES  TWO  DELFIC  MAPS  OF  IDENTICAL  SUE.SHAPENUlT 
„ AND  GRIO  INTERVALS  AND  EITHER  PRINTS  THE  RESULTING  MAP  ,  WRITES  MULT 
IT  OUT  ONTO  TARE  IN  THE  SAME  FORMAT  AND  STRUCTURE  AS  THE  INPUT  MULT 
MAPS  SO  THAT  OTHER  MAPS  MAY  COMBINED  WITH  IT#  OR  BOTH  WRITES  AND  MULT 
PRINTS  IT.  HULT 

MULT 

INPUT  MAPS  ARE  TO  BE  ON  TAPES  PRODUCED  BY  DELFIC  AND  MOUNTED  ON  MULT 
LOGICAL  UNITS  10  AND  11  OR  THE  UNITS  SPECIFIED  BY  THE  USER.  THE  MULT 
SUMMED  MAP  TAPE  .  IF  PRODUCED#  WILL  BE  FOUND  ON  UNIT  LOGICAL  9  MULT 
OR  THE  UNIT  SPECIFIED  BY  THE  USER.  MULT 

MULT 

SYSTEM  INPUT  and  OUTPUT  UNITS  ARE  LOGICAL  5  AND  6  RESPECTIVELY.  MULT 

MULT 

THE  STRUCTURE  6F  THE  BINARY  TAPES  READ  ANB  WRITTEN  BY  THIS  PROGRAMMULT 
ARE  AS  FOLLOWS#.  MULT 

MULT 

LOGICAL  RECORD  CONTENT  MULT 

1  IDENTIFICATION  WORD  LITERAL  (MULTIB)  MULT 

2  MAP  PARAMETERS  NUL7 

3  NUMBER  OF  NUMBER  ROWS  IN  FOLLOWING  MAP  RECORD#  aNDMULT 

NUMBER  OR  NUMBERS  IN  EACH  ROW  OF  THE  FOLLOWING  MAPMULT 
STRIP..  NROHS#NUMBRS  MULT 

4  INROWS)  MAP  RECORDS  (OMAP I J) , J«l, NUMBRS J  MULT 

5# 6  AS  3.4  BUT  FOR  SECOND  MAP  STRIP  MULT 

7#8  AS  3,4  BUT  FOR  THIRD  MAP  STRIP  MULT 

LAST  NROWS«0  NUMBRS«Q  MULT 

MULT 

»*•**•••**••*•«•* a* a a** a*a*aaa#***a******a**»****a******«********»*mULT 


DIMENSION  OMAP (201. JriAP  120  1  #  TMAP  { 20 ) ,  IC  1 18  J ,  XM  IN  1 2 1 ,  XMAX 1 2 1 , 
lYMlNC2),YHAXI2).DGXi2),DGY(2J,BMULT!  (12) 


MULT 

FORMAT  I lfl 1 4  J  HULT 

F0RMATU2A61  NULT 

FORMAT I////1X.26MHR0NG  TAPE  REEL  ON  LOGICAL. 15. 49H.  PLEASE  MOUNT  MULT 
1THE  CORRECT  REEL  AND  PRESS  START, ////1H  )  MULT 

FORMAT I///lX#l2HwARNING  ONL Y, 10X , 77HMAP  PARAMETERS  FROM  THE  TWO  INMULT 
1PUT  TAPES  DO  N8T  MATCH.  COMPUTATION  CONTINUED.)  HULT 

FORMAT 1///1X,73HaN  INDEX  MISMATCH  HAS  BEEN  ENCOUNTERED.  COMPUTAT I  MULT 
ION  CANNOT  BE  CONTINUED.)  MULT 

FORMA TI6H1STRIR, 1 4  J  MULT 

FORMAT  I ////l OX# 12H  NORMAL  EXIT)  MULT 

F0RMATI/1X.19I6)  MULT 

FORMATrx.ierA.ai  mult 

F0RMATtl6HlENTEh|NG  MULTIB]  MULT 

FORMAT! ////36H  CONTROL  INTEGER  ARRAY,  IC ( U | , J»l, 18/1X. 18) 4 )  MULT 

FORMATIF10T3.3I5  #F10.3#10X» 15)  MULT 

FORMAT ( //5X.2HC1 « 6X# 12HM1  NOP  F2# 5X. 2H02# 14X#  4HNDI S I  MULT 

FORMAT  (1H1//20X#  33 HMAP  TAPE  PROCE  OR  RUN  I  DENT  I F IER//5X,  IgA  <>  |  MULT 

MULT 

»*••*••*•••»*•*•?•*•••*•»**•••»  GLOSSARY  ••*•«**•**••** ** «**«**HULT 

BIT'UM  SC-  LITERAL  I  MULT  I B I  MULT 

BMl  TIC  J  MULTIPLE  BURST  PROGRAM  RUN  IDENTIFIER  MULT 

Cl  CONSTANT  TO  BE  MULTIPLIED  BY  EACH  ORDINATE  OF  FIRST  MULT 

MAP  BEFORE  MAP  COMBINATION  MULT 
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nnnnnooonno 


C2 

08SIJJ 
D§Yt  JT 
ICU) 

I C  S 1 1  *  3 
!»ll  J«1 
!Glil«2 

S  C 1 2 } 


ICf  33 


I C  ( 4 1 

INTI 

INT2 

INI 

I N2 

(OUT 

IPAS 

IRROR 

ISCRAT 

1SIN 

ISOUT 

IGTJUP 

HBPROC 

MIST* 

Hi 


NOP 

NOP  a  0 
NOP  ■  1 
NOP  a  2 
NOP  a  3 


NOP  a  6.7,6 
NOP  ,QE.  10 

NPROC 

NROMS 

NSK1P1 

NSXIP2 

NSKi 

NSK2 

n-kbrs 


rOR  SECOND  HAP.  SEE  Cl.  MULT  60 
GRID  INTERVAL  IN  X  DIRECTION  FOR  HAP  J  HULT  el 
FOR  V  DIRECTION,  SEE  DGXIJI  HULT  62 
CONTROL  INTEGER  ARRAY  HUL?  63 
GENERATE  A  PRINTED  HAP  ONLY  HULT  64 
GENERATE  A  TAPE  HAP  IMAGE  ONLY  HULT  65 
GENERATE  90TH  A  PRINTED  HAP  AND  A  TAPE  HAP  IMAGE  HULT  66 

HULT  67 

LOOiCAL  NUHSER  OF  TAPE  DRIVE  HAVING  THE  FIRST  HULTI-  HULT  60 
PLE  BURST  TAPE,  IF  1CI2I  IS  NOT  SET,  THE  PROGRAK  HULT  69 
HILL  USE  LOGICAL  id ,  HULT  70 
LOGICAL  NUH3ER  OF  THE  TAPE  DRIVE  HAVING  THE  SECOND  HUHULT  71 
LTIPL6  BURST  TAPE.  1C|3|  SET  NEGATIVE  IS  USED  TO  HULT  72 
INDICATE  THAT  ONLY  ONE  MULTIPLE  8URST  TAPE  IS  TO  8£  HULT  73 


USED  BY  THE  MULTIPLE  BURST  PROGRAM. 


HULT  74 


IF  ICI3;  IS  SET  TO  ZERO,  THE  PROGRAM  HILL  EXPECT  THE  HULT  75 

SECOND  MULTIPLE  BURST  TAPE  ON  LOGICAL  11.  MULT  76 

NUMBER  OF  TAPE  AVAILABLE  FOR  SCRATCH  MULT  77 

INITIAL  VALUE  OF  INI  HULT  78 

INITIAL  VALUE  OF  IN2  HULT  79 

NUMBER  OF  TAPE  CONTAINING  1ST  MAP  IMAGE  MULT  80 

NUMBER  OF  TAPE  CONTAINING  2ND  NAP  IMAGE  MULT  81 

LOGICAL  NUMBER  OF  THE  OUTPUT  HAP  TAPE  HULT  82 

FIRST  PASS  INDICATOR  IF  a  0  MULT  83 

IRROR  CONDITION  IDENTIFIER.  HULT  84 

SCRATCH  TAPE  NUMBER  HULT  85 

SYSTEH  INPUT  TAPE  NUMBER  HULT  86 

SYSTEM  OUTPUT  TAPE  NUMBER  MULT  87 

COUNTER  FOR  HaP  PRINTER  STRIPS  MULT  Be 

MULTIPLE  BURST  PROCESSING  SUBROUTINE  MULT  69 

MISTAKE  INDICATOR  (IF  NON-ZERO!  MULT  90 

SEQUENCE  NUMBER  TO  IDENTIF (  THE  FIRST  MAR  IMAGE  TO  BEMULT  91 

USED  HULT  92 

SEE  Ml.  FOR  THE  SECOND  MAP  IMAGE.  IF  ONLY  ONE  MULT  93 

MULT  I PLE  BURST  TAPE  IS  TO  BE  USED  AS  INPUT,  BOTH  Ml  MULT  94 

AND  M2  REFER  TO  IT.  JF  two  INPUT  (MULTIPLE  BURST!  MULT  95 

TAPIS  ARE  TO  BE  USED.  Ml  REFERS  TO  THE  FJHST  ANU  M2  MULT  96 

TO  THE  SECOND,  MULT  97 

DISPLAY  OPTION  PARAMETER.  IF  NDIS.GE.l  I C ( 1 1  IS  MULT  98 

RESET  TO  MDIS-1  MULT  99 

operation  identification  NUMBER  MULT  100 

INDICATES  THAT  THERE  .RE  NO  MURE  DESIRED  OPERATIONS  HULT  101 

ADD  MAP  1  TO  MAP  2  POINT  BY  POINT  MULT  102 

SUBTRACT  (SEE  NOP  a  jj  MULT  103 

MULTIPLY  NAP  l  BY  HAP  2  POINT  BY  POINT  MULT  104 

DIVIDE  (SEE  NOP  ■  31  MULT  105 

OPERATE  ONLY  ON  FIRST  MAP  TAPE  MULT  106 

9  SPARES  *  NO?  DEFINED  MULT  107 

USE  SPECIAL  PROCESSING  SUBROUTINE  IMBPROCI  TO  PROCESSHULT  108 

MULTIPLE  BURST  TAPES.  MULT  109 

PROCESSING  BRANCMINO  PARAMETER  MULT  110 

NUMBER  OF  ROMS  OF  NUMBERS  (PRINTER  LINES!  IN  CURRENT  MULT  111 

MAP  STRIP  MULT  112 

NUMBER  OF  MAP  IMAGES  THAT  MUST  BE  S-.r'PED  OVER  TO  MULT  113 

REACH  THE  MAP  IDENTIFIED  BY  Ml.  MULT  114 

SEE  NSKIPj, .  FOR  MAP  M2.  MULT  115 

NUMBER  OF  MAPs  TO  SKIP  TO  REACH  FIRS;'  HAP  ON  INI  Ml'LT  116 

NUMBER  OF  MAPS  TO  SKIP  TO  REACH  SECOND  HAP  ON  INI  MULT  117 

A*TBR  FIRS?  MAP  HAS  BEEN  RE A| ,  MULT  118 

NUMBER  CF  NUH8ERS  IN  EACH  ROS  Of  CURRENT  PRINTER  MULT  119 


1 


\ 

% 
•* 
!  i 


c 

C  OMAPI  ] 

C  PROGRM 


strip 

MAP  STRIP  ROW  ARRAY  FOR  1ST  HAP 
PROGRAM  NAME  (SCO ] 


MULT  120 
MULT  121 
MULT  122 


SKfPF  SUBROUTINE  FOR  SKIPPING  OVER  MAP  IMAGES  MULT 

TMAPI  I  MAP  STRIP  ROW  ARRAY  FOR  2ND  MAP  MULT 

XMINIJ)  X  COORDINATE  OF  WESTERN  EDGE  Of  AREA  COVERED  BY  flAPJ  MULT 

XMAXIJ]  EASTERN  EDGE*  SEE  XMINIJ)  MULT 

YM1NIJ!  S6UTHERN  EDGE.  SEE  XMINIJJ .  MULT 

YMAXIJJ  NORTHERN  EDGE.  SEE  XMINIJI,  MULT 

MULT 

MULT 

.*«***•*****•«»•**••*•»*»**»••••**•**. ***«***«***»«*****+***«*'***«a«,*kuLT 

t 

INITIALIZE  MULT 

DATA  !SIN,IS0UT,IN1*1N2»!0UT,BITLi'JM,IPAS  #M!STK,B1G,NUL  nult 

l/5n4J36,39,9,6HMUtTJB.O,0,l.GE*38,0/  MutT 

MULT 

***••*«•*****••*  fi„? 

•  * ^**«****4 ************ •  * »**«***•••********»•**«•**  e***********.*^riULT 


123 

124 

125 

126 
127 
126 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 


c 

MULT 

139 

WRITE  USOUT.IOJ 

MULT 

140 

READ  !  ISIN.ll (ICI J}#J*1»183 

MULT 

141 

c 

mult 

142 

WRITE  IISOUT.llI I iCI Jl , J=1,18J 

MULT 

143 

I SCRA  Y= I C 1 4  1 

MULY 

144 

GO  TO  3022 

MULT 

145 

3021 

I F 1  ICI11.LT.1J  GO  TO  3022 

MULT 

146 

WRITE  ■ IOUT)NUL»NUL 

MULT 

147 

3G22 

IFI  IC12J  1301.301.302 

MULT 

148 

302 

5  Nl*  I C 1 2 1 

MULT 

149 

301 

IF*  ICI3 J J303.304.305 

MULT 

150 

305 

i  N2* IC 1 3 ) 

MULT 

151 

304 

REWIND  IN2 

MULT 

152 

303 

REWIND  INI 

MULT 

153 

INTI* 1 Nl 

MUL.T 

154 

INT2*IN2 

MULT 

155 

C 

MULT 

156 

c 

READ  A  PROCESSING  REQUEST  CARD 

MULT 

157 

READ  1  ISIN,12JC1#M1»N.0P,M2,C2,ND!S 

MULT 

150 

ISTRIP=0 

MULT 

159 

if-;ci?e3.o:o  j  Ci  =  i . o 

MULT 

160 

IF  IC2TEO. 0 . 0 IC2*1 . 0 

MULT 

161 

c 

MUL1 

162 

c 

TEST  FOR  NORMAL  EXIT 

MULT 

163 

IFINOP.LT.U  GOTO  200 

MULT 

164 

READ  CISIN.23  (BHULTltJj, Jal.12) 

MULT 

lo5 

WRITE  l  I  SOUT » 14  !  £  8MULT  I  I  J  1 »  Jsi  12  ! 

MULT 

166 

306 

WRITE  f  I  SOUT ,131 

MULT 

167 

WRITE  I  IS0UT*12JC1>M1jN0PIm2iC2»NDIS 

MULT 

168 

jFINDIS.GEvll  IClll«NDIS-l 

MULT 

169 

C 

MULT 

170 

C  307 

BRANCH  TO  SET  UP  TRANSFERS  FOR  PROCESSING 

MULT 

171 

JFINOP.GT. 9]  G0  TO  308 

MULT 

172 

GO  TO  1331, 332. 333, 334, 335, 336, 336. 33o.33G|, NOP 

MULT 

173 

331 

ASSIGN  1051  TQ  NPROC 

MUl  T 

174 

GO  TO  309 

MULT 

175 

33? 

ASSIGN  1052  TO  NPROC 

HULT 

176 

GO  TO  309 

MULT 

177 

333 

ASSIGN  1053  TO  NPROC 

MULT 

178 

GO  10  309 

HULT 

179 

.75 


I 

! 

i 


"n*.  . . . 


ooo  on  on,  ooo  oooooo 


334  ASSIGN  1054  TO  NPROC  HULT  160 

GO  TO  309  HULT  161 

335  ASSIGN  1055  TO  NPROC  MULT  182 

GO  TO  339  HULT  183 

336  ASSIGN  105  TO  NPROC  MULT  184 

GO  TO  309  MULT  185 

358  ASSIGN  1060  TO  NPROC  MULT  1G6 

309  CONTINUE  MULT  167 


MULT  186 

THIS  CODE  POSITIONS  INPUT  MAP  TAPES  BEFORE  THE  DESIRED  MAP  IMAGES  MULT  189 
SO  That  they  MAY  be  COMBINED,  IF  BOTH  MAP  IMAGES  ARE  TO  BE  READ  MULT  190 
FROM  THE  SAME  TAPE,  ONE  MAP  IMAGE  IS  FIRST  COPIED  ONTO  A  SCRATCH  MULT  191 
TAPE  SINCE  map  IMAGES  MUST  BE  COMBINED  LINE  by  use.  HU'.T  192 


310  NSKIP1*M1-1 
NSK I P2*M2*1 

lFINSKlPl.Gfe.05  GO  TO  312 

3 1 1  jRROR*-3ll 

7734  CALL  ERR0RIPR08RM, IRROP, ISOUTI 
DATA  PR0GRM/6HNULTIB/ 

312  IFIN0P.EQ.51  G8  TO  3012 
IFINSKIP2.GE.0I  GO  TO  313 
IRRORi-312 

GO  TO  7734 

3012  CALL  SKIPPIINTl.NSKIPl. ISOUTI 
GO  TO  100 

BOTH  SKIP  NUMBERS  ARE  SAT f SF ACTQRY 
THE  SAME  TAPE.  NO  TO  314 

313  iFCIcm.GE.OJ  GO  TO  3l4 
IFINSKIP1.GE.NSKIP2J  GO  TO  315 
NSK2»NSK!P2-NSK!P1-1 
NSKl’NSK 1  pi 

IN1«ISCRAT 
IN2B  INTI 
GO  TO  316 

3l5  NSK2*NSKIP1-NSK1P2'1 
NSK1*NSKIP2 
I N2* I  SCR AT 


HULT  193 
MULT  194 
MULT  195 
MIJLT  196 
MULT  197 
MULT  198 
MULT  199 
MULT  200 
MULT  201 
MULT  202 
MULT  203 
MULT  204 
MULT  205 
MULT  206 

ARE  BOTH  MAPS  COMING  FROM  MULT  207 

MULT  200 
MULT  209 
MULT  210 
MUIT  211 
MULT  212 
MULT  213 
MULT  214 
MULT  215 
MULT  216 
MULT  217 
MULT  218 
MULT  219 
MULT  220 
MUuT  221 
HULT  222 
MULT  223 
MULT  224 
MULT  225 
HULT  226 
MULT  227 
MULT  228 
MULT  229 
MULT  230 
MULT  231 
MULT  232 
MULT  233 
MULT  234 
MULT  235 
HULT  236 
MULT  237 
MULT  238 
MULT  219 


316  NON  SKIP  TO  POSITION  FOR  READING  THE  FIRST  MAP 
3i_6  CALL  SKIPP  IINT1.NSK1, ISOUTI 

NOW  COPY  THE  NEXT  MAP  ONTO  SCRATCH  TAPE 
REMIND  ISCRAI 
READ  UNT1JTST1 
WRITE  !  I  SCR AT  J  TST1 

READ  SINUJXNlNti  J ,  XMAX  { 1 5 ,  YMI N  HI ,  YMAX 1 1 ) ,  OGX 1 1 1  »  DGY  1 1 ) 
WRlTEi JSCRATJXNlNli) , XMAX 1 1 3 , YM I N 1 1 1 .YMAXIl)  ,DGX!1)  .DGYIil 
321  READ  TINT!!  NROHS.NUM0RS 
MR  I  TP  {  I  SCR AT  3  NRONS, NUMB S3 


END  OP  MAP  TEST 
IFINROHS.EO.  Cl  GO  TO  320 
00  317  J»i, NRCaS 
READ  3  INTI  3 { "MAPtK],K*l,NUH8RS) 

3 1 7  WRITE  f  iRCR**'  3  !0MaP i K  j , K *1 ANUMBSS 3 
SO  TO  1(21 

3?0  SgMlNO  JSCRAT 


v/t- 


c 

C  318 
3i8 


C 

C  314 
314 


C  102 

C 

C 

102 


FIRST  MAP  ! S  COPIED  0  TO  fSCRAT 
*  F !NSK2.GEi 01  80  TO  319 
REMIND  INTI 
NSK2  *nsk?*nski*i 
I  NT* I N1 

CAUL  SK|PP?5NT1,NSK2, 1S0UT? 

30  TO  100 

the  maps  are  coming  from  different  tapes 

call  SKIPP' !N1»NSKIP1, ISOOT] 

CALu  SK IPP II N2 » NSK IP2 j ! sour i 


TAPES  ARE  POSITIONED  AND  PARAMETERS  INI  AND  IN?  ARE  SET  TO  ALLOW 
THE  READING  OF  MAPI  AND  HAP2  RESPECT i VSLi’ ,  INTl  AND  !NT2  ARE  TO 
PE  USED  IN  RESTOPING  The  0RIGINAl  VALUES  OF  INI  AND  IN2. 


CHECK  IDENTIFIERS  ON  MAP  TAPES 
READ  ilNlJTSTl 

JFITSM.EQ;  BITLUMI  GO  TQ  iqi 
PRINT  3. INI 
WRITE ( I SOUT » 3J INI 

rewind  ini 

PAUSE 

REWIND  ini 
GO  TO  100 

IFJN0P.EQ.5I  GO  TO  102 
READ  (IN2JTST1 

IFJTSTJ , EQ .  BITLUMI  GO  TO  102 

PRINT  3.IN2 

WRITE  IISOUT.3J  IN2 

REWIND  IN2 

PAUSE 

REWIND  IN2 
GO  TO  101 

AT  THIS  POINT  BOTH  INPUT  MAP  T 
READ  MAP  PARAMETERS 


INPUT  MAP  TAPES  HAVE  SEEN  CHECKED  AND  ARE  OK. 


READ  1 1  Ml  ]  XHjB(l)»XMAXllt#YMlNil).YMAXtlt»DGXIl).DGYJl| 
IFIN0P.6Q.5I  GO  TO  1022 

READ  1 1 N2 I  XMlN(2J,XMAX(2T.YMlN(2J.YMAX[2t.DGX[2!,DGYI2) 
lFUCm.LT, 1)80  TO  1021 
IFI  IPAS.NE.O!  80  TO  1023 
IPAS  «  1 

PREPARE  8EG1NNING  OF  OUTPUT  MAP  TAPE 

REWIND  I  OUT 

WRITE  I 1  OUT  1 8  I TLUM 

WRITE  lIOUTlXMlNm.XMAXtll.YMINm.YMAXllI.DGXm  .OGYIli 
CONTINUE 

IFJN0P.6Q.51  G0  TO  103 

TEST  FOR  IDENTICAL  MAP  PARAMETEPS 
JF|XM!N(1),N£.XM!N(2) J  MISTK.l 
I F I XMAX ( 1 ! . NE , XMAX ( 2  I  J  MISTK»1 
IFIYMINUJtNE.YMJNIZn  MJSTK»1 
!F(YMAXm.NE.YMAXt2n  M I  S  T  K  *  1 
IFIDGXtll  .NE.  DGXI215  MiSTK*l 


MULT  240 
MULT  241 
MULT  242 
MULT  243 
MULT  244 
MULT  245 
MULT  246 
KUlT  247 
MULT  248 
MULT  249 
MULT  250 
MULT  251 
MULT  252 
MULT  253 
MULT  254 
MUL1  25i;' 
MULT  256 
MULT  257 
MULT  258 
MULT  259 
MULT  260 
MULT  261 
MULT  262 
MULT  263 
MULT  26^ 
MULT  265 
MULT  266 
MULT  267 
MULT  268 
MULT  269 
MULT  270 
MULT  271 
MULT  272 
MULT  273 
MULT  274 
MULT  275 
MULT  276 
MULT  277 
MULT  278 
MULT  279 
MULT  280 
MULT  201 
MULT  202 
MULT  283 
MULT  284 
MULT  205 
MULT  286 
MULT  287 
MULT  208 
MULT  289 
MULT  290 
MULT  291 
MULT  292 
MULT  293 
MULT  294 
MULT  295 
MULT  296 
MULT  297 
MULT  298 
MULT  299 


!? I DGY  t 1 i  %H£,  DQY  12)5  M|STK»1 

MULT 

300 

IF IK1STK  .HE,  IS  GO  TO  103 

MULT 

301 

c 

MULT 

302 

c 

A  DISCREPANCY  WAS  BEEN  DISCOVERED,  MAKE  *  WARNING  COMMENT 

MULT 

303 

WRIT6USOUT.4S 

MULT 

304 

c 

MULT 

305 

C  103 

BEGIN  MAP  ADDITION,  FIRST  READ  LINE  AND  NUMBER  INDICES  FOR  STRIP 

MULT 

30b 

103 

READ  { I  Mi  I  NRONS , NUMBRS 

MULT 

^ 

4U  ! 

C 

MULT 

308 

C 

ARE  ALL  STRIPS  OF  THE  CURRENT  MAP  COMPLETED,  YES  TO  3021 

MULT 

309 

lFINR0W3.LT.il  00  TO  3021 

MULT 

310 

JF INOP. EQ, 53  S8  TO  104 

MULT 

311 

1031 

READ  IIN25  NPQW2.NUM8R2 

MULT 

312 

C 

MULT 

313 

C 

CHECK  INDICES  FOR  MATCH 

MULT 

314 

MSSTMO 

MULT 

315 

I F (NRBWS . NE  < NR6W2  J  K1STK«1 

MULT 

316 

JF|NUM8RS.NE.N'JMBR2J  MISTK.l 

MULT 

317 

IFIMISTK  .NS.  11  GO  TO  104 

MULT 

318 

C 

MULT 

319 

C 

A  MISMATCH  HAS  BEEN  DISCOVERED.  COMPUTATION  CANNOT  BE  CONTINUED. 

MULT 

320 

WRITE  USOUT.5J 

MULT 

321 

201 

REWIND  INI 

MULT 

322 

REWIND  1N2 

MULT 

323 

IFIICI1J.QE.1J  REMIND  IOUT 

MULT 

324 

STOP 

MULT 

325 

C 

MULT 

326 

C  104 

INDICES  HATCH ,  PROCESS  A  HAP  STRIP  ONE  RQW  AT  A  TIME 

MULT 

327 

104 

IFI1CU1.LT.1I  Go  TO  109 

MULT 

328 

WRITE  II3UT5  NROWS. NUMBRS 

MULT 

329 

lFIICllJ.EO.il  GO  TO  110 

MULT 

330 

109 

!S?RIP«!STR!P«1 

MULT 

331 

WRITE  IIS0UT.6I  JSTRIP 

MULT 

332 

C 

MULT 

333 

c 

BEGIN  LOOP  TO  PROCESS  ONE  PRINTER  STRIP 

MULT 

334 

110 

CO  108  NR«1* NRBWS 

MULT 

335 

READ  1  INI) (QMAPI J) . J«l. NUMBRS! 

MULT 

336 

IF  INOP.EST35  GO  TO  UQ1 

MULT 

337 

READ  UN2H7MAP(J!,J*1.NUMBRS1 

MULT 

338 

c 

MULT 

339 

c 

COMPUTE  NUMBERS  FOR  ONE  PRINTER  ROW 

MULT 

340 

1101 

DO  109  J«l. NUMBRS 

MULT 

341 

GO  TO  NPROC. (1031.1052.1053.1054,1035.1061*1051 

MULT 

342 

1051 

OMAPUJ«Cl*OMAPNi*THAPt  J1*C2 

MULT 

343 

GO  TO  105 

MULT 

344 

1052 

OMAPt jl»Cl*OMAP  t JI -TMAP  t  J J  *C2 

MULT 

345 

GO  TO  109 

MULT 

346 

1033 

OWAPlJS»Cl*OMAPf  J1*TMAPUJ*C2 

MULT 

347 

GO  TO  103 

MULT 

348 

1054 

iFIOMAPfJl.fiO.O.? i  GO  TO  105 

MULT 

349 

IF  ITMAP (JI 180,0 . 6 i  GO  TO  2054 

MULT 

350 

OMAP(ai*OMAPUi*ClKlTHAPUl«C2) 

MULT 

351 

GO  TO  163 

MULT 

352 

2034 

OH*P(31«8!S 

MULT 

353 

30  TO  1#9 

MULT 

354 

1033 

OMAP l«  ,  ®0.1APJ  Jl *Ci 

MULT 

355 

GO  TO  165 

MULT 

356 

1860 

CALL  MlPROC  IBHAP.TNAP, JfCl. NOP. C2. SPAR} 

MULT 

357 

183 

CONTINUE 

MULT 

358 

lPliem.LT. 11  30  TO  106 


MULT  359 


o  o 


»Rf?£  I  IC-U7!  (0«A»i  J! .  J*1»NUK8RS> 

C  ',06  PREPARE  MAP  LINE  TOR  PRINTER  DISPLAY 

CONVERT  Ntj«9F»S  f OR  ONE  ROw  INTO  YHE  2-LIME  E  FORMAT 

in icr i ! .goal  so  to  iob 

’*6  53  107  J*  1 » N-jNSRS 

mONAR!.;}  1115.116.117 

115  ASSIGN  121  TO  N3 
OKAPlUM-OHAPIJl 
50  TO  119 

U7  ASSIGN  SOS  TO  N3 
ii9  H»ALQGl9 I OMAP |U5  5 
Hl*AMQO  t M , i , 0  J 

IF | JMAP  t  J I tiD  ,  0  J  JMAP ( J  J  »0 
0MAPU)«10.8**  -1 
r ; OMAR IJ 1-9.999 J125. 125. 1091 
1091  OSAR? J}*OMAPI JI/10.0 
jKAP5J)«JMAPi  J*M 
GO  TO  125 

116  JHAPIJI«0 
30  TU  300 

1?5  GO  TC  N3. 1300.121! 

121  QHARl JS«-OMAP j JJ 
300  CONTINUE 

107  CONTINUE 
C 

C  PRfNT  THE  OUTPUT  LINE 

WRITE  IIS0UT»8I(JMAP!J]»J*1» NUMBRS 1 
WRITE  IIS0UT.9J!0MAP( J!.J*1, NUMBRS I 

108  CONTINUE 

c  *t  this  point  the  processing  of  a  printer  strip  is  complete 

GO  TO  103 

c 

c  prepare  to  exit  after  completing  the  map  addition 

200  WRITE  IISOUT.71 
GO  TO  201 

end 


MULT  360 
MULT  361 
MULT  362 
MULT  363 
MUL"  364 
*UL7  365 
MULT  366 
MULT  36? 
MULT  368 
MULT  369 
MULT  370 
MULT  371 
MULT  372 
MULT  373 
MULT  374 
HUl?  373 
HU!  ?  3?t 
MUL?  377 
MULT  378 
MULT  379 
MULT  380 
MULT  381 
MULT  382 
MULT  383 
MULT  384 
MULT  385 
MULT  386 
MULT  387 
MULT  388 
MULT  389 
MtILT  390 
MULT  391 
MULT  392 
MULT  393 
MULT  394 
MULT  395 
MULT  396 
MULT  397 
MULT  398 
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nine  ixrf  cm  v)*#* 

*UPR<H)T1N«  B*5'  J*'4RS»NWAP« iSSufl 


C 

C  ti  8.  *8M«IW<f  6  MAR  *7 
C  TUI*  S0MCUT1N6  SKIP!  Q*ER  #*AP 
C 

DATA  PRCQRM/6H  SklPP/ 

I F INMAP  1100*102*101 

100  !RROR*-100 

7734  CAIU  ERROR  l PRCGRM *  I RROR . ISOUY  1 

101  DO  103  J*l»  NMAP 
READ  C  NT  APE  1 D 

READ  INTaPEJD*D.D*D.D.D 
106  read  intapejurbms.nuhsrs 
! F iNROWS .EQ » 0 !  GO  TO  103 
DO  105  K«1  * NROWS 
105  READ  INTAPEJ(D*L«1,NUM8RS» 

GO  TO  106 
103  CONTINUE 

102  RETURN 
END 


M!P  i 
SKIP  I 

IS!?  3 

kAP  t*A0£3  ON  TAPE  LOGICAL  NtAPf  SKIP  4 

SKIP  5 
SKIP  6 
SKIP  7 
SXIP  0 
SKIP  9 
SKIP  15 
SKIP  11 
SKIP  12 
SKIP  13 
SKIP  14 
SKIP  15 
SKIP  16 
SKIP  17 
SKIP  18 
SK 1 0  19 

SKIP  20 


SI0FTC  M8PR0  DECK  M94/2 
SUBROUTINE  MBPROC 
C  DUMMY 
RETURN 
END 


OMAP«TMAP»J>Cl*  N0P*C2* SPAR! 


MBPR  i 
MBPR  2 
MBPR  3 
M8PR  4 


SlfFTC  CRRORX  DECK  M94/2 

SUBROUTINE  ERROR  {PR08RM. IRRCR* JSOUTJ  EURO 

C  T.  H.  SCHWEN'F  TECHNICAI  OPERATIONS  RESEARCH  ERRO 

C  1  MARCH  1966  ERRO 

c  ERRO 

q  *•••»  ******************************** •***#<mmmmhh****#****i*************ERRO 
c  ERRO 

C  THIS  PROGRAM  WRITES  A  GENERALIZED  ERROR  COMMENT  OF  THE  FOLLOWING  ERRO 

C  FORM  ON  TAPE  ISOuT  AND  THEN  RETURNS  IF  THE  SIGN  OF  I RRQR  IS  ERRO 

C  POSITIVE  OR  ST9PS  IF  ITS  SIGN  IS  NEGATIVE#  ERRO 

c  ERRO 

C  ERROR  SENSED  IN  PROGRAM  IPRQGRM]  AT  OR  NEAR  STATEMENT  NUMBER  ERRO 

C  IIRROR],  BLEASE  REFF.R  TO  THE  PROGRAM  LISTING.  ERRO 

c  ERRO 

C  PRIOR  TO  CALLING  ERROR  THE  PARAMETER  PBOGRK  MUST  BE  SET  ERRO 

C  WITH  THE  BC9  NAME  OF  IPS  CALLING  ERRO 

C  PROGRAM  AND  PARAMETER  IRROR  MUST  BE  SET  WITH  THE  NUMBER  OF  THE  ERRO 

C  FORTRAN  STATEMENT  WHICH  BEST  IDENTIFIES  TRE  ERROR  CONDITION.  ERRO 

c  ERRO 

C  ********************** ******•***»**»•  •**!»* ******* **#**#********#i»*»®'**ERRO 
c  ERRO 

1  FORMAT I//26H  ERROR  SENSED  IN  PROGRAM  A6.30H  AT  OR  NEAR  STATEMENTERRO 
1  NUMBER  !6,40H  .  PLEASE  REFER  TO  THE  FH08RAM  LISTING.!  ERRO 

r  ERRO 


ERRO 

JRR>  TABS  1 1 RROR  J 

ERRO 

WRITE  USOUT.IJPROGRM.IRR 

ERRO 

IFIIRRORUOI.180,100 

ERRS 

RETURN 

ERRO 

STOP 

ERRO 

END 

ERRO 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 
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6.  SAMPLE  INPUT/OUTPUT 


?8l 


r 


6.1 


Sample  Input 


{ 


283 


I 


I  S I N  IS  LOGICAL  5 
USE  MODULES  01  TMRU  09 


SFORT  tfst 
1 

SFT  FOR 

TmF  n;-LFIC  MODEL 

26 

JUN  67 

I  N I  T  . 

COND. 

2 . 0 

3.048 

1.0  0.314 

4.0 

SFORT  test 

SET  FOR 

THE  DELE IC  MODEL 

26 

JUN  67 

CLOUD 

RISE 

40  10 

2  2  0 

1  0  0 

936.1744 

ZRRSTZ 

2200. 

SLUTMP 

1.0  rw 

16764. 

2.6  DNS 

MODIFIED  ARDS  MODEL  *  -  JULY  SUR  TROPICAL 

(2El2.5»12X<2e1?,5>/2El2.5jl2X»El2,5.Fi.l) 


ZTRP 


FMT 

SCLE  1 
SCL6  2 


?85 


12537466  AIM*  SEQUENCE  FOB  SB 

256  MODIFIED  S  jB.TPMP'lCM  t  JULY )  STANDARD  ATMOSPHERE 
-O.iOO0Gt+94  j  ,  294666*03  0 . 1000GE  +  01  0  ,  134706+01  0.182n(-6-j4 

0. 113916+04  0 . 98097E -  03  O.IOCOOE+Ol  0,250006*02 

-0.80000E+03  Q, 293366+03  0,100006+01  Q,132T°E+Q1  0.181445-44 

0 .111316*0*  0,980916+03  0.100006+01  0 . 2  5  0  0  0  E  ♦  0  2 

-C.60000E+03  0 . 2°?06E+03  0.100006+01  0. 129726  +  01  0,180826-04 

0.1o8746+04  0.960356+03  0.100006*01  0,250006*62 

-0.400006*03  0 . 290  766*03  0.130006*01  0,127286*01  0.18019E-04 

0.10622E*04  0,980796+03  0.10000£*51  0,250006+02 

-G.2GG0GF*03  0.289466*03  0.100006*01  0,l2487E*0l  0.179676-04 

0.103756*04  0 , 980736*03  0.1000GE*01  0.250006*02 

0.  0.301156*03  0.100006*01  0,115926*01  0.18514E-Q4 

0.101356*04  0.980006*03  0,100006*01  0,25000E*02 

0.200006*03  0.299656*03  0.100006*01  0,114066*01  0.18443E-04 

0.991736*03  0.980006*03  0.100306*01  0,258006*02 

0.400006*03  0.298166*03  0.100005*01  0.112106+01  0.183726-04 

0.969966*03  0.980006*03  0.100006*01  0,266006*02 

0.600006*03  0.296*66*03  0.100006*01  0,110346*01  (.183016-04 

0.948195*03  0,98000E*03  0.100006*01  0,274006*02 

0.800006*03  0,295166*03  0.100006*01  0,108476*01  0.1823PE-Q4 

0.926426*03  0.980006*03  0.100006*01  0.282006*02 

0.100006*04  0.303466*03  0.100006*01  0,102796-01  0,186246-04 

0.895436*03  0.980006*03  0.100006*01  0,143886*02 

0.120006*04  0.299836*03  0.100006*01  0,102l66*01  0,184526-04 

0.879186*03  0,980006*03  0.100006*01  Q , 158036*02 

0,140006*04  0.298166*03  0.100006*01  0 . 1 00&4F  +  '- 1  0.183736-04 

0  861396*03  0.980006+03  0.100006*01  0.17186E+O2 

0,160006*04  0.296286*03-  0.100006*01  0,990056*00  0 . 182836- 04 

0.842026*03  0.980006*03  0.100706*01  0.18499E+02 

9.180^06*04  0.294116*43  0.100006+01  0.97250E+00  0.101206-04 

0,821026+03  0.980006+03  0.100006*01  0,198116+02 

0 .  ?0(f  tJOE  +  04  0.292236*03  0.100005  +  01  0.956396*00  O.1809OE-O4 

0.002275*03  0.980006*03  0 . 1C 0006*01 . C . 216856  +  02 

0.220006*04  0.29035E+C3  0.100006*01  0,940256+00  0.180006-04 

0.783686+03  O.98OCOE*03  0.100006*01  0,236536+02 

0  .?'*0006  +  04  0.?883«6*n3  0.100006*01  0.923736*00  0,?7905E-04 

0.76463E  +  03  0 , V00 O0t*03  0.100006*01  0,256226*02 

0,26000E*04  0.286976*03  0.100006*01  0,915096+00  0.178376-04 

0.753796*u 3  0.9800UE*03  0. 100206+01  0,272«16+02 

0.280006+04  0.284446*03  0.100006*01  0,894036*00  0.17714E-04 

0.729976+03  0.980006*03  0.100006*01  0,323046*02 

0.300006*04  0.282476*03  0.100006*01  0.87841E+00  0,176186-04 

0.712255*0?  0.980006*03  0,100006*01  0,368976*02 

0.32000E*0<  0 , 20O6OE*03  0,100006*01  0,863726+00  0.17527E-04 

0.695676*03  0.980006*03  0.100006*01  0.414426+02 

0.340606*04  0.278546*03  0.100006*01  0,848156*00  0,174266-04 

0  678136*03  O.98GOOl+03  0,100006+01  0,470846+02 

0,360006+04  0.276576*03  Q , 3 P00Qg*01  0.83352E+00  0.173296-04 

0.661726+03  0.980006*03  0.100006*01  0,516776*02 

0.380006*04  0,275086*03  0.100006*01  0.82046E+00  0. 172566-04 

0.647846*03  0,980006*03  0.100006*01  0.548326*02 

0. 400006+04  0, 273326*03  0.100006*01  0,802106*00  0.17169E-04 

0.629296*03  0.988006+03  0. 100006+01  0.49383E+02 

0.420006*04  0.27181E+03  0.100006+01  G,  78804E  +  Q'J  0-170945-04 

0 , 61 48bE  +  tl3  0.980006*0?  3.100OOP+O1  9,461026*02 

0 . 4<O0O2*i)4  0.270056*03  0.UiU0UE*0l  0,773886  +  00  Q .  17008E-04 

0.599986*03  0,980 00?'- 03  O.10QOOS  +  01  0,450006*02 

0. 468805*04  0,260406*03  0.103606*81  0,759596*30  C, 107256-04 

0,58Si8g*03  9,980006*03  0,100006+01  St*2851c*02 


28P 


0.48C00E*0« 
G  .,572216  +  03 
0  ,500006*04 

C .555516*05 

0  .  520006*04 
0.541676*03 
0.540006*04 
0,527246+03 
0.560006+04 
0.51355F+03 

o.seonop  j4 

0.500716*03 

o  .6nr>oOE*0‘1 
G ,  407<s5E*O3 

0 . 62000E+04 
0.474636*03 
0.640036*04 
0 .462386*03 
0 .660006+04 
0,450136*03 
0 .680006*0-* 
0  ..437896*03 
0  .  70  0  0  Q6*04 
0 . 42*646*03 
0.720006*04 

0  .  415056*0 3 

0  .  740006*04 
0.404556*03 
0 . 760006*04 
0 . 39405E+03 
0.780006*04 
0  .  3M02E  +  03 
0.800006*04 
0 .374056*03 
0.82000E+04 
0 . 364086*03 
0.840006*04 
0.354106-03 
0.860006*04 
0 . 344136*03 
0.880006*04 

0 . 334166*03 

0.900006+04 
0. 324186+03 
0.920006*04 
0 . 314656*03 
0.940006+04 
0 .306256*03 
0.060006*04 
0.29^856+03 
0 . 980006*04 
0.28945E+03 
0.100006*05 
0.261056*03 
0.10200E+05 
0 .272656*03 
0 . 1O40OE+O5 
0.264266*03 
0, 1O6J0E+05 
0,255066*03 
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0 .21667E-02 
0.40000E+01 
0 , 21122E-02 
0 . 40000F+01 
0.20576E-02 
0,400006+01 
0.20031E-0.' 
0,400006+01 
0,194866-02 
0,400006+01 
0 .18441E-02 
0 . 40000E+01 
0.18468E-02 
0 .40000E+01 
0,179956-02 
0,400006+01 
0,175226-02 
0 ,400006+01 


0.163256-04 
0.16349E-04 
0.163736-04 
Q , 16397E- 04 
0.16421E-04 
0.16445E-04 
0.16489E-04 
0.16493E-04 
0.16517E-04 
0.16541E-04 
0. 165656-04 
0.16589E-04 
0.16613E-04 
0.16637E-04 
0.16661E-04 
0.16684E-04 
0.16708E-04 
0 , i6"32E-04 
0.16756E-04 
C.16779E-04 
0.168036-04 
0.16827E-04 
0.16850E-04 
0.16874E-04 
0.16898E-04 
0.16921E-04 
0.16945E-04 
0.16968E-04 
0.16992F-04 
Q.17016E-04 
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0.468681*05  0.270706*03  0.100006*01  0.17049E-O2  0.17339E-04 

0.1324*6*01  8.988006*03  0.10000E*01  0,40000E*01 

0.470006*05  0.271176*03  Q.10000E*01  0.16576E-03  0 . 170636-04 

0.129016*01  0.980006*03  0.10000E*Q1  0.400006*01 

0.472006*05  0.271376*03  0.100006*01  0.16180E-02  0.170726*04 

0.12*836*01  0.980006*03  0.108006*01  0,40000E*01 

0.474006*05  0.271566*03  0,100006*01  0,157846*02  0.170826*04 

0.123036*01  0,98000E*03  0.100006*01  0.40000E*01 

0.476006*05  0.27176E*03  0.100006*01  0.153896-02  0.170926-04 

0 . 120036*01  0.960086*03  0.100806*81  0.400006*01 

Q.47800E*05  0,271956*03  0.100006*01  0,149936-02  0.17102E-04 

0.117831*01  0.960006*03  0.100006*01  0,400006*01 

0.488086*05  0.272158*03  0.188006*01  6,145976-02  0.171116-04 

0,114046*01  0.980006*03  0.10000E*01  0,400006*01 

0.48200E*05  0.272156*03  0.100006*01  0,142586-02  0.171116-04 

0.111396*01  0.900006*03  0.100006*01  0.430006*01 

O.404OOE*O5  0.272156*03  0.10000E*01  0.139196-02  0.17111E-04 

0.108746*01  0.980806*03  0.100006*01  0,400006*01 

0.486006*05  0.272l5E*03  0.100006*01  0,135306-02  0.17111E-04 

0.106096*01  0.980006*03  0.100006*01  0,400006*01 

0.488006*05  0.272156*03  0.100006*01  0,132456-02  0.171116-04 

0.10344E*01  0.960006*03  0.100006*01  0,40000E*01 

0.490006*05  0.272l5E*03  0.100006*01  0.12901E-02  0.171UE-04 

0.100796*01  0 • 960006*03  0.100006*01  0,400006*01 

0.492006*05  0.272l5E*33  0.100006*01  0.12602E-Q2  0.171UE-04 

0.98446E*00  0.960006*03  0.100006*01  0.400006*01 

0.494006*05  0.272156*03  0.10000E*01  0,123026-02  D.17111E-04 

0.961066*00  0.9800QE*03  0.100086*01  Q,40Q08E*Q1 

0.496006*05  0.272ibE*03  O.lOOuCEtoi  0,120936-02  O.17111E-04 

0 , 937666*00  0.980006*03  0 . 4  i)0OQ6-'Ol  0,400006*01 

0.498006*05  0.272156*03  0 ,  ..00006*01  0,117036-02  0.17111E-04 

0.V1426E*00  0.980006*03  0.100006*01  0,400006*01 

0,500006*05  0.272156*03  0,100006*01  0.114036-02  0.171UE-04 

0.890866*00  0.980006*03  0 . 100006*01.  0 , 400006*01 

SHORT  TEST  SET  FOR  the  DElFIC  model  26  JUW  67  PSE 

1  « 

1.0000006*06  1.0000006*96  0.0 

14 


914.4006*00 

-0.6326*00 

0  o  6326*00 

1219.2006*00 

0,3876*00 

-0.2246*00 

1524.0006*00 

0.3426*00 

*9*2876*00 

1828.8006*00 

0.4476*00 

•0,774E*00 

2133.6006*00 

0 ,880E*00 

-0*1550*00 

2438 .4O0E* " 0 

2.9406*00 

1 .  Q70E  +  Q0 

2743.200E+00 

5,4206*00 

3.1296*00 

3048.0006*00 

6.9686*00 

4,0236*00 

3657.6006*00 

3.4846*00 

2*0116*06 

4267.2006*00 

3.4846*00 

2.0116*00 

4676.8006*00 

3  •  484g*Q0 

2.0116*00 

5486.4006*00 

7,043E*00 

-1»242E*00 

6096.0006*00 

12.7666*00 

-2t25iE*Q0 

99000.0006*00 

12.7666*00 

•2*2516*00 

SHORT  TEST  SET  FOR  THE  QELFjC  *01)51  26  JUN  67  TRANSPORT 

1  1  1  0  8  0  1  1 
28300.0 
938.1744 

TEST  SET  MIN0FI6L0 
28800,900  497.200  4115,000 

4  % 

»3i'.2  4500.0  997750.0  99??5Sg§  19292S0.3  1024700,9 
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997750,0  1029208,0  10247Q0.0 
997750,0  1029208.0  1024700.0 
997750,0  1029200.0  1024700.0 
997750,0  1029200.0  1024700.0 
997750,0  1029200.0  1024700.0 
997750,0  1029200.0  1024700.0 
997750,0  1029200.0  1024700.0 
997750,0  1029200.0  1024700.0 
997750,0  1029200.0  1024700.0 
997750,0  1029200.0  1024700.0 
997',5Q  ,  0  1029200.0  1024700,0 
997750,0  1029200.0  1024700.0 
997750,0  1029200.0  1024700.0 
997750,0  1029200 . 0  1024700.0 
997750,0  1029200.0  1024700.0 
997750,0  1029200.0  1024700.0 
997750,0  1029200.0  1024700.0 
997750,0  1029200.0  1024700.0 
997750.0  1029200.0  1024700.0 
997750,0  1029200.0  1024700.0 
997750,0  1029200.0  1024700.0 
997750,0  1029200,0  1024700.0 
997750,0  1029200.0  1024700.0 
997750.0  1029200.0  1024700.0 
097750.0  1029200.0  1024700.0 
997750,0  1029200.0  1024700.0 
997750,0  1029200.0  1024700.0 
997750.0  1029200.0  1024700.0 
997750,0  1029200.0  1024700.0 
997750,0  1029200,0  1024700.0 
997750.0  1029200.0  1024700.0 
997750,0  1029200,0  1024700.0 
997750.0  1029200.0  3024700,0 
997750,0  1029200.0  1024700.0 


99076 

4500.0 

114370 

4500.0 

1 2  9  5 ;  4 

4500.0 

1447:8 

4500.0 

160072 

4500.0 

175276 

4500.0 

1905.0 

4500.0 

205774 

4500.0 

220978 

4500.0 

236272 

4500.0 

25i 4;  o 

4500.0 

266770 

4500.0 

281974 

4500,0 

2971.8 

4500.0 

312472 

4500,0 

3276.6 

4500.0 

342970 

4500.0 

358174 

4500.0 

3733:8 

4500,0 

3886; 2 

4500.0 

403876 

4500.0 

419l;0 

4500.0 

434374 

4500.0 

4405  .  H 

4500 . 0 

4648.2 

4500.0 

480076 

4500.0 

495370 

4500.0 

510574 

4500.0 

525778 

4500.0 

541072 

4500,0 

556276 

4500,0 

571570 

4500.0 

586774 

45QO.O 

601978 

4500.0 

999999.0 

936 .1744 

iouooou.o 

i.219 . 2 

loonaoo.o 

1524.0 

1000000.0 

1826.8 

1000000.0 

2133.6 

looonoo.o 

2438,4 

1000000.0 

2743.2 

10Q0C0G.0 

3048.0 

1000000.0 

3657.6 

looaoon.o 

4267.2 

1000000.0 

4876.8 

lOOOOOG.O 

5486 , 4 

1000000.0 

6096.0 

1000000.0 

1097.28 

1037845.0 

1219.2 

1007845.0 

1524.0 

100784T , 0 

1828.8 

1007845.0 

2133.6 

1007845.0 

2438.4 

1007845.0 

2743.2 

1007845.0 

3048,0 

1007845.0 

3657.6 

1007845.0 

4267,2 

1007845.0 

4876,8 

1007849,0 

548674 

1007849,0 

997750,0 

997750.0 

997750,0 

997750.0 

997750.0 

997750.0 

997750.0 

997750.0 

997750.0 

997750.0 

997750,0 

997750.0 

997  75,0.0 

997750.0 

997750.0 

997750.0 

997750.0 

997750.0 

997750.0 

997750.0 

997750.0 

997750.0 

997750.0 

997750 . 0 

997750.0 

997750.0 

997750.0 

997750.0 

997750.0 

>J97750.0 

997750.0 

997750,0 

997V-0.0 

9^7/50.0 


1000000.0 

0.43177 

1000000.0 

0.86354 

1000000.0 

1.72708 

inooooo.o 

2.59062 

1000000.0 

3.45417 

1000000.0 

2.940 

1000000. 0 

6.420 

1000000.0 

6,968 

1000000.0 

3,484 

1000000.0 

3,484 

1000000.0 

3,484 

1000000.0 

7.043 

1000000.0 

12.766 

1001131.0 

1.68017 

1001131,0 

2.52025 

1001131.0 

3.36033 

1001131.0 

3.78037 

1001131.  Q 

3.36033 

1001131.0 

2.940 

1001131.0 

5,420 

1001131.0 

6,968 

1001131.0 

3.484 

1001131.0 

3.484 

1001131,0 

3.484 

1001131.0 

7.043 

0.11569 

0.0 

0.23139 

O.Q 

0.46277 

0.0 

0.69416 

0.0 

0.92554 

0.0 

1.070 

0.0 

3.129 

0.0 

4,023 

0.0 

2.011 

O.Q 

2.011 

0.0 

2.011 

0.0 

-1.247 

0.0 

-2.251 

0.0 

-0.61153 

0.0 

-0.91730 

0.0 

-1.22307 

0.0 

-1.  7594 

0.0 

-1.^2306 

Q.O 

1.070 

0.0 

3.129 

0.0 

4.023 

Q.O 

2.011 

0.0 

2.011 

070 

2.011 

0.0 

-1.247 

0.8 
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6096>0 

1007045.0 

1001131.0 

12.766 

-2.251 

0.0 

914.4 

1014006.0 

1004199.0 

0.0 

0.0 

0.0 

1341.12 

1014006.0 

1004199.0 

1.14931 

1.36966 

0.0 

152 J.O 

1014006.0 

1004199.0 

1.72396 

2.05452 

0.0 

1820.8 

1014006.0 

1004199.0 

2.58594 

3.08178 

0.0 

2133.6 

1014006.0 

1004199.0 

2.58594 

3,08178 

0-0 

2438.4 

1014006.0 

1004199.0 

3.58453 

1. 62640 

0.0 

2743.2 

1014006.0 

1004199.0 

5.26637 

2.45584 

0.0 

3048.0 

1014006.0 

1004199.0 

6.53371 

2.90900 

0.0 

3657.6 

1014006.0 

1004199.0 

4.82111 

2.35142 

0.0 

4267.2 

1014006.0 

1004199.0 

3.67115 

2.23500 

0.0 

4876.8 

1014006.0 

1004199.0 

3.87115 

2.23500 

0.0 

5486.4 

1G14006.Q 

1004199,0 

7.134/5 

-0.62337 

0.0 

6096«O 

1014086. 0 

1004199.0 

&0.868S8 

-2.51382 

0.0 

914.4 

1017853.0 

1008952.0 

0.0 

0.0 

0.0 

1219.2 

1017853.0 

1008952.0 

0.0 

0.0 

0.0 

1524.0 

1017853.0 

1008952.0 

1.72396 

2.09452 

0.0 

1828.8 

1017853.0 

1008952.0 

2.36594 

3.08178 

0.0 

2133.6 

1017853.0 

1008952.0 

2.58594 

3.08178 

0.0 

2438.4 

1017853.0 

1008952.0 

3.56453 

1.82640 

0.0 

2743.2 

1017853.0 

1008952.0 

5.26657 

2.45584 

0.0 

3048.0 

1017853.0 

1008952.0 

6.53371 

2.90900 

0.0 

3637.6 

1017853.0 

1008952.0 

4.82111 

2. 3*4  42 

0.0 

4?67 i 2 

1017853.0 

1008952.0 

3.67115 

2.23500 

0.0 

487678 

1017853.0 

1008952.0 

3.87115 

2,23500 

0.0 

54116.4 

1017853. U 

1008952.0 

7.12475 

-0.62337 

0.0 

60<'6.0 

1017853.0 

1008952.0 

10.88358 

-2.51332 

0.0 

914.4 

1023385.0 

1013452.0 

0.0 

0.0 

0.0 

1219.2 

1023365.0 

1013452.0 

0.0 

1.7B8 

0.0 

1524.0 

1023385.0 

1013452.0 

0.0 

2.682 

0.0 

1828.8 

1023385.0 

1013452.0 

0.0 

4.023 

0.0 

2133.6 

1023385.0 

1U13452.0 

1.52863 

4.20041 

0.0 

2438*400 

1023385.0 

1013452.025 

4.076 

2.750 

0. 

27437200 

1023365.0 

1013452.025 

4.590 

1.762 

0. 

30487000 

1023385.0 

1013452.025 

5,101 

1.658 

0. 

33527600 

1023365.0 

1013452 , 025 

5.461 

1.987 

0. 

36577600 

1023385.0 

1013452.025 

5.842 

2.243 

0. 

3962,'40O 

1023385.0 

1013452.025 

4.938 

2.096 

0. 

42677200 

1023385.0 

1013452.025 

4.251 

2.458 

0. 

45727000 

1023385.0 

1013452.025 

3.978 

2.890 

0. 

48767800 

1023-85.0 

1013452.025 

4.258 

2.458 

0. 

5161t600 

1023385.0 

1013452. U25 

5.181 

1.388 

0. 

5406 ; 400 

1023385.0 

1013452.025 

6,70* 

0.117 

0. 

57917200 

1023385.0 

1013452.025 

7.924 

-1.397 

0. 

£0967030 

1023385.0 

1013452.025 

8,977 

-2.745 

0. 

9147400 

1026389.000 

1019976.125 

0.0 

0.0 

0. 

1219.200 

1026369.000 

1019976.125 

1.788 

-0.031 

G. 

13247060 

1026389.000 

1019976.125 

2.249 

1.461 

0. 

16287800 

1026389. OOC 

1019976.U3 

3.255 

2.365 

0. 

21337600 

1026389.000 

1019976.125 

3.424 

2.873 

0. 

24387400 

1026389.000 

1019976.125 

4.076 

2.750 

0. 

27437200 

1026389.000 

1019976.125 

4,391 

1.762 

0. 

30487808 

1826389,000 

1019976.125 

5,101 

1.658 

0. 

3352.800 

1026389.000 

1019976.125 

5.461 

1.987 

0. 

36577600 

1026369 .090 

1019976.125 

5.848 

2.243 

0. 

39627400 

1826369.000 

1019976.125 

4.931 

2.096 

0. 

42677200 

1826369.000 

1019976.125 

4.256 

2.456 

0. 

4572,000 

1^4319.000 

10*9174. 125 

3.971 

2.890 

0, 

48987800 

4Uit*00 

.194/6.115 

4.t»l 

1.458 

0. 

lifim.tia 

1019471.125 

i.m 

1.366 

6. 

m 

f 

S 

• 

V 

V 

9  4  - 

t 

.  ■ 

i  *  %■ 

r 

54867400 

1026389.000 

1019976.125 

6.704 

0,117 

0. 

57917200 

1026389.000 

1019976.125 

7.924 

-1.397 

0. 

6096 .000 

1026389.000 

1019976.125 

8.977 

-2.745 

0 . 

914.4 

1005909.0 

1010410.0 

0.0 

0  0 

C.O 

1219.2 

1005909.0 

1010410.0 

0.0 

0.0 

0.0 

1524.0 

1005909.0 

1010410.0 

0.0 

0.0 

0.0 

1828.8 

1005909.0 

1010*10.0 

0.0 

0.0 

0.0 

2133.6 

1005909.0 

1010410.0 

0.0 

0.0 

0 . 0 

2438:4 

1005909,0 

1010410.0 

2.940 

1.070 

0,0 

2743.2 

1005909.0 

1010410,0 

5.420 

3.129 

0.0 

3048.0 

1005909.0 

1010410.0 

6.968 

*.023 

o.u 

3657.6 

1005909.0 

1010410.0 

3.484 

2.011 

0.0 

4267.2 

1005909,0 

101041C  .  0 

3.484 

2.011 

0.0 

4876.8 

1005909.0 

1010410.0 

3.484 

2.011 

0.0 

5486.4 

100590 c.O 

1010410 . 0 

7.043 

-1.247 

0.0 

6096.0 

1005907.  .0 

1010410 . 0 

12.766 

-2,251 

0.0 

914i4 

lonnooo.u 

1019350.0 

0.0 

O.C 

0.0 

1219.2 

1000000.0 

1019350.0 

0.0 

0.0 

0.0 

1524.0 

loonooo.o 

1019350.0 

O.C 

0.0 

0.0 

1828.8 

1000000.0 

1019350.0 

0.0 

0.0 

0.0 

2133.6 

1000000. 0 

1019350 . 0 

0.0 

0.0 

0.0 

2438.4 

1000000,0 

1019350.0 

2.940 

1.070 

O.Q 

2743.2 

1000000.0 

1019350.0 

5.420 

3.1?9 

o;o 

3048.0 

1000000.0 

1019350.  G 

6.968 

4.023 

0.0 

3657.6 

1"  0000.0 

1019350.0 

3.484 

2.011 

0.0 

4267.2 

looooon.o 

1019350.0 

3.484 

2.C11 

0.0 

4876.8 

1000000.0 

1019350.0 

3.484 

2.011 

0.0 

5486:4 

1000000.0 

1019350.0 

7.043 

-1.247 

0.0 

6096.0 

1000000.0 

1019350.0 

12.766 

-2.251 

0,0 

914.4 

1013050.0 

1019350.0 

0.0 

0.0 

0.0 

1219.2 

1013050.0 

1019350.0 

0.0 

J.O 

0.0 

1524.0 

1013050.0 

1019350.0 

U.O 

0.0 

0.0 

1828.8 

1013050.0 

1019350.0 

0.0 

0.0 

0.0 

2133.6 

1013050.0 

1019350.0  . 

0.0 

0,0 

0.0 

2438.400 

1013050.0 

1019350.0 

4.076 

2.750 

0. 

27437200 

1013050.0 

1019350.025 

4.590 

i.  762 

0. 

38487000 

1013050.0 

1019350.025 

5.101 

1.658 

0. 

33527800 

1013050.0 

1019350.025 

5.461 

1.987 

0, 

3657;600 

1013050.0 

1019350.025 

5.842 

2.243 

0. 

39627400 

1013050.0 

1019350.025 

4.938 

2.096 

0. 

4267.200 

1013050 . 0 

1019350.025 

4.256 

2.458 

0. 
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CLOUD  RISE  IS  TERMINATED  IN  CXFN  *T  STATEMENT  243  BY  THE  R  RATE  SNITCH 


CLOUD  OISE  AWO  EXPAKSION  HISTORY  TABLE  CX 


DAVIES  E9UATI0AS  A*E  INACCURATE  FOR  7796.03  HICRONS  AT  -1000.000  PETERS 


DAVJI5  EQUATIONS  ARE  ^ACCURATE  FOR  77W.433  HICACNS  AT  WOO.OOO  METERS 
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THE  DEPARTMENT  OF  DEFENSE  FALLOUT  PREDICTION  SYSTEM 

********** 


CLOUD  RISE  -  TRANSPORT  INTERFACE  MODULE 


PREPARED  BY 

TECHNICAL  OPERATIONS  RESEARCH* INC. 
BURLIN6T0N.  MASS. 


FW 

C.1CCCOOE 


SSAN 

C.15fl30E  07 


SLOTMP  TMSO 

0.22COG0E  04  0.386023E  01 


SIGMA 

0.138629E  01 


TW  HOB 

C.20C0OCE  01  C  -lOCOOOE  02 


BZ 

0.72C3I1E  C3 


ROPART 

0. 260 0003  04 


NSP 

1 


PSE  ID 


SHORT 

TEST  SET  FOR  THE 

OELFIC 

MODEL 

26 

JUN 

67 

PSE 

Cnio 

SHORT 

TEST  SET  FOR  THE 

OeLFlC 

MOCEL 

26 

JUN 

67 

CLOUD  RISE 

OETIO 

SHORT 

TEST  SET  FOR  THE 

OELFIC 

MOCEL 

26 

JUN 

67 

INIT.  CCND. 

CONTROL 

-c. 

ARRAY  IC(.I»,J«1, 

-C  X  -c 

18 

0  -0 

-0 

-C 

-0 

-0  -0 

-0  -0  -0 

-c 

-c 

-0 

-0 

DETONATION  COORDINATES 

XGZ 

C.iOOOCCE  07 

0 

YGZ 

•  6.000005  07 

TGZ 

O.OOOOOCE-38 

m 


UtHO  FOOCGRAFH  AT  GAOUMO  ZERO 


NHODO  * 


14 


VECTCA  ALTITUDE.  ZVIJI 
0.4144001  03 
0.U142OE  04 
0.152400E  04 
0.1828ME  W 
0.2133401  04 
0.2438406  04 
0 .2743206  04 
0.304A00E  04 
0.3*37406  04 
0.424TZ0E  04 
0.4074ME  04 
0 .3414406  04 
0.4044006  04 
0.490000E  C3 

NAS  «  10 

PARTICLE  SIZE 
0.7744496  04 
0.4347316  03 
0.2382446  03 
3.1714836  03 
0.1143496  03 
0.840749c  02 
0.984691E  02 
0.389709E  C2 
0.2298476  02 
0.1287936  01 


MtUl _ _ _ 

_  VYiJJ  . 

-0.4320006  00 

0.6320006 

00 

0.387000E  OC 

-0.2240006 

00 

0.342000E  00 

-0.287000E 

00 

0.447000E  00 

-0.774000E 

00 

0.8800006  00 

-0.13S000E 

00 

C.24400QE  Cl 

0.1070006 

01 

0.942000E  01 

0.3129006 

01 

0.496COOE  01 

0.4023006 

01 

0.3484006  01 

0.2011006 

31 

0.3484 COE  01 

0,2011006 

01 

0.3484C0E  01 

0.2011006 

01 

0.7C43CO£_01 _ 

_ aiUlU2Ca£-01  ... 

C. 1276806  02 

-0.2291006 

31 

0.127660E  02 

-0.2291006 

01 

MASS  FRACTION 
0.1000006  00 
0.1000QQE  00 
0.1C0C00E  00 
C. 1000006  00 
0.10000CE  00 
0.1000006  OC 
0.1000CC6  00 
0.1C0030E  00 
0.1000006  00 
O.lOOOOuE  00 


FACT 

0.9924726  03 
0.3219306  03 
0.2071606  o3 
0.1422816  03 
0.100191E  03 
0.7039146  02 
0.4843606  02 
0.3118126  02 
0.1694286  C2 
0. 9784236-01 


S-V  RATIO 
0 .4809626-01 
0.8321976-01 
0.1301436  00 
G.224611E  CO 
C.322272E  00 
0.4564626  CO 
0.6386236  CO 
C.987465E  CO 
C. 1652396  01 
0.5387926  01 
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VISCOSITY 

RH0 

0*1 62060E-04 

0.1347006  01 

0  .131440 E-04 

0.132190E  01 

0  « 1 S0820E-04 

0.1297206  01 

0*1  SO 190 E-04 

0.127280E  01 

0* I79570E— 04 

0.124870E  01 

C„  16  5140  E-04 

0.115920E  01 

0*ie4430E-04 

0.114060E  01 

0*1 83720E-04 

0. 112200E  01 

0  ~ 1 83010E-04 

0.110340E  01 

0 .1R23C0E-04 

0.108470E  01 

0,1;  6240 E-04 

0. 1C2790E  01 

0  .»  45206-04 

Or,  103730E— 04 

0.1006406  01 

0.1  il  28306-04 

0.990050E  00 

0*1 01800E-04 

0.972500E  00 

0  1- '5  0900  E-04 

0.956390E  00 

0,,  10 0000 E-04 

0.940290E  00 

0  1 790 50 E— 04 

0.923730E  00 

0. 178370E-04 

0.9150906  90 

0. 1771406-04 

0.8940306  OO 

Or,  176 100  E-04 

0.8784106  00 

OJ.  "5270E-04 

0.863720E  00 

0*  174260E-04 

0.848150E  00 

1 

0* 172 560 E-04 

0.8204606  00 

0.1716906-04 

0.8021006  00 

0 « 17  0940E-04 

0.788040E  00 

0.  1,700806-04 

0.773880E  00 

Or,  1692  50  E-04 

0.759550E  00 

Or 1089106-04 

0.744620E  00 

OrK  8200E-04 

0.726670E  00 

0  «•  1676606—04 

0.711510E  00 

0 . 1672306-04 

0.6947706  00 

Or}?  &820E-04 

0.678820E  00 

0* If  64106-04 

0.663920E  00 

O • If  47106— 04 

0.637320E  00 

0.1638006-04 

0.624920E  00 

0*1629006-04 

0.612530E  00 

_  Q* i<?goQ6-04 

Of 600130E  00 

0.1610906-04 

0.^8tt30E  00 

IMMBHHMBMWBHhmrmifi  li  /■>  9  W  M '  M-& 

0.1J9690E-04 

0.5445 TOE  00 

0* 119000 E— 04 

0.553010E  00 

O.l!  '32006-04 

0.5418806  00 

.Jb  1 173946-04. 

0.530790E  00 

0.1345806—04 

0.519700E  00 

WMSSBBKHKBSKBL9  i  Ml  ‘  1 » 1  m 

0.1349606-04 

0.497520E  00 

_ 

0.484430E  00 

0.1533401-04 

_ _ fltuay  <MS»- 

9* 1310006-04 

0.4344 WE  00 

IPHBPWBMl '  HI4 

0.444420E  00 

o.4i4i40E  do 

...  _ i»149f4f-Q4 

0.4143006  00 

0»1<!  47905-04 

b*4t4liOE  00 

ft 

,  '  ‘“-.■u.vij  OOP'/ 

I 


0.143040u-04 

0.147290c-04 

Q.14658QE-04 

0.1458906-04 

0.1452GQS-04 

0.144610c-04 

0.144i40£-04 

0.1436806-04 

0.1432206-04 

0. 1427506-04 

0.1422906-04 

0.1418306-04 

0,141 360 £-04 

0«l40900E-^4 

0.1404406-04 

0.1406006-04 

0.1408706-04 

0,1419106-04 

0,1406306-04 

0.1403506-04 

0,1400606-04 

0. 1397806-04 

0.1395C0E-04 

C. 1392106-04 

0.1389306-04 

0.1390506-04 

0.1392606-04 

0.1394B0E-04 

0.139700E-04 

0.139920E-04 

0.140140E-04 

0.140360E-04 

0.140530E-04 

0. 140  5  30  4 

0.140520E-04 

0.140510E-04 

0.140500E-04 

0.140500E-04 

0.1404906-04 

0.1404806-04 

0.1406706-04 

0. 1410006-04 

0.141330E-04 

0. 141660E-04 

0.142Q0QE-04 

0.142330E-04 

0.142660E-04 

0.142990E-04 

0.143140E-04 

0.139700E-04 

0,1399406-04 

0.140180E-04 

0.140420E-04 

0.140670E-04 

0.1408906-04 

0.141110E-04 

0. 141330 E-04 

0.141S50E-04 

0.1417706-04 

0  » 141990E-04 


0.40418CE 

03 

0.39412'JE 

00 

o. 3844306 

OC 

0.3749406 

oc 

0.36545CE 

00 

0.35635C6 

CO 

c. 3477306 

oc 

0.3391106 

00 

0. 3334806 

00 

0.32186CE 

00 

C.31324CE 

00 

0.3C462CE 

0? 

0.29600C6 

00 

C. 2873806 

U3 

C.278750E 

oc 

C.26956CE 

00 

0.260270E 

oc 

0.2520406 

00 

C.245280E 

00 

C.23852CE 

00 

0.2317606 

00 

C.225CCGE 

00 

0.21825CE 

00 

C.2U49CE 

00 

0.20473CE 

00 

C. 1984606 

00 

C.1923CCE 

oc 

0.18615CE 

00 

C.180000E 

00 

0.173850E 

00 

0.167700E 

00 

0.161550E 

00 

'-•155740E 

00 

C.151460E 

00 

0.147190E 

CO 

0.14292CE 

OC 

C.138650E 

00 

0.13438GE 

00 

0.1301 ICE 

00 

C.12584CE 

00 

0.12177CE 

03 

0.117870E 

00 

0.113960E 

oc 

0.110060E 

00 

0.106150E 

CO 

0.10225CE 

00 

0.963410E-01 

0.94436CE-01 

C. 9167506-01 

0.9318206-01 

0.901840E-01 

0.8718506-01 

0.841860E-01 

0. 8118706-01 

0.7869006-01 

0.761930E-01 

0.736950E-01 

0.7119806-01 

0.6870106-01 

0.66607CE-01 
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0.142210E-04 
0. 1424206-04 
0. 142640E-04 
0.14286OE-O4 
0.143C80E-Q4 
0.14329CE-04 

_0.143510E-04 

0.143730E-04 

0.143940E-04 

0.1441601-04 

0.144380E-04 

0.1445906-04 

0.144810E-04 

0.14502QE-Q4 

0.1452406-04 

0.145450E-04 

0.145670E-04 

0.145880E-04 

0.146100E-04 

0.146310E-04 

0.1465306-04 

0.1467406-04 

_  0.1469606-04 
0. 147170 E-04 
0.147380E-04 
0. 1476006-04 
0. 1478106-04 
0.148020E-04 

J>. 1482406^04 
0.1484506-04 
0.148660E_-04_ 
0.1488706-04 

~ot 149300 E—04~ 
0 .1495106-04 
0.149720E-04 
0.149930E-04 
0.1501506-04 


0. 6451206-01 
0.6241806-01 
0. 6032406-01 
0.58229QE-01 
0.5647106-01 
0.5471206-01 
0.5295406-01 
0.511950E-C1 
0.4943606-01 
0.4795506-01 
0.46475QE-01 
0.4499406-01 
C. 4351306-01 
0.4203206-01 

0.3953706-01 
0. 3829006-01 
0. 3704206-01 
0.3579506-01 
C.34740GE-01 
0.336860E-01 
0.3263106-01 
0.3157606-01 
0.305210E-01 
0.2963006-01 
0.2873906-01 


0.2695606-01 
0.260650E-01 
0.253110E01 
0.245560E-01 
0.2380206-01 
0.2304806-01 
0. 2229306-01 
0.216530E-01 
0.2101206-Oi 
0.203710E-01 
0.X97310E-01 


0.1505706-04 

_ 0*150 780ErQ4 

0.1509906-04 

_ 0.151200E-04 

0.1514106-04 

_ CUlgl^QE-O* 

0.1518306-04 

0.152040E-04 

0.1522506-04 

_ 0. 1524606-04 

0.1^27006-04 

— _ 

0.153190E-04 

_ 0*1534306-04. 

0.&536706-04 

_ 0.1839206-04 

0.154170E-04 

- _ _ ihA 

0. 1546706-04 
0.154920E-04 
©•1551706-04 


0.185460E-01 
0.1800206-01 
0.174590E-01 
0.1691506-01 
0.1637106-01 
0.1590806-01 
0.154460E— 01 
0.1498306-01 
0.145200E-01 
0,1405806-01 
0.136610E-01 

0.128670E-01 

0.124700E-01 

0.1207306*01 

0.1173506*01 

~Olil396OE*01 

0.1105006-01 

o.iotTOPoT 

0.1038106-01 

o.!©©99$l-ei 
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0.1554206-04 

0.1556606-04 

0.1559106-04 

0.1561606-04 

0.1564106-04 

0.1566606-04 

0.1569006-04 

0.1571506-04 

0.1574006-04 

0.157640 £-04 

C.15789CS-04 

0.1 581406-04 

0.158380E-04 

0.158630^-04 

0.158870E-C4 

0.1591206-04 

0.15936 jt-04 

0.1596106-04 

0.159850E-04 

0.160.  00004 

0.1603406-04 

O. 1635806-04 

0.160830E-04 

0.16lC70:-04 

C. 1613106-04 

0.1615606-04 

0.1618006-04 

0. 1620406-C4 

0.1622806-04 

0.1625306-04 

0.1627706-04 

0.163C10E-04 

0.1632506-04 

0.1634906-04 

0.163730E-04 

0.1639706-04 

0. 1642106-04 

0.1644506-04 

0.1646906-04 

0.164930E-04 

0.165170t~04 

0 . 165410E-04 

0.1656506-04 

0.1658906-04 

0.1661306-04 

0.,  1663706-04 

0 . 166610E-04 

0.1668406-0't 

0.1670806-04 

0.1673206-04 

0.1675606-04 

0.167790E-04 

0 . 168030E-Q4 

n. 1682706-04 

0.168500E-04 

0.1687406-04 

0.1689806-04 

0  *  1692106-04 

0.1694506-04 

0.1 696806 "04 


0.98043CE-C2 
C.95159CE-C2 
0.922760E-C2 
0.8939206-02 
0. 5693106-02 
C.844Ti;t-02 
0.8201006-02 
0.7954906-02 
0.7708906-C2 
C.749880E-02 
0.72887CE-02 
C.70785CE-0? 
2 .68684u£-0t 
C.66583CE-02 
0.647850E-02 
0.6298606-0; 
0.61187CE-02 
0.5938806-02 
<''.5759CCt--C7 
0.5604806-Ct, 
C.545C6CE-02 
v.  •  5Z963CE-02 
•.51421CE-02 
C.49879CE-C2 
C.485E7CE-02 
0 .472340E-0? 
C.45911C6-02 
r .445S8CE-02 
0. 4326506-02 
C.42128CE-02 
C.409900E-02 
0.3985306-02 
C. 38/1506-02 
0.37578CE-02 
0.365980E-02 
0.356.9CL— 0? 
0.346390E-02 
0. 3366006-02 
0.3268CC6-02 
0.31837CE-02 
0.3C9930E-02 
C.3C1490E-02 
0.293C50E-02 
0.2846106-02 
0.277320E-C2 
C.270040E-02 
0.2627506-02 
O.255460E-02 
C.248170E-02 
C.241870E-02 
C. 2355706-02 
0.229270E-02 
0.222970E-02 
0.21667GE-02 
C.211220E-02 
C.205760E-02 
C.200310E-02 
€ . 194860E-02 
0.1894106-02 
0.18468CE-02 


0.170720E-Q4 


0.17082QE-04 
0*17092 0  E-04 


Q«m800£-02 

0.157840E-02 

0.153890E-02 


0.171020E-04 

0.17U1.0E-Q4 


O.milOE-04 

0.171110E-04 


C.149930E-02 

0.143470E-02 


0.142580E-02 

0.139190E-02 


0.171110E— 04 

oaniiOE-04 


C* 135800E-02 
O.13240OE-O2 


0.171110E-04 

0.171110E-0* 


0.17U10E-04 

0.171U0E-04 


0.123010E-02 

Q.12602QE-02 


0.123020E-02 

0.120C30E-02 


0.171110E-04 

0.171110E-04 


0.117030E-02 

0.114030E-02 
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■  .2379066 

01 

C. 941220b 

C3 

C .1.906CE 

C4 
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V, 
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Oi 
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03 

C .1190846 

04 
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C2 

0.144242b 

C4 

C.137589E 

C4 

C.197715E 

C> 

3i4')l  .r 

0 

j. 25 8791 E 

02 

0. 1552 lo£ 

04 

C .2u486GE 

04 

C.167118E 

a? 

0.27311 3E 

C  r. 

0.323791b 

0? 

C. 165679b 

04 

0.222742L 

C4 

0.142132E 

02 

0.23989-6 

C: 

:. 42379! E 

C2 

D. 130192c 

24 

2.2-.673.E 

04 

0.123167E 

02 

0.21 1189b 

CI 

C. 52 3791b 

02 

0.192 5096 

•04 

*.  .2&785CE 

0* 

0. 1107C06 

02 

C  . !  9  .37  -c 

c- 

<.  .6?  3791  f 

32 

0.27*35796 

04 

C.236987E 

C4 

0.1.U352E 

07 

17637. £ 

Ci 

0.723791 £ 

02 

C.213714E 

04 

.'•3-4624E 

C4 

0.924828E 

Oi 

•  lci87  5E 

c: 

0.87  379 . 6 

02 

0.2275866 

■04 

•3*8905E 

04 

C.861168E 

Ul 

c  .15j36i  E 

c  > 

0. 102379: 

C3 

0.2405746 

04 

C. 33i459£ 

04 

0. 816274E 

01 

<  . 1410971 

Oi 

‘.117379: 

03 

C.2c'2748t 

0* 

C. 3727746 

04 

0.778952E 

01 

C'.1354C«E 

Ci 

-.132379b 

O' 

0.264431b 

'4 

‘ .39  J08c6 

04 

■j.  746916E 

Cl 

-  .129499E 

07 

C.i52379c 

03 

0.279269E 

04 

.'•418984E 

04 

0.719501E 

Oi 

0 . 1 24 1486 

CI 

0.177379b 

03 

0.297257E 

04 

c  .45C021E 

C4 

0.686029E 

Ci 

0. 11 87586 

07 

0.197379E 

03 

0.211C776 

04 

-.4737726 

C4 

C.fic,2240E 

Cl 

5  .U359  .E 

4  L 

..222379C 

03 

l .2272936 

04 

.5  2171E 

C4 

C.61C16CE 

01 

-  . ) 0745 * b 

0  c 

...25:3796 

03 

•J.  245488E 

04 

:.5J44'.6E 

04 

0.569863E 

0! 

t . lo!51 jc 

Ci 

J. 2323796 

03 

0.362784E 

04 

. 5&486-E 

04 

0.610451E 

ai 

-.937399E 

C 

3.31*379; 

03 

0.3781042 

J4 

•-.592981E 

04 

0.4v.4t22E 

c: 

■j.  8  c  482  7  b 

01 

-.347379c 

03 

). 292265b 

C4 

2.6.-11506 

04 

'.287665E 

01 

. 65 j99 ib 

0. 

c.3823796 

03 

0.422224E 

04 

.6441106 

C4 

0.13867CE 

C! 

C. 468476': 

0. 

C. 422379E 

C3 

0. 6  3788! 6 

04 

C.6--2849E 

04 

-0.399750E 

07 

I.  4435  ’E 

C‘< 

0.467379i_ 

C3 

0.4 !6C32b 

04 

-.673845c 

C4 

-0.120913E 

.12291  E 

c- 

:.512379E 

03 

u.4C J441E 

04 

-.679286E 

■  4 

-C.1CS366E 

Cl 

•  1 1  536c>£ 

V  l 

5. 557379- 

C3 

0 .3958996 

24 

C .634028E 

04 

C.C00v.CrE- 

■38 

0  • C0G3C  (.6-36 
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XC 

YC 

zc 

T». 

VC 

-  .15'-356E 

Cl 

C.15C756? 

Cl 

b.  106591 F. 

04 

0.23797*6 

01 

>i.  11  5923E 

01 

*t»l672o6t 

Oi 

0.162?'  6E 

“  4 

4 

0.1164186 

04 

C.256656E 

01 

J.542616E 

C’. 

-1.1575386 

C  b 

0.1627C8E 

C-' 

0.iC6857c 

0* 

0. 3C04'jeE 

01 

C.137500E 

C: 

--.1235766 

Oi 

C.143108E 

0 1 

0. 178755b 

04 

0.387906E 

71 

3.26C698E 

C: 

-'.'•656258c 

09 

C. I795i 86 

Cl 

C.U1966E 

04 

vi.f  379U6E 

01 

...35669ic 

0’ 

-..757585E-01 

0.759  )6. E 

oo 

7.117315b 

04 

C.687906E 

01 

0.410327 6 

c: 

.891742 : 

CJ 

0.1997876 

O' 

C.12757-.F 

04 

0.93’906E 

71 

c.4cE535E 

c  > 

-.2. '2333c 

01 

-C.514796E 

70 

7.139830t 

C4 

0.1237916 

C  2 

0.3: 7376E 

c 

/.322C33F 

01 

-0.1511676 

01 

3.15Z338E 

04 

0.158791E 

C  2 

3.  3<  1712E 

0? 

■ .47:9336 

01 

-7.281 Jlr£ 

01 

J.155915E 

04 

0.2C3791E 

o2 

7.25586 35 

C2 

0.7147056 

Cl 

-C. 67396 1  c 

01 

0.1799  jc 

04 

0.258795  E 

02 

•J. 221116b 

c: 

■- .13-526  6 

02 

-0.117698E 

02 

C .1443606 

04 

0.323791  E 

02 

0. 191011c 

C- 

-.leocoic 

■j2 

-0.145362E 

02 

-.21346 1 E 

04 

0.4237916 

02 

0.1o7178E 

c: 

1.287462  - 

02 

-C.1493UE 

’2 

7.23  31 796 

04 

0.52379’ E 

2 

C.151035E 

Ci 

0.581462c 

C2 

-C.423TC6E 

ci 

0.245283E 

04 

C.623791E 

02 

0.138861E 

0  3 

C.877C491 

02 

C. 6601736 

01 

7.259169b 

04 

0 . 723791E 

02 

U.127179E 

03 

u.l69C05c 

c  3 

a.5?5’57E 

02 

C.278246E 

04 

0-873791E 

32 

b.ll823»6 

Oi 

...25t712  6 

c2 

C.1C5’26E 

33 

2. 295982b 

04 

0.102379E 

03 

7.1.18626 

02 

■-  . 363232  3 

C’ 

0.165671E 

C3 

0.312761c 

04 

0.117379E 

03 

C.iC664t>E 

C? 
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0.467752E 

C3 

0.226916E 

03 

0.J28738E 

04 

0  132379E 

03 

0.1010V5E 

C2 

9.S59689E 

03 

0.279089E 

03 

0.349177E 

04 

0.152379E 

03 

0.9oC490E 

01 

C.646789E 

03 

0.3293646 

03 

0.3736896 

04 

0.J77379E 

03 

0.936806E 

01 

U. 7164696 

03 

0.3695846 

93 

0.3924251 

04 

0.197379E 

03 

0.8°4072E 

01 

0.803569c 

03 

0.419859E 

03 

0.414777E 

04 

0.222 379E 

03 

0.842329E 

01 

0. 908089 E 

03 

0.480189E 

03 

0.4400476 

04 

0.252379E 

03 

0.792497E 

01 

G. 1012616 

04 

0.540519E 

03 

0.463822E 

04 

0.2823796 

03 

0.724030E 

01 

0.1117136 

04 

0.600849E 

03 

0.485543E 

04 

0.312379E 

03 

0.60471SE 

01 

0. 123907 E 

04 

0.671234E 

03 

0.506708E 

04 

0.347379E 

03 

0.471840E 

01 

0.139919E 

04 

0.706720E 

0? 

0.523222E 

04 

0.3823796 

03 

0.303573E 

01 

0. 168091 6 

04 

0.657040E 

03 

0.535365E 

04 

0.422379E 

03 

0.102189E 

01 

0.199795E 

04 

0.601150c 

03 

0.539963E 

04 

0.467379E 

03 

-0.335276E-06 

0.2314786 

04 

0.545260E 

03 

0.539963E 

04 

0.S12379E 

03 

O.OOOOOOE-38 

0.263172 E 

04 

0.4893706 

03 

0.539963E 

04 

C.557379E 

93 

C.OOCOOOE-38 

DAVIES  EQUATIONS  ARE  INACCURATE  FOR  7796. 452  MICRONS  AT  938.175  METERS 

ENTERING  LINK  5 


•»>»  tidbit 


********** 


**** 


THE  DEPARTMENT  OF  DEFENSE  FALLOUT  PREDICTION  SYSTEM 


********** 


TRANSPORT  MODULE 


PREPARED  BY 

TECHNICAL  OPERATIONS  RESEARCH,  INC. 
BURLINGTON,  MASS. 


****  SUMMARY  OF  INPUT  IDENTIFIERS  AND  INITIAL  CONDITIONS  **** 


****  INITIAL  CONDITIONS  (FIREBALL)  IDENTIFICATION  **** 

SHORT  TEST  SET  FOR  THE  DELFIC  MODEL  26  JUN  67  INIT.  COND. 

****  CLOUD  RISE  IDENTIFICATION  **** 

SHORT  TEST  SET  FOR  THE  DELFIC  MODEL  26  JUN  67  CLOUD  RISE 

****  PARTICLE  SET  EXPANSION  IDENTIFICATION  **** 

SHORT  TEST  SET  FOR  THE  DELFIC  MODEL  26  JUN  67  FSE 

THIS  RUN  OF  THE  TRANSPORT  MODULE  WAS  GIVEN  THE  FOLLOWING  IDENTIFICATION  **** 
SHORT  TEST  SET  FOR  THE  DELFIC  MODEL  26  JUN  67  TRANSPORT 

****  OTHER  INPUT  DATA  **** 

THE  CONTROL  VARIABLE  ARRAY,  IC{J),  HAS  BEEN  GIVEN  THE  FOLLOWING  VALUES. 

1  1  1  0  0  0  1  1  -0  -0  -0  -0  -0  -0  -0  -0  -0  -0 

THE  TRANSPORT  TIME  LIMIT  IS  28800.000 
PARTICLE  DATA 

DENSITY  OF  FALLOUT  PARTICLES  '’600.000  KG/M**3 

IPARIN  1  0,10000E  07  0,100G0E  07  0,00000E-38  0.72032E  03  0 


TOPOGRAPHIC  DATA 

IN  THIS  RUN  WE  ASSUME  A  PLANAR  DEPOSITION  SURFACE  AT  ELEVATION  938.174 


WIND  DATA 
TEST  SET  WINDFIELD 
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ATMOSPHERIC  PROPERTIES  FOR  PALI,  RATE  UICULATKJN 


_  H£IC!H_OF  BQTIQM  _  . 

VISCOSITY.-. 

_ DENSITY _ _ 

OF  STRATUM 

METERS  ABOVE  MSL 

.  JM>LS) 

(MRS! 

-QaiOQOE  Q4 

0,i8206E-04 

0.13470E  01 

-0.90000E  03 

0.18144E-04 

0.13219E  01 

_  -0..2QM0E.Q3  . 

0.18082E-Q4 

.-.JQLUESIZEJH _ 

-0.50000E  03 

0.18019E-04 

0.12728E  01 

-iL»30Q.QQE  Q3 

0**IS§1E-04 

0.12487E  01 

-0.100C0E  03 

0.18514E-04 

0.11592E  01 

0*i0000E  03 

.0*184435-04 

0*11406E  01 

0.30000E  03 

0.18372E-04 

0.11220E  01 

0.  SOQQQF.  03 

0«.18301E*04 

.  Q.11034E  Q1 

0,70000E  03 

0.18230 E-04 

0.10847E  01 

0.90000E  03 

0.18624E-04 

....  0a0279E  01  ... 

O.liOOOE  04 

0.18452E-04 

0.10216E  01 

0.130Q0E  04 

0.18373E-O4 

0.10064E  01 

0.1 5000 E  04 

0.18283E-04 

0.99005E  00 

<M700Q£  04 

^iaifiQEt04 

wiim  oc 

0.19000E  04 

0.18090E— 04 

0.95639E  00 

0.21000E  04 

0.18000E-04 

0.9*029E  OC 

C.23000E  04 

0.17905E-04 

0.92373E  OC 

0.2S000E  04 

0.17837E-04 

0.91509E  00 

0.27000E  04 

0.17714E-04 

G.89403E  00 

__  Q*29QDQ£.Si _ 

Q*iI6|8E-Q4 

_ _9*87_841E  og. 

0.31000E  04 

0.17527E-04 

0.86372E  00 

0.33G00E  04 

0.17426E-04 

0.84815E  OC 

0.35000E  04 

0.17329E-04 

0.83352E  00 

0.37000E  04 

0.17256E-04 

0. 8204i>L:  00 

0.39000E  04 

0.17169E-04 

0.  802.1  OE  00 

0,41000_E_Q4_. . 

0.17OJ4E-O4 

S-?;f304E  00 

0.43000E  04 

0.17008E-04 

C.77383E  00 

0.4500QE  04 

0.16925E-04 

0.75955E  00 

0.47000E  04 

G.16891E-04 

0.74462E  OC 

0#49000£  04 

0.16820E-04 

0.72667E  OC 

0.51000E  04 

0*.16766E-04 

0.71151E  00 

..  .  J).§30QO£  Q4_  _ 

ft*16723JT04. 

0.69477E  OC 

0.55000E  04 

0.16682E-04 

0.67882E  00 

0.570Q0E  04 

Q.16641E-04 

0.66392E  00 

0.59000E  04 

0.16558E-04 

0.65062E  00 

0.61000E  04 

Or 16472 E-04 

0.63732E  OC 

0.63000E  04 

0.16380E-04 

0.62492E  OC 

_ _  0.65OQQE  04 

0.16290 E-04 

0.61253E  00 

0.6700GE  04 

0.16200E-04 

0.60013E  OC 

0.69000P  04 

0.16109E-04 

0.58773E  uu 

0.71000E  04 

0.16039E-04 

0.57613E  00 

0.73000E  04 

0.15969E-04 

0.56457E  00 

0.75000E  04 

0.15  900  E-04 

0.55301E  00 

OvTTOOOE  04 

0.15820E— 04 

0.54188E  00 

0.79000E  04 

0.15739E-04 

0.53079E  00 

0.C1090E  04 

0.19658E-04 

0.51970E  OC 

0.83000E  04 

"6^55771^04 

o.SbabiE  60 

0«89«e0E  04 

9.1549*8-04 

0.49752E  00 

OllflOOE  04 

0.15401-54 

6.4M4SE  PC 

.  0*8ff«0E  ©4 

0al53$4£-04 

C*47935E  00 

o.vloooi  04 

6*182551-64 

~6T4TO§riRS 

0.S3000E  04 

0.15280E-04 

0.4S448E  00 

OefSOOOE  64 

0a5i0¥E-64 

6944442E  00 
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C.970Q0E  04 
Q.990Q0E  04 
0.10100E  0*5 
0.10300E  05 
0« 10500E  05 
0.107006  05 
0.10900E  05 
0.11100E  05 
?• 11300c  05 
0.11500E  05 
0.11700E  05 
C.11900E  05 
0.12100E  05 
0.12300E  05 
C.12500E  05 
0.12700E  05 
9.12900E  05 
C.13100E  05 
0.13300E  05 
0.13500E  05 
0.13700E  05 
0.13900E  05 
0.14100E  05 
0« 14300E  05 
0.14500E  05 
0.147006  05 
0.14900E  05 
C.15100E  05 
0.15300E  05 
0.155006  05 
0.15700E  05 
0.15900E  05 
0.16100E  05 
0.16300E  05 
Co I6500E  05 
0.16700E  05 
0. 16900c  05 
0. 17100E  05 
C.17300E  05 
0.17500E  05 
0.17700E  05 
0.179006  05 
0.13100E  05 
9.18300E  05 
0.18500E  05 
0.18700E  05 
0.18900E  05 
0.19100E  05 
0.193006  05 
0.19500E  05 
0.19700E  05 
0.19900E  05 
0.20100E  05 
0.20300E  05 
0.20500E  05 
0.207COE  05 
0.20O00E  05 
0.211006  05 
0.21300E  05 
0*215006  05 


C.15C29E-04 
G.14954E-04 
C.14379E-04 
J .148046-04 
.14729E“04 
^  *146586-04 
C .145096-04 
U.14520E-04 
U.14461E-04 
c .144146-04 
0 .143686-04 
0.14322E-04 
C.14275E-04 
C.14229E-04 

u.  141836-04 
Uil4136E-04 
0.14C9CE-04 
C.U044E-04 
0.14060E-04 
J.14087E-04 
0.14091E-04 
C.14063E-04 
0.14035E-04 

v . 140066- 04 
0 .139786-04 
0.13950E-04 
0.1392IE-04 
.1.138936-04 
0.13905E-04 
0. 139266-04 
C.13948E-04 
U. 139706-04 
0 .139926-04 
0.14014E-04 
0.  *.40366-04 
0.14053E-04 
0*140536-04 
C.14052E-04 
0.140 5 IE-04 
G.14050E-04 
0.14050E-04 
0. 140496-04 
0. 140486-04 
0.14067E-04 
0.14100E-04 
0 • 141 33E-04 
0.14166E-04 
0.14200E-04 
j. I4233E-04 
0.14266E-04 
0. 142996-04 
0.143146-04 
0.13970E-04 
O.13994E-04 
0.14018E-04 
O.i4042i'-04 
0.14067E-04 
0.140896-04 
0*141116-04 
0. 14li3E“04 


0.43436E  OC 
0.424306  OC 
0.414246  00 
0.4C418E  00 
0.39412E  CO 
0.38443E  OC 
0.37494E  00 
C.36545E  OC 
0.35635c  OC 
0.34773E  OC 
0.3391J6  OC 
0.33048E  OC 
C. 321866  OC 
0.31324E  OC 
0.30462E  00 
0.29600F  00 
0.287386  00 
0.27875E  00 
0.26956E  OC 
0.26027E  OC 
0.25204E  OC 
0.24528E  00 
0.23852E  OC 
0.23176E  00 
0.22500E  OC 
0.21825E  00 
0.211496  OC 
0.20473E  00 
0.198466  OC 
0.19230E  OC 
0.186156  OC 
0. 1800C6  OC 
0.17385E  CO 
Oo 16770E  OC 
0.16155E  00 
0.15574E  00 
0.151466  OC 
0.14719E  OC 
0.142926  jQ 
0.13865E  00 
0.13438E  OC 
0.13011E  OC 
0.125846  00 
0.12177E  OC 
0.117876  OC 
0.11396E  OC 
0.110066  00 
0.10615E  00 
0.10225E  00 
0.983416-01 
0. 94436E- 01 
~579i£TrE~oi 
0.93182E-01 
0.901846-0; 
0. 87185E-01 
0. 841866-01 
0.  U187E-01 
0;Te69CE-01 
0 • 7&193E-01 
0. 736956-01 


0, 217006 

05 

Q.i4i$3E“_04 

0.711986-01  . 

0.219006.  05 

0.14177 £»•  04 

0.68701E-01 

0*221fl0£  05. 

0. 141996-04 

0. 666076-01 

0.223006 

05 

0.14221E— 04 

0.64512E-01 

-.223006 

05 

Q.14242E-04 

0.62418E-01 

). 227006 

05 

0.14264E— 04 

0. 60324E-01 

0 s 229006 

05 

0^142866-04 

0.58229E-01 

0.231006 

05 

0. 14308E— 04 

0. 56471E-01 

Q.14329E-04 

_ Jk.54H2£^5X__  . 

9.23300E 

05 

0.14351E— 04 

0. 52954E— 01 

O.227Q0E 

Q5 

Q.14373E-C4 

0. 5U  956-01 __ 

3.239006 

05 

0. 143946-04 

0.49436E-01 

0 o 24 1006 

05 

0.X4416E-Q4 

0,479556-01 

0.24 300 E 

05 

0.14438F-04 

0.46475E-01 

CU245Q0E  Q5 _ 

_  _  _  Q.14459E-Q4 

0.449946-01 

Q.247G0E 

05 

U.14481E-04 

0.43513E-01 

r>*2'-?Q0t 

05 

.  0  *  14502E-04, 

0, 420326-0  . 

0 « 25X006 

05 

G.14524E-04 

0.407856-01 

0 . 2  5  3  0  0 E 

05 

0,14.545E-04 

0.39537E— 01 

0.255006 

05 

0.14567E-04 

0.38290E-01 

3,257006 

05 

0^145801-04 . .  .. 

P. 370426-01, 

0 .259006 

05 

0 • 14610E-04 

0.357956-01 

0.261006 

05 

0 -14631E-04 

0.34740E-01 

J ,263096 

05 

G.14653E-04 

0. 33686E-01 

3.26500E 

05 

0 , 14674E-04 

0. 32631E— 01 

R.26700E 

05 

0.14696E-04 

G.31576E— 01 

0.  269006  05 

0.14717E-04 

0.30521E-01 

0.27100E 

05 

G.14738E-04 

0.29630E-01 

0 «,  2.73006 

05 

0.14760E-04 

0.28739F-01 

0-275006 

05 

0 .14781E-04 

0. 278486-01 

0. 2 7700 E 

05 

0.14802E-04 

0.269566-01 

0. 279006 

05 

Q.14824E-04 

0.26065E— 01 

0. 201006 

05 

0.14845E-04 

0.253116—01 

: ,203006 

05 

0.14866E-04 

0. 24356E— 01 

rt,2A50QE 

05 

0.148376-04 

0. 23802E-01 

0.2Q700E 

05 

0.14909E-04 

0.230486-01 

0.269006 

C5 

0 • 14930E— 04 

0.22293E— 01 

0 .29100E 

05 

0.14951E— 04 

0. 21653E— 01 

0.293006 

05 

0.14972E-04 

0,210126-01 

0. 2950QE 

05 

Q.14493E-04 

0.203716-01 

0*297005 

05 

0.15013E-04 

0.19731E-01 

0.299006 

05 

Q.15Q36E-04 

0.190906-01 

0.30,.  00  6 

05 

Q.15C57E-04 

0.185466-01 

0.3C  306 

05 

0. 150786-04 

0. 180026-01 

C.30vgQE 

05 

0.150996-04 

0.174596-01 

0* 307006 

05 

0.15120E-Q4 

0. 16915E— 01 

C  -430  7006 

05 

0.15141E-04 

0.16371E— 01 

0.31100E 

03 

G.15162E-04 

'&nS«O»E=0I 

7 „ 31 300 E 

05 

Q.131B3E-04 

0.15446E—01 

Q..41300E 

05 

6  *152041-04 

0. 144836— 0l 

3.317006 

05 

0.152156-04 

0.143206-01 

1.319006 

05 

0TIi24?F^4" 

- OT405te^i 

;).321Q0E 

05 

0.15270E— 04 

0. 1366 IE— Ol 

- M — TWWXmFZX* . . 

7«*2Mmk  os  o.D9itf>M  o«iat*n«oi 

'  uiYtm~<59 - (STlWif^PT - 0.126705-01  ‘ 

U32990C  05  0.15M7E-94  0. 120736-01 

- “o;tB»ii=w - 

0„SS£«9«  ©5  O.mM  &,U396E-«J. 

■ ;  v;imHP«* - ^nosti^r 


rr 


9.33700E  05 
0.33900E  05 
0.34100E  05 
0.34300E  05 
C.34500E  05 
C.34700E  05 
0.34900E  05 
0.351006  05 
0.35300E  05 
0.35500E  05 
0.35700E  05 
0.35900E  05 
".26100E  05 
0.36300E  05 
0.36500E  05 
0.267036  05 
C.36900E  05 
0.37100E  05 
0.37300E  05 
0.37500E  05 
0.37700E  05 
*.3T90CE  05 
0.38100E  05 
C.38300E  05 
0.38500E  05 
0.38700E  05 
0.38900E  05 
0.39100E  05 
0.39300E  05 
0.39500E  05 
0.39700E  05 
0.39900E  05 
0.40100E  05 
0.40300E  05 
0.40503E  05 
0.40700E  05 
C.40900E  05 
0.41100E  05 
0.41300E  05 
9.415006  05 
0.41700E  05 
0-419006  05 
9.42109E  05 
0.42300c  05 
0.42500E  05 
0.42700E  05 
0.42900E  05 
0.43100E  05 
3.43300E  05 
0.43500E  05 
0.43700E  05 
0.43900E  05 
0.44100E  05 
0.44300E  05 
0.4450QE  05 
0.44700E  05 
0.44900E  Qj 
0.45100E  05 
0.45300E  05 
0.455006  05 


G.15467E-04 
C.15492E-04 
C.15517E-04 
U.15542E-04 
t,.15566E-04 
W.15591E-04 
G.15616E-04 
C.15641E-04 
C.15666E-04 
O.15690E-04 
3.15715E-04 
0.15740E-04 
J.15764E-04 
J.15789E-Q4 
C.15814E-04 
J.15838E-Q4 
-.15863E-04 
0.158876-04 
0.15912E-04 
G.15936E-04 
v.  .15961E-04 
G.15985E-04 
O.16010E-04 
3.16034E-04 
C.16058E-04 
0.16C83E-04 
0.16107E-04 
O.16131E-04 
*.161566-04 
0.16180E-04 
3. 16204E-04 
C .162286-04 
0.16253E-04 
G.16277E-04 
C. 163016-04 
0.16325E-C4 
O.16349E-04 
0.16373E-04 
C. 163976-04 
Q.16421E-04 
0.16445E-04 
0 .164696-04 
C.16493E-04 
0.16517E-04 
3. 16541E-04 
G. 165656-04 
J. 165896-04 
0.16613E-04 
U.16637E-04 
0.166616-04 
o. 166846-04 
0.16708E-04 
0. 16732E-04 
0.16756E-04 
0.16779E-04 
C. 168036-04 
0.168276-04 
0.16850E-04 
G. 168746-04 
0. 168986-04 
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C. 10719E-01 
0.10381E-01 
0.10093E-01 
0. 98043E-02 
0. 951596-02 
0.92276E-C2 
0. 89392E-C2 
0.86931E-02 
0.84471E-02 
0. 82010E-32 
0.795496-02 
0.77089E-02 
0.74988E-02 
0.72887E-02 
0.7C785E-02 
0.68684E— 02 
0.66583E-02 
0.64785E-02 
0.629866-02 
0.611876-02 
0.593886-02 
0.575906-02 
0.560466-02 
0.545066-02 
C.52963E-02 
0.51421E-02 
0.498796-02 
0.48557E-02 
0.47234E-02 
0*4591  i.E-02 
0.44588E-02 
0.43265E-02 
0.42128E-02 
0.40990E— C2 
0. 39853E-02 
0.38715E-J2 
0.37578E-02 
0. 36598E-02 
0. 35619E-02 
0.34639E-02 
0.33660E-02 
0.326806-0^ 
0.31837E-02 
0.30993E-02 
0.30149E-02 
0.29305E-02 
0.28461E-02 
0*27732E-02 
0.27004E-02 
0.26275E-02 
0.25546E-02 
0.24817E-02 
0.24187E-02 
0.23557E-02 
0.22927E -02 
0.22297E-02 
0.21667E-02 
0.2H22E-02 
0.20576E-02 
0.20031F-02 


ENTERING  LINK  6 


0.45700E  05 
0.45900E  05 
C.46100E  05 
0.46300E  05 
O.4650QE  05 
0.4670DE  05 
0.44900E  05.. 
0.47I00E  05 
0.47300E  05 
0.47500E  05 
C.47700E  05 
0.4790GE  05 
0.48100E  05 
0. 483006  05 
0.48500E  05 
0.48700E  05 
0.48900E  05 
C.49100E  05 
C.49300E  05 
0.49500E  05 
0.49700E  05 
0.49900E  05 


u.l692t£-04 

U. 16945E-04 
J.16968E-04 
0.16992E-04 

u. i7Ci6E-04 

V. 17039E-04 
J. 17063E-04 
0.17C72E-04 
C.17082E-04 
G.17092E-04 
J.17102E-04 
U.17I11E-04 
G.17111E-04 
*•171116-04 

v. miIE-04 
.17111E-Q4 

C.17111E-04 
G. 171116-04 
:.UU1E*„4 
C. 171116-04 
0.17111E-04 
0.17111E-04 


0.19486E-02 
0. 18941E-02 
0.U468E-02 
0.17995E-C2 
0.17522E-02 
0.17C49E-G2 
0.16576E-02 
0.16180E-02 
0. 157846-02 
0. 15389F-02 
0.14993E-Q2 
0.14597E-02 
0.14258E-02 
0.139I9E-02 
0,135806-02 
0.13240E-02 
0.12901E-02 
0«12602E-02 
0, 12332E-02 
0, 12003E-02 
0, 11703E-02 
0.114C3E-02 


UN0RFL0M  AT  54423  IN  NO 
UNORFLOW  AT  56424  IN  HC 
UNORFLCW  AT  56423  IN  MC 
UNORFLCW  AT  56424  IN  NQ 
UNORFLOW  AT  564  2  3  IN  NO 


THE  FOLLOWING  WIND  VECTORS  HAVE  BEEN  USEC  TO  DEFINE  AN  ATMOSPHERE  UP  TO  TIME 


VECTOR 

HORIZONTAL  COORDINATES 

VECTOR 

COMPONENTS 

HEIGHT 

xs 

VS 

vx 

VV 

VZ 

938.174 

lOOOOOO.COO 

1000000.003 

0.432 

0.116 

0.000 

12x9. 20C 

ICCOOOO.OOO 

lOOOCOO.OOO 

0.864 

0.231 

0.000 

15  24.000 

1C000C0.C00 

1000000.900 

1.727 

0.463 

o.occ 

1828.800 

iccoooo.coo 

1300000.000 

2.591 

0.694 

0.000 

21 33.600 

1000003.000 

1000000.000 

3.454 

0.926 

o.oco 

2438.40C 

1CCOOCO.CGO 

1000000.000 

2.940 

1.070 

0.000 

2743.200 

lOOOOOO.COO 

1000000.000 

5.420 

3.129 

0.000 

3048.000 

IOCOOOC.OOO 

lOOOOuO.OOO 

6.968 

4.023 

0.000 

36  5  7. 60C 

lOCOOOO.COC 

1000000.000 

3.484 

2.011 

0.000 

4267. 2CC 

lOOOOOO.COO 

1000000.000 

3.484 

2.011 

0.000 

48  76.800 

1000300.000 

1000000. 000 

3.484 

2.011 

C.000 

5486.400 

1000300.000 

1000000.303 

7.043 

-1.247 

0.000 

6096.000 

ICCOOOO.-OO 

1000000.300 

12.766 

-2.251 

o.oco 

1097. 28C 

1007845.000 

1001131.000 

1.680 

-0.612 

0.000 

1219. 20C 

1007845.000 

1001131.000 

2.520 

-0.917 

o.oco 

1524.000 

1007845.000 

1001131.000 

3.360 

-1.223 

0.000 

1828.  80C 

1007845.000 

1001131.000 

3.780 

-1.376 

o.oco 

2133.600 

1007845.000 

1001131.000 

3.360 

-1.223 

0.000 

2438.400 

1007845.000 

1001131.300 

2.940 

1,070 

0.000 

2743.200 

1007845.000 

1001131.000 

5.420 

1.129 

o.ooc 

2880C, 
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3048. OCC  1CC7845.C00  1001131.000 
3657. 6CC  1CC7845.CCC  1001131.000 

4267.200  10C7845.C00  1001131.000 
48  76.8CC  1007845.000  100U31.000 
5486.40C  1007845.000  IC0U31.000 
6096. OOC  1CC7845.C00  1001131.000 
9i4.40C  1014006. COC  1004199.000 
1341. 12C  1G140C6.COC  1004199.000 
1524. OOC  1C140G6.CCG  1C04199.000 
1828. 80C  10140C6.000  1004199.000 
2133.6QC  1C14006.C00  1004199.000 
2438.40C  1C140C6.C00  1004199.000 
2743. 20C  1014006.000  1004199.000 
3048.000  1014006.000  1004199.000 
365.7. 60C  1014006.000  1004199.000 

4267.200  1C140C6.C0C  1004199.000 
4876. 8CC  1G140C6.G0C  1004199.000 

5486.400  1C149G6.C00  1004199.000 
6096. OOC  lC14rC6.COO  1004199.000 
914.40C  1C17853.C00  1008952.000 
1219. 20C  1017853. COO  1008952.000 
1524. OOC  1017353. OCC  1008952.000 
1828.80C  1C17853.C0  1008952.000 

2133.600  1C17853.CCC  1008952.000 
2438.40C  1017853. COO  1008952.000 
2743. 2CC  1017853.000  1008952.000 
3048. OCC  1C17853.C0C  1008952.000 
3657. 60C  1017853. OOC  1008952.000 

4267.200  1017853. CCO  1008952.000 
4876. 80C  1017853. GC1  1008952.000 

54 86.400  1017853.000  1008952.000 
6096. OOC  1017853.000  1008952.000 

914.40C  1023385. COO  1013452.000 
1219. 2CC  1023383. OOC  1013452.000 
1324.000  1C23385.000  1013452.000 
1828. 8CC  1C23385.CC0  1013452. OOC 
2133. 60C  1023385. COO  1013452.000 

2438.400  1023385. OOC  1013452.023 
2743. 20C  1023385. uOO  1013452.023 
3048. OOC  1023385. COO  1013452. J23 
3352. 8CC  1023385.000  1013452.023 
365T.60C  1023385. COO  1013452.023 

3962 .400  IC23385.00C  1013452.023 
4267. 20C  1023385.000  1013452.023 
4572. OOC  1023385. COO  1013452.023 

4876.800  1C233B5.000  1013452. C23 
5181. 60C  1C23385.COO  1013452.023 
5486.4CC  1023385. COO  1013452.023 
5791. 2CC  1023385. COO  1013452.023 
6096.000  1023385. COO  1013452.023 

914.400  1026389.000  1019976.125 

1219.200  1026389. COO  1019976.125 
1524. OOC  1026389.000  1019976.125 

1828.800  1026389.000  1019976.125 
2133.600  1026389.000  1019?76.125 

2438.400  1026389.000  1019976.125 

2743.200  1026389. COO  1019976*125 
3048.000  1026389*000  1019976.125 
3352.60C  1C263B9.0C0  1019976.125 
1657.6 GC  1026389. CCO  1019976.125 


6.968 

4.C23 

O.CCC 

3.484 

2.011 

0.000 

3.484 

2. 'll 

O.OOC 

3.484 

2.C11 

O.GCO 

7.043 

-1.247 

o.oco 

12.766 

-2*251 

0.000 

0.000 

0.000 

o.oco 

1.149 

1.370 

o.oco 

1.724 

2.C55 

o.oco 

2.536 

3.082 

o.oco 

2.586 

3.082 

o.oco 

3.585 

1.826 

o.oco 

5.267 

2.456 

Q.CCO 

6.534 

2.909 

o.oco 

4.821 

2.351 

o.occ 

3.871 

2.235 

o.oco 

3.971 

2.235 

o.occ 

7.125 

-0.623 

C.OOG 

10.889 

-2.514 

O.CCC 

O.COC 

O.COC 

o.oco 

C.COC 

G.CCC 

0.000 

1.724 

2.C55 

0.000 

2.586 

3.082 

o.oco 

2.586 

3.08? 

o.oco 

3.585 

lo«26 

o.oco 

5.26? 

2.456 

Q.QOG 

6.534 

2.9C9 

0.000 

4.821 

2.351 

0.000 

3.871 

2.235 

O.CCC 

3.871 

2.235 

o.occ 

7.125 

-0.623 

c.oco 

10.889 

-2.514 

o.oco 

O.COC 

0.000 

0.000 

0.000 

1.788 

c.coo 

O.COC 

2.682 

o.oco 

0.000 

4. 023 

o.oco 

1.629 

4.2CC 

o.oco 

4.C76 

2.750 

o.oco 

4.59C 

1.762 

o.oco 

5.101 

1.658 

o.oco 

5.461 

1.987 

0.000 

5.842 

2.243 

c.oco 

4.938 

2.C96 

c.occ 

4.258 

2,438 

o.cco 

3.978 

2.890 

o.oco 

4.258 

2.458 

o.ooc 

5.181 

1.388 

o.oco 

6.704 

0.117 

o.oco 

7.924 

-1.397 

o.oco 

8.977 

-2.745 

o.ooc 

0.000 

o.oco 

c.oco 

1.788 

-0.C31 

0.000 

2.249 

1.461 

o.ooc 

3.255 

2.365 

o.oco 

3.424 

2.673 

0.000 

4.076 

2.750 

o.oco 

4.590 

1.762 

0,000 

5  *  1 9 1 

t  *  1 5  8 

0  *  OCC’ 

5.461 

i.987 

o.occ 

5*842 

2.24'J 

0,000 

3962.4QQ- 1621189,000 
4267.20G  2026389,000 
4572.000  1026380.000 

4876,800  1026389.000 

51 81 .600  1026389,000 

5486,400  1026389,000 
5791,266-  1626189,000- 
6096,000  1026389.000 


101 3976 «125_ 

1019976.125 
1013976,123 

1019976.125 
1019976*1 23L- 

1019976.125 
10199I6aJL15_ 
1019976,125 


4.258 
..  3^3.18- 

4.258 
5.181 
6,704 

.  7.924 
8.977 


1219.200  1005909,000  1010410,000  0,000 

1524,000  1003909,000  1 010419,009 _ 0*000 

1828,800  1005909,000  1010410.000  0,000 

2133,600-2005309,000  lQlQ410,6OflL__ _ -Os  000. 

2438,400  1005909.000  1010410.000  2.940 


3048.000  1005909.000  1010410.000 
36  57 . &QCL1Q  019.0.9,  COO.  1916410*  069 _ 

4267.200  1005909.000  1010410.000 

4876.800  1005909.000  1010410.000 

5486.400  1005909.000  1010410.000 

60 96 ,Q  Qk_l  0Q59Q9  ,000-1010419, 0  09 _ 

914.400  1000000.000  1019350.000 

1219.200  1000000.000  1019350.000 
1524.000  1000000.000  1019350.000 

1828.800  1000000.000  1019350.000 

2133.600  1000000.000  1019350.000 

2436.400  . 1966900.006  1919350.000 _ 

2743.200  1000000.000  1019350.000 
3048,OQO  1000000.000  1019350.000 

3657.600  1000000.000  1019356.000 
4267.2QQ  ioooooo^ooo  ioi9350Aggo__  _ 

4876.800  1000000.000  1019350.000 
5486,608  1000000.000  1019350.000 
6096.000  1000000.000  1019350.000 

914.40C  1013030.000  1019350.000 

1219.200  1013050.000  1019350.000 
1524.000  1013050.000  1019350.000^ _ 

1828.800  1013056.666  1019350.000 


2438.400  1013050.000 
2743 ,2(HL  2Q1 3050 • 000 
3048.000  1013050.000 

3352,800  1013050.000 

3657.600  1013056.000 


1019350.000 

1019350.023 

1019350.023 

1019350.023 

1019350.623 


4267.200  1013050.000  1019350.023 
45 72,000  1013050.000  1019350,023 

4876,800  1013050,000  1019350,023 


150*0! 


$50,021 


5466.400  1013050. 000  1019350.023 

_ 5in«mitti33t3«oM  aomp-igga 

6696,000  1011050.000  l6l9350«023 
914*46010365 50 * 0 00  XP004S0,0^.. 
1219.20f  Ui66io.6oo  toptfitgSM 
1524.00^  MMge.OOO  l9&H99mQm 
1828.180  1016590.000 

2638.400  &4?4S90,o£OMK9MfflHr 

274 3,290  |Q3»9jg.0€0  i&ftfeS &.J06 

3048.  16**586,600  1000430,009 


6.968 

_ 1,4.84. — 

3.484 

3.484 

7.043 

_ 12*766 _ 

0.000 

o*ooo__ 

o.ooe 

0.000_ 

0.666 

_ 2,140 

5.420 
__  6.968 

3.484 
3.484 
3.484 
___  7.043 
12.766 
0.000 
0.000 
0.000 
o.ooo 

_ Q.,00.0- 

4.076 

4.590 

5.101 

_ 5.461 

5.842 
_ 4.938 

4.258 
3.978 

4.258 
5,181 
6,704 

-m- 

0,000 


_  2,096 _ 

2,458 

- 1*  89.0 - 

2.458 

_  1,366 _ 

0,117 

-2.745 

_ 6*000 _ 

0,000 

_ 0,001 _ 

0.000 
-  0,000  _ 
1,070 

3*129 _ 

4,023 

2,011 _ 

2,011 

_ 2,611 _ 

-1,247 

-2.251 _ 

0.000 

o.ocg 

o.ooo 

e.o_oo _ 

6.066 

_ 1,670 _ 

3.129 

4.023 

2.011 

_ 2.011 

2.011 

-1.247 _ 

-2.251 

0.000 

O.oOO 

O.OCO 

0.060 

_ o,ogo_ 

2.750 

_ 1.762 

1.658 
_ 1.987 
2.243 

_ 2.096 _ 

2.458 
2.890 
2.458 
1.388 

— CTO - 

-338 

0.000 

O.M@ 

— 


4.514 


2.496 

2.W 


_  O,0Q6_ 
0.000 

_ 6*660  _ 

0.000 
_  6.006 
0.000 
Q.0CO ... 
0,000 
0.000 
0.000 
__o*ooo_ 
0.006 

..  9,000.. 
0.000 

_ 6*666 _ 

0,000 

_ CTOO_ 

0.000 
__  0,000  _ 
6.000 

„  9*666 
0.000 
0.000 
0.000 
0.000 
0.000 

_ 6,660- 

0.000 

0.000 

0.000 

6,000 

0.600 

_ 0.000 

6.060 
0.000 
0.000 
0.000  . 
0.000 

_  0. 000 _ 

0.000 

0,900 

6.060 

9,000 

6.000 

0.000 

"0.000 

0.000 

0,000 

0.000 

6.000 

_ 0.900 

0.000 

0.000 

~&mr~ 

0.000 

676M 

o.ooo 

0.000 

0.066 


^9 


0 


3657. 6CC  1026550. COO  1000650. 000 
4267. 20C  1C26550.0CC  1000450.000 

4676.800  1026550. COO  1000450.000 

5486.400  1C2655C.C0C  1000450.000 
6094.00C  1C26550.000  1000450.300 


4.821 

2.351 

O.CCO 

3. an 

2.235 

o.oco 

3.871 

2.235 

o.oco 

7. 125 

-0.623 

O.OCO 

10.889 

-2.514 

O.OCO 

REQUESTED  GRID  ARRANGEMENT 
HEIGHT  INTERVAL  LIMITS 

HLLX  ALLY  NURX  HURT 


836.200  4500. COC 

9 90.600  45CC.000 

1143. OOC  4500.400 

1295. 4CC  4500. COO 

1447.306  45C0.C00 

1600. 20C  45CC.C00 

1752. 60C  43C'd.w00 

1405 .OOC  4500. COO 

2037.4CC  450C.C00 

2209.80C  45CJ.C0C 

2362. 20C  45CO.OOO 

2514.6CC  4500. OOC 

2667.000  4500.400 

2819.400  45CC.C0C 

2971.800  4500. COO 

3124.200  4500. COO 

3/75.600  45CC.C00 

3429.000  4500.000 

35 81 .400  4500. COO 

3733.800  4500. COO 

3886.200  45C0.CC  C 

4038.60C  4503.000 

4191. OCC  4500. COO 

4343.400  4500.000 

4495. 8CC  45C0.CG0 

4648.20C  45CC.CCC 

4806. 60C  45C0.000 

4953. OOC  45C0.C0C 

5105.4CO  45CC.C0C 

52S7.80C  4500. OCC 

5410.200  4500. COO 

5562.600  45C3.000 

5715.000  45CO.COO 

5867 .400  45C0.C00 

6019.800  *500. OOG 


997750.000  997750. COO 
997750.000  997750.000 
997750.000  997750.000 
997750.000  997750.000 
997750.000  997750. OOC 
997750.003  997750.000 
997750.000  997750. COO 
997750.000  997750.000 
997750.000  997750.C0C 
997750.000  997750.000 
997750.000  997750. COO 
997750.000  997750. OOC 
997750.000  997750.000 
997750.000  937750. COO 
997750.000  997750. COO 
337750.000  937750. COC 
99775C.OOO  99775C.OOC 
99775C.0C9  997750. OOC 
997750.000  997750.0CC 
997750.000  997750. COC 
997750.300  997750.00? 
997750.000  997750.000 
997750.000  997750.C0C 
997750. 0C3  997750.030 
997750.COC  997750. COC 
997750.300  997750. COC 
997750.000  93775O.C30 
997730.000  997750. COO 
997750. OOC  997750. COC 
997750.000  997750. COO 
997750.000  99775O.OC0 
997750.903  997750. COC 
99775C.OOO  997750.030 
99775C.000  997750. COO 
99T750.000  997750. COO 


1029200. OCO  1024700. OOC 
13292C0.0CC  1C2470C.000 
1029200. OCC  1C24700.0C0 
102920C.0C0  1C247C0.0C0 
10292O0.0C0  1024760. OOC 
1C29200.CCO  1024700.000 
1029200, COO  IC24700.3CO 
1029200. QCO  1C247C0.0CC 
1029200. COC  1C247CC.OCO 
1029200.000  1C24700.0CC 
102920C.CC0  1C247CO.OCC 
1C2920C.CCO  1C24700.3CC 
1029200. COO  102470C.0C3 
1C29200.0CJ  1C247OO.C0G 
1C2920C.OCO  1C2470C.0CC 
102920C.C03  1024700. OCO 
1029200. COO  1024700. 003 
1029200. CCO  1C24700. OCC 
1C29200.0CC  1024700.000 
102953C. GCO  10247CO.0CU 
I02920f'.t00  1024700. CCO 
1029200. COO  IC2470C.000 
1029200.000  1024700. OCO 
1029230. COO  1024700. OCO 
1029200.000  1024700. OCO 
102920C.CC0  1024700. OCO 
1029200.000  1024700. OCO 
1029200. OCC  1024700. CCO 
1029230. OCO  1024700.000 
IO2920C.CCC  IC24700.0CO 
1029200. OCO  1C247C0.0C0 
1029200. .CC  1Q247CC.OOO 
1029200.000  1C24700.0CO 
1029200. OCO  1024700. OCO 
102920C.V.CO  IC24700.CC0 


COMPUTATION  METHOD  1  WAS  L'SEO  ON  THE  4  NEAREST  DATA  POINTS. 

ALPHA  «  45T.200METERS,  BETA  »  6115.0CCMETERS. 
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i 


i 


i 


o 


i 


WIND  COMPONENTS 


LEVEL  l  BASE  AT  838.200  METERS 


EAST-NEST  RON 
0.95218 

l 

1.36790 

1.97159 

0.35262 

0.07407 

0.00000 

0.00000 

0.14799 

-0.34947 

-0.71760 

-0.03003 

0.08827 

-0.00000 

-O.OOOOC 

0.00000 

0  .00000 

0.00000 

0.00000 

0.00000 

c.ooooo 

O.OOOOC 

EAST-NEST  RON 
0.55218 

•  2 

1.90946 

1.44665 

0.07407 

0.03714 

0.00000 

O.OOOOC 

0.14795 

-0.69499 

-0.49466 

0.08827 

0.04426 

c.ooooo 

O.OOOOC 

0.00000 

0.00000 

0.00000 

C.OOOOO 

0.00000 

0.00000 

0.00000 

EAST-NEST  ROW 
0.00 000 

3 

0.00000 

0.00000 

0.02620 

0.00000 

O.OOOOC 

Q.COOOC 

0.00000 

0.00000 

O.OQOOQ 

C.03122  . 

0.00000 

0.25801 

0.49667 

0.00000 

0.00000 

0.00000 

C.OOOOO 

0.00000 

0.00000 

0.00000 

EAST-NEST  RON 
0.00000 

4 

c.ooooo 

0.00000 

0.00000 

0.00000 

c.ooooo 

O.OOOOC 

0.00000 

0.00000 

0.00000 

C.OOOOO 

0.15178 

0.49667 

C. 4  9667 

0.00000 

O.OOOOC 

0.00000 

C.OOOOO 

0.00000 

0.00000 

0.00000 

EAST-NEST  RON 
0.00000 

5 

0.00000 

0.00000 

C .00000 

0. CO 000 

0.27121 

0.46662 

0.00000 

0.00000 

0. 00000 

0.00000 

0.00000 

C. 22074 

C. 02 196 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

C.OOOOO 

C. 00000 

EAST-NEST  ROW 
O.OOOOC 

6 

0.00000 

0.00000 

c.ocooo 

0.00000 

C. 49667 

0.49667 

0.00000 

0.00000 

o.onooo 

c.ocooo 

0.00000 

-0.00861 

-C. 00861 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

O.OOOOC 

LEVEL  2 
EAST-WEST  ROW 
C. 64069 

8ASE  AT 

1 

1.55389 

990.600  METERS 

2.05538  0.73453 

0.42567 

C.OOOOO 

c.eoooo 

0.17167 

-C. 42205 

-0.74810 

C. 26937 

0.50729 

-C.OOOOO 

-0.00040 

0.00000 

0.00000 

0.00000 

c.ooooo 

0.00000 

c.ooooo 

c.coocc 

EAST-WEST  ROW 
0.64069 

2 

2.00863 

1.69748 

0.42567 

0.21647 

c.ooooo 

O.OOOOC 

0.17167 

-0.73108 

-0.47240 

C. 50729 

0.25797 

0.00000 

O.OOOOC 

0.00000 

0.00000 

0.00050 

0-00000 

0.00000 

0.00000 

0.00000 

EAST-NEST  ROW 
0.00000 

3 

0.00000 

0.00000 

C. 15334 

O.OOOOC 

0.00000 

O.OOOOC 

0.00000 

0.00000 

0.00000 

0.18275 

0.00000 

0.46442 

0.8940C 

0.00000 

0.00000 

0.00000 

C.OOOOO 

0.00000 

0.00000 

O.OOOOC 

EAST-NEST  RON 
0.00000 

4 

0.00000 

0.00000 

C.OOOOO 

0.00000 

0.00000 

0.00000 

0.00000 

0.00030 

0.00000 

0.00000 

0.27321 

C. 89400 

0.89400 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

C.OOOOO 

EAST-NEST  ROM 
0.00000 

5 

0.00000 

0.00000 

0.00000 

0.00000 

0.48818 

0.83991 

0.00000 

0.00000 

0.00000 

c.ooooo 

0.00000 

0.19736 

0.03952 

0.00090 

0.00000 

0.00000 

0.00000 

0.00000 

C.OOOOO 

0.00000 

EAST-NEST  ROW 
0.00000 

6 

0.00000 

0.00000 

c.ocooo 

O.OOOOC 

0.89490 

0.89400 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

-0.01550 

-0.01550 

0.00000 

0.00000 

0.00000 

c.ooooo 

0. 00000 

0.03000 

0.00000 

LEVEL  3 
t4ST~S£$l  S04£ 

0.93824 

at 

1 

2.03160 

1143.000  «« fi:RS 

2.34021  1.15285 

i .01425 

0.00000 

o.coooo 
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1.20672 

0.00000 


o.ooooc 

0.00000 


0.29140 

o.ooooO 


-0*02940 

0.60000 


-o.osin 

O.oooOO 


1 .01304 

0.00000 


O.OOOOO 

0.00000 


0.29140 
0.00000 
EAST-NEST  RON 
0.00000 
9.00000 
o.oooOo 

EAST-NEST  RON 
0.00000 
0.00000 
0.00000 
EAST-NEST  RQH 

-0.04201 

0.00000 

3 

0.00000 

-*® 

4 

0.00000 
0.00000 
6.60000  “ 

5 

-0.99734 

o.oooOo 

0.00000' 

0.00090 

0.00000 

0.00000 
0.00000 
o.oo  6i>o 

1.20172 

0.00000 

0.97494 

0.46471 

0.00000 

0.00000 

0.00000 

0.00000 

0.02262 

0.00000 

0.37477 

0.^4443 

0.00000 

0.90012 

0.71364 

0.00000 

0.00000 

0.00000 

0.00000 

1.04431 

0.00000 

0.00000 

1.99349 

'O.OOOOO 

0.00000 
~  6.00000 

~  oiooooc 

1.99363 

0.00000 

0.00000 

1.99365 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

1.02017 

1.44614 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.77972 

0.35234 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

EAST-NEST  RON 

A 

0.00000 

0.00000 

0.00000 

0.00009 

0.00000 

1.49992 

1.49952 

0.00000 

9,00000 

O.OOOOO 

0.00000 

OtgOOOO 

0.30009 

0.30009 

9««S«vC 

vtvvCCG 

G.SvvwS 

VaVUVVV 

u«wvuu 

O.OOOOO 

0.00000 

LEVBt  4  SA3E  AT  2249*400  METERS 

EAST-WEST  RON  1 


1.2*745 

.  2tl?**8 

? *45390 

1.60397 

1.40597 

0.00000 

0.00000 

0.33941 

-0.54132 

-0.945*5 

1.32122 

1.67336 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

EAST-NEST  RON 

2 

1.24745 

2.62741 

2.41376 

1.40597 

1.18471 

0.00000 

0.00000 

0.33941 

-0.95631 

-0.59320 

1.47354 

1.41187 

0.00000 

6.00000 

0.90000 

0,00000 

0.00000 

0,00000 

0.00000 

0.00000 

0.00000 

EAST-NEST  RON 

3 

0.00000 

0.00000 

0.00000 

1.10271 

0.S6198 

0.41420 

0.00000 

O.OOOOO 

0.00000 

0.00000 

1 .31414 

1.02726 

1.45444 

2.23500 

0.00000 

0,00000 

0.00000 

0.00000 

0.00000 

0.00000 

o.ooooo 

EAST-NEST  RON 

4 

O.OOOOflL 

6,00900 _ 

_9.»89999 _ 

„  o,floo§9 

0.59055 

O.ooooo 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

1.3«43f 

T.23^00 

2.23560 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

EAST-NEST  RON 

9 

o.oo  roc 

9.00000 

0.00000 

0.00000 

0.00000 

1.10222 

1.69636 

0.09000 

0.00000 

0.00000 

0.00000 

0.00000 

1.40499 

0.80696 

9.90099 

.9,99998. 

0,00000 

0.00000 

0.00000 

0.00000 

0.00008 

EAST-NEST  RON 

6 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

2.01630 

2.01630 

0.00000 

0.00000 

0.00000 

6766000 

0.00000 

0.71500 

6.T130C 

0.00000 

0,00000 

f*.  00000 

0.00000 

0.00000 

0.00000 

O.OOOOC 

IE9EI  5 

8ASE  AT 

1447.600  RE  fERT 

EAST-NEST  RON 

1 

1.72 70S 

2.64094 

2.20947 

1.60610 

1.46344 

O.ooooo 

C. 60060 

0.44177 

-0,77394. 

“JLj1*614 

1.77119 

2.06671 

e.te&tso 

0.00066 

0.90004 

0.00086 

o.ooeoi 

-  $<Mm 

6169656 

sifi-oiiLJfflt. 

2 

~~TMWT~ 

S*«mT 

m~T7tVS9Tm‘ 

w:smm 

0.40272. 

-uim*  . 
6.00000 

♦9.99944 

6.06566 

2.00471 

2.01947 

0.90000 

O.OCOOf 

o.oo  esc 

0.06  606 

O.iOOOO 

0.00000 
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0.00000 
0.00000 
0.00000 
EAST-WEST  ROW 

O.OOOCO 
Q.  00000 
0.00000 

4 

0.00000 

0.00000 

0.00000 

1.35646 

1.61653 

0.00000 

1.53657 

1.63120 

O.OOQOO 

0.59188 

2.53038 

0.00000 

0.00000 

2.77917 

0.00000 

0.00000 
0.00000 
0.00000 
EAST-WEST  RTW 

0.00000 

0.00000 

0.00000 

5 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0. 00000 

1.23048 

2,00068 

0.00000 

O.OOOOC 

2.77917 

0.00000 

c.ooooo 

2.77917 

O.OOOOC 

o.ooc;o 
0.00000 
0.00000 
EAST-WEST  ROW 

o.oocoo 
C. 00000 
O.OOOCO 

6 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

O.OCOOO 

1.61067 

1.76435 

C.OOOOO 

2.23433 

1.38054 

O.OCOOO 

O.OOCOu 

0.00000 

0.00000 

0.00000 

0.00000 

O.OOCOO 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

O.OCOOO 

0.00000 

2.36748 

1.33317 

0.00000 

2.36748 

1.33317 

O.COOOC 

LEVEL  6 
EAST-WEST  ROW 

BASE  AT 

1 

16C0.200  METERS 

2.15885 

0.57666 
0.00000 
EAST-WEST  ROW 

3.04384 

-0.59899 

0.00000 

2 

3.57035 

-1.29950 

0.00000 

2.08495 

2.14355 

c.ocooc 

1  .QQSQ1 

2.37861 

O.OOOCO 

n  AACiftft 

0.00000 

c.ooooo 

V1VWUU 

O.COOOC 

o.ocooc 

2.15885 
0.57846 
0.00000 
EAST-WEST  RCW 

3.47969 

-1.26651 

0.00000 

3 

3.16833 

-0.20097 

0.00000 

1.99591 

2.37861 

c.ooooo 

2.15495 

2.56815 

O.OCOOO 

o.coooo 

0.00000 

0.00000 

c.ocooc 

0.00000 

O.COOOC 

0.00000 
0.00000 
0.00000 
EAST-WEST  RCW 

O.OOCOO 

0.00000 

0.00000 

4 

0.00000 

0.00000 

0.00000 

2.15495 

2.56815 

C.OOOOO 

2.15495 

2.56815 

0.00000 

1.03549 

2.97561 

0.00000 

c.oococ 

3.35250 

O.OOOCO 

O.OOOCO 

0.00000 

o.ooooc 

EAST-WEST  ROW 

0.00000 

o.ooooc 

0.00000 

5 

0.00000 

C. 00000 
0.00000 

0.00000 

0.0.000 

0.00000 

1.49638 

2.60785 

0.00000 

0.00000 

3.35250 

0.00000 

o.ooooc 

3.3525C 

O.COOOC 

0.00000 

o.ooooc 

o.ooooc 

EAST-WEST  ROW 

0.00000 

0.00000 

0.00000 

6 

0.00003 

0.00000 

0.00000 

O.OOOOC 

C.OOOOO 

O.OCOOO 

O.OCOOO 

0.00000 

0.00000 

1.50275 

2.56645 

0.00000 

2.58551 

2.00009 

C.OCOOC 

0.00000 

c.oococ 

0.00000 

0.00000 

c.oocco 

0.00000 

0.00000 

0.00000 

0.00000 

C.OOOOO 

0.00000 

0.00000 

o.ooooc 

0.00000 

O.OOOCO 

2.75200 

1.91300 

0.00000 

2.75200 

1.9130C 

C.OCOOC 

IEVEI  7  BASE  AT  1752.600  METERS 

EAST-WEST  ROW  1 


2.59062 
0.69416 
C.OOOOO 
EAST-WEST  ROW 

3.34430 

-0.80526 

0.00000 

2 

3.59774 

-1.30947 

0.00000 

2.51700 

2.49550 

0.00000 

2.39835 

2.85846 

O.OOOOC 

0.00000 

0.00000 

0.00000 

0.00000 

O.COOOC 

O.OOOOC 

2.59062 
0.69416 
O.OOOOC 
.AST-WEST  ROW 

3.54553 

-1.29047 

O.OOOOC 

3 

3.41242 

-0.50519 

0.00000 

2.39855 

2.85846 

O.OCOOO 

2.43325 

2.92603 

0.00000 

0.00000 

c.ooooo 

o.coooo 

O.OOOOC 

c.ooooo 

O.OOOCO 

0.00000 

OOQ 

0.00000 
EAST-WEST  ROW 

C.OOOOO 

c.ooooo 

0.00000 

4 

0.00000 

O.OOOOC 

0.00000 

2.4525? 

2.92236 

0.00000 

2. 39353 

2.85846 

0.00000 

1.10606 

3.53375 

0.00000 

C. 33235 

3.77003 

C.OOOOO 

O.OOOOC 

o.oocoo 

0.00000 

0  *  cocos 

1.92073 

0.33235 

0.33233 
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0.00000 

0.00000 

0.00000 

O.COGOO 

3.09044 

3.77003 

0.00000 

0.00000 

0.00000 

0.00066 

0.00000 

6.00000 

EAST-OS  ST  80L 

5 

0.00000 

fl.OOCOO 

0.00000 

8.00000 

0.00000 

2.09069 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

2.83644 

0.00000 

0.00000 

0.00066 

0.00000 

0.00000 

* 0.00000 

EAST-WEST  ROW 

6 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

3.073C4 

0.00000 

9.00000 

0,00000 

0.00J900 

2.27891 

0.00000 

•:  0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

LEVEL  8 

IASE  AT 

19C5.000  METERS 

EAST-WEST  ROW 

1 

l.«21L 

3.57035 

2.72600 

_J,A|594 

0.00000 

0.80985 

-0.51266 

-1.29950 

2.45844 

3.08176 

0.06000 

0.00000 

0.00000 

0.00000 

0.90000 

0.00000 

0.00000 

EAST-WEST  ROW 

2 

3.02239 

3.47969 

3.29075 

2.38594 

2.38594 

0.00000 

0.80985 

-1.26650 

-0.05507 

3.08176 

3.08178 

0.00000 

0.00000 

0,00000 

0.00000 

,  0,00000 

0.00000 

EAST-WEST  ROW 

3 

0.00000 

0.00000 

0.00000 

2.38394 

2.58594 

1.63969 

0.00000 

0.00000 

0.00000 

3.08178 

3.08*78 

3.61681 

0.00000 

0.00000 

0.00000 

0.60600 

O.Or  JCO 

0.00000 

EAST-WEST  ROW 

4 

0.00000 

0.99000 

0.00000 

0.09009 

2.02927 

C.T6442 

0.00000 

0.00000 

0.00000 

0.00000 

3.39653 

4.11170 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

EAST-WEST  ROW 

5 

0.00030 

0.00000 

0.00000 

0.00000 

0.00000 

2.17056 

0.00000 

o.oooco 

0.00000 

0.00000 

0.00000 

3.29660 

0.00000 

9 <09999 

O.OOOQO 

0.90909, 

0,00000 

0.00000 

EAST-WEST  ROW 

6 

0.00000 

0.00009 

0.00000 

0.00000 

0.00000 

3.33950 

0.00000 

0.00000 

c.ooooo 

0.00000 

0.00000 

2.61900 

0.00000 

0.00000 

0.00000 

c.ooooo 

0.00000 

0.00000 

LEVEL  9 

BASE  AT 

2057.400  METERS 

EAST-WEST  AOW 

1 

3.15467 

3.36390 

3.36027 

2.85080 

2.8  0  302 

0.77925 

0.90664 

-0.33419 

-0.75780 

2.46326 

2.80887 

0.39704 

0.00000 

C.  00  COO 

0.00000 

0.00000 

0.00000 

0.00000 

EAST-WEST  ROW 

2 _ 

3.15467 

3.31150 

3.21844 

2.80302 

2.73735 

0.77925 

0.60664 

-9,74461 

-0.05435 

3  .80887 

2.89144 

0.39704 

0.00009 

0.00000 

0.00000 

0.00000 

C.OOOOO 

O.COCOO 

EAST-WEST  ROW 

3 

0.43913 

0.63913 

0.63913 

2.74091 

2.80302 

2.03713 

0.23261 

^  0<2126S 

2.83695 

2.30887 

3.58398 

0.  GO  COO 

6 „ 86000 

0.60000 

C.OOOOO 

0.00000 

6,06600 

EASf-WiSl  ROW 

4 

0.63913 

0.63913 

9.63913 

0.89609 

2.34920 

1.75021 

0.23261 

9  <82201 

0.23281 

0,59733 

3.08607 

3.64654 

0.  000 

0.00000 

0.00000 

0.00000 

0.00000 

6.00000 

EASIrWSil  JSOIL 

. 1  . 

0.63913 

0.63913 

0.33609 

0.9864* 

0.18609 

i:msr~ 

0.23261 

_ 9,21261 

0,89783 

8.34763 

0.59783 

3.20401 

0.00006 

0.00000 

0.00000 

0.60000 

0. do 606 

6.00006 

3.77005 

6.60000 

T796?iy* 

2.3401* 

6.00000 

3.0730* 

2.27891 

c.ooooo 


0.00000 

6.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.76441 

4.11170 

0.00000 

0.76441 

4.11170 

0.00000 

3.18371 

2.70931 

0.00000 

3.33950 
2.61900 
0. 00000 


0.77925 

0.39704 

0.00000 

0.77925 

0.39704 

0.00000 

1.75018 

3.84655 

6.66000 

1.75021 

3.64654 

0.06000 

1.4*176 

2.78726 

6.006*0 
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EAST-WEST  ROW  6 


0.63913 

0.23261 

0.00000 

0.63913 

0.23261 

0.000">0 

0.88609 

0.59783 

0.00000 

0.88609 

0.59783 

O.OGOOO 

0.88609 

0.59783 

0.00000 

3.52900 

2.73583 

0.00000 

3.52900 

2.73583 

O.OCOOO 

LEVEL  1C 
EAST-WEST  RCW 

EASE  AT 

1 

22C9.800  METERS 

3.19708 

0.99777 

o.ooooc 

EAST-WEST  RCW 

3.16767 
0.32420 
C. 00000 

2 

3.15016 

-0.07653 

O.OOOCO 

3.09447 

2.09435 

0.00000 

3.08523 

2.45409 

O.OOOOC 

1.79226 

0.91320 

0.00000 

1.79226 

0.91320 

O.OOOOC 

3.19708 

0.99777 

o.ooooc 

EAST-WEST  RCW 

3.10750 

-0.06100 

C.OOOCO 

3 

3.13172 

0.64225 

0.00000 

3.08523 

2 .45409 
-C.  00000 

3.08523 

2.45409 

O.OOOCO 

1.79226 

0.91320 

O.OOOCO 

1.79226 

C.9132C 

O.OOOOC 

1.47 OOC 
0.53500 
0.00000 
EAST-WEST  RCW 

1 .47000 
C. 53 500 
O.OOCOO 

4 

1.470C0 

0.53500 

0.00000 

3.08523 

2.45409 

C.  00000 

3.08523 

2.45409 

O.OOOCO 

2.93831 

2.98454 

0.00000 

2.80238 

3.47522 

O.OOOOC 

1.47000 
0.53  5C0 
0.00000 
EAST-WEST  RCW 

1.47CC0 
0.53500 
C. 00000 

5 

1.47000 

3.53500 

0.00000 

2.03800 

1.07500 

0.00000 

2.99880 

2.76615 

O.OCOOO 

2.80242 

3.47520 

O.OCOOO 

2.80242 

3.4752C 

c.coooc 

1.47000 
0.53500 
O.OOOOC 
EAST-WEST  RCW 

1.47000 

C.535C0 

C.OOOjO 

6 

2.03800 
1.375CO 
C. 00000 

2.0J80C 

1.37500 

O.OOCOO 

2.038CC 

1.3750C 

O.OOOCO 

3.31985 

3.11278 

0.00000 

3.69267 

2.85165 

O.OOOOC 

1.47000 

0.53500 

0.00000 

1.47000 

0.53500 

C.OOOCO 

2.03600 

1.37500 

O.OOOCO 

2.03800 

1.37500 

C.CCOOb 

2 .03300 
1.3  500 

0.00000 

3.75000 

2.8115C 

O.OOOOC 

3,75000 

2.81150 

C.CSOOC 

LEVEL  11 
EAST-WEST  RCW 

BASE  AT 

1 

2362.200  METERS 

3.59091 
1.48620 
O.OOOOo 
CAST-WEST  RCW 

3.41184 

1.03192 

O.OOOCO 

2 

3.5T051 

1.01912 

0.00000 

3.6o512 

2.13618 

0.00000 

3.73311 

2.23614 

0.00000 

3.17095 

1.56619 

0. 00000 

3.17095 

1.56619 

O.OOOOC 

3.59091 
1.48620 
0.00000 
EAST-WEST  RCW 

3.56136 

1.01986 

0.03000 

3 

3.5730T 

1.16698 

0.00000 

~  3.73311 

2.23614 
O.OCOOO 

3.68815 

2.11218 

0.00000 

3.17095 

1.56619 

O.OOOCO 

3.17095 

1.56619 

O.OOOOC 

2.84000 

1.28500 

c.oocoo 

EAST-WEST  RCW 

2.84000 

1.28500 

O.OOCOO 

4 

2  84000 
1.28500 
0.00000 

3.69060 

2.11891 

C. 00000 

3.73311 

2.23614 

0.00000 

3.61702 

2.49892 

C. 00000 

3.63398 

2.85054 

O.OOCOO 

2.8400C 
1.2850c 
0.00000 
EAST-WEST  RCW 

2.84000 

1.28500 

O.OOCOO 

5 

2.84000 

1.28500 

0.00000 

3.30163 

1.93739 

0.00000 

3.80141 

2.33851 

O.OOOOC 

3.63401 

2.85052 

0-00000 

3.63401 

2.85052 

o.oooc; 

2.  R4000 

1 .28500 
0.00  000 
EAST-WEST  RCW 

2.84C00 

1.28500 

0.00000 

6 

3.30165 

1 .93739 
0,00000 

3»3ol65 

1.93739 

C.00000 

3.30165 

1.93739 

0.00000 

4.05559 

2.62207 

0.00000 

4.04705 

2.56856 

O.OOOOC 

2.84  000 
1.28500 
0.00000 

2.84000 

1.28500 

O.OOOOC 

1.30166 

.9?7I» 

V  00000 

3.30165 

1.93739 

0.00000 

3.30167 

1.93739 

O.OOOCO 

4.04600 

2.56196 

C.00000 

4.C463C 

2.56156 

C.COOGC 
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LEVI  It  13  IASI  AT  HU. 400  METERS 


EAST-MIST  ROM 

1 

' 

A.WOOO 

-fcSSI! 

2.99*00 

A«2*2ftl  _ 

_  -4*41553 _ 

4,42539 

4.42339 

1.9*930 

2,13120 

2.14113 

3.14112 

2.14112 

0.40000 

0.00400 

0.00060 

0,00000 

0.00080 

0.00000  _ 

O.OOOOO 

EAST  MIST  RON 

3 

4.10000 

4.10000 

4.34*74 

4.42535 

4.42553 

4.42S55 

4.42559 

3.09*90 

2.0*  **30 

3.11113 

2.14112 

3.14112 

3.14112 

2,14112 

4.00000 

0,00000 

(bOOWOL 

0.9000$  _ 

..  j.paooo 

.  0.00000 _ 

0,00000 

EAST*- MIST  RON 

3 

4.1*000 

4.1*000 

4.1*000 

4.42993 

4.42535 

4.37747 

4.33300 

2.09*90 

3.0*990 

2.09*30 

2.14112 

2.14112 

2.200*0 

2.2560T 

C.OOCOO 

0.00000 

0.00000 

0.00000 

0.00000 

O.OOOOO 

0.00006 

EAST-MIST  ROM 

4 

4.1*000 

.  Atioeoe 

4,UQM _ 

.4,13294 

—i±3  97J7 _ 

4,33300 

4.33300 

2.09*90" 

3.0*990 

3.0*930 

2.35*02 

2.17*23 

2.25400 

2.23600 

0.00000 

0.00000 

0.00000 

0.00000 

0,00000 

o.epooo 

0.00000 

EAST-MIST  ROM 

9 

4.1*000 

4.1*000 

4.33300 

4.33300 

4.33300 

4.33300 

4.33300 

3.0*990 

3.0*990 

2.25*00 

2.25*00 

2.23600 

2.25*00 

2.25600 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000. 

0.00000 

CAST-VEST  ROM 

* 

4.1*000 

4.1*000 

4.33300 

4.33300 

4.33301 

4.33300 

4.33300 

3.0*990 

3.0*990 

2.25*00 

2.25*00 

2.23399 

2.25600 

2.25600 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

LEVEL  13 

•ASE  AT 

2*47.000  METERS 

< 

EAST-VEST  ROM 

1 

5.21739 

5.3*83* 

5.21739 

5.19736 

3.17637 

5.17637 

5.17637 

2 .87574 

2.93947 

2.87S74 

2.47830 

2.41752 

2.41752 

2.41752 

3. 00  006 

0.00000 

O.OOOSQ 

0.00000 

0.00000 

C, 00000 

c.ccooo 

EAST- VEST  ROM 

2 

S.3173* 

5.22533 

'  5,;. 

5.?a?£S 

3.1763? 

5,17637 

2,«ST5T4 

2»*744l 

2.79883 

i  -41752 

2.42911 

2.41752 

2.41752 

0.00 COO 

O.OOOCG 

o.ooooo 

0.00000 

0.00000 

O.OOOOO 

o.coooo 

EAST-VEST  ROM 

3 

5  Uf39 

5.21739 

5.21739 

5.20218 

5.17637 

4.821*6 

4.58935 

3. *7974 

2* *7574 

2, *757* 

2.4284* 

2.41752 

2.12641 

1.93417 

0.00000 

0.00000 

0.00000 

o.OOOOO 

0.00000 

0.00000 

o.ooooo 

EAST-VEST  ROV 

4 

5.31730 

9.21T39 

3.2173? 

4.38*34 

5.03957 

4.38935 

4.3*935 

2.  *7374 

2.87574 

2.a75,4 

1.9541* 

2.28694 

1.95417 

1.95417 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

O.OOOOO 

0.00000 

EAST-NEST  ROM 

.  5 

9.21 739 

3.2173* 

4.5*933^ 

4.38935" 

"4.5*935 

4.58956 

4.58937 

2.R7974 

2. *7374 

1,434)7 

1.95417 

1.95418 

1.89274 

1.94742 

0.00000 

0.00000 

0.00000 

0.00800 

0.00000 

0.00000 

6.00000 

EAST-MEST  ROV 

« 

1.21739 

5.21739 

4. '8*35 

4.3*933 

4.39935 

4.58935 

4.58935 

2.  *7/74 

-1**7574 

U  05411. 

1.95417 

ii*?4U  _  . 

1,95411 

1.45417 

0.00000 

0.00000 

ooocoo 

0.00000 

0.00000 

6.66060 

t.  66660 

LEVEL  U 

IASE  AT 

2*19.400  METERS 

EAST-VEST  ROW 

1 

6.11903  _ 

Aama. . 

-»  - 

*4193 

5^90014 

1 .90014 

5.90014 

3.97400 

3.57400 

2.80959 

2.69242 

2.686*,  2 

2.48242 

0.00000 

0.90000 

0.00000 

0.00000 

3.00000 

0.00000 

0.00000 

EAST-MfST  ROV 

2 
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6.19400 

6,19400 

6.11053 

5.90014 

5.90014 

5.90014 

5.90014 

3.57600 

3.57600 

3.32219 

2.68242 

2.68242 

2.68242 

2 .68242 

0.00000 

O.QOOQO 

0.00000 

O.OQQQfl, 

Q.OGOCO 

0.00000 

C.00000 

EAST-WEST  ROW 
6.19400 

3 

6.19400 

6.19400 

5.90014 

5.90014 

5.35228 

4.84550 

3.57600 

3.57600 

3.576rd 

2.68242 

2.68242 

2.17727 

1 .71000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

C.OCOOO 

C.OCOOO 

east-west  ROW 
6.19400 

4 

6.19400 

6.19400 

4.84550 

5,57783 

4,84550 

4.84550 

3.57600 

•  3.57600 

3.57600 

1.710C0 

2.38524 

1.71000 

1.71000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

o.ccooc 

EAST-WEST  ROW 
6.19400 

5 

6.19400 

4.84550 

4.84550 

4.8455C 

4.84550 

4.8455C 

3.57600 

3 .57600 

1.71000 

1.71000 

1.71000 

1.71000 

1.71000 

0. 00 000 

0.00000 

0.00000 

O.QCOOG 

O.OOOOC 

C.fiOQOG 

o.oocoo 

EAST-WEST  RCW 
6.19400 

6 

6.194C0 

4.84550 

4.84550 

4.84550 

4.84550 

4.84550 

3.57600 

3.57600 

1.71000 

1.7.000 

1.71000 

1.71000 

1.71000 

0.00000 

0.00000 

0.00000 

C.OtiOOO 

0.00000 

C. 00000 

C.OCOOO 

LEVEL  15 
EAST-WEST  ROW 
6.53800 

8ASE  AT 

1 

6.53630 

2971.800  HETERS 

6.53800  6.23241 

6.18173 

6.18173 

6.18173 

3.77467 

3.77467 

3.  ‘7467 

2.92419 

2.78312 

2.76312 

2.78312 

o.ooooc 

0.00000 

0.00000 

0.00000 

C.OCOOO 

0.00000 

C.COOOC 

EAST-WEST  RCW 
6.53800 

2 

6.53800 

6.43681 

6.18173 

6.18173 

6.18173 

6.18173 

3.77467 

3.77467 

3.49304 

2.78312 

2.78312 

2.78312 

2.78312 

0.00000 

0.00000 

0.00000 

0.00000 

O.OOOOC 

0.00000 

C.COOOC 

EAST-WEST  ROW 
6.53  800 

3 

6,53800 

6,53800 

6.18173 

6.18173 

5.57133 

5.06817 

3.77467 

3,77467 

3.7746T 

2. 78312 

2.78312 

2,14932 

1.75213 

O.OOOOC 

o.cocco 

O.UOOOO 

O.OlCOO 

C.OCOOO 

O.GOGTC 

0,0 , COc 

EAST-WEST  RCW 
6. 53  SCO 

4 

6.53800 

6.53800 

5.06817 

5.88201 

5.06837 

5 .0861 f 

3.77467 

3.77467 

3.77467 

1.75213 

2.46721 

1.75213 

1.75213 

0.09000 

C. 00000 

0.00000 

O.OOCOO 

O.OCOCG 

0.00000 

O.OOOOC 

EAST-WEST  RCW 
6.53800 

5 

6.538C0 

5.06817 

5.06817 

5.06817 

5.07887 

5.06933 

3.77467 

3.77467 

1.75213 

1.75213 

1.75213 

1.72204 

1.74882 

O.OCOO'' 

0.00000 

0.00000 

C.OCOOO 

0.00000 

0.00000 

C.OCOOC 

EAST-WEST  ROW 
6.5? eoc 

o 

6.53800 

5.C6817 

5.06817 

5.06817 

5.06817 

5.06817 

3.77467 

3.77467 

1.75213 

1.75213 

1.75215 

1.75213 

1.75213 

O.OOOOC 

Oo 00000 

0.00000 

O.OoCOC 

O.OOOOC 

C. 00000 

O.OOOOC 

LEVEL  16 
EAST-WEST  RCW 
6.96800 

BASE  AT 

1 

6.96800 

3124.200  HETERS 

0. 96800  6.59550 

6.53371 

6.53371 

6.53371 

4.02  300 

4.02300 

4.02300 

3.06749 

2.90900 

2.90900 

2.90900 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

O.OOCOO 

EAST-WEST  ROW 
6.96800 

2 

6.96800 

6.84465 

6.53371 

6.53371 

6.53371 

6.51371 

4.02  300 

4 .02300 

3.70059 

2.90900 

2.90900 

2.90900 

2.90900 

O.OOOOC 

C.  00000 

C. 00000 

0.00000 

0.00000 

0.00000 

C. 00000 

EAST-WEST  ROW 
6.96  800 

3 

6.96800 

6.968Q0 

6.53371 

6.53371 

5.67716 

5,28100 

4.02  300 

4.02300 

4.02300 

2.90500 

2.90900 

2.16610 

1.8226C 
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0.00000 

EASt-WCST  ROM 


6.96(00 

4.o££m 


4.C 
0.90000. 
EAST-WEST  ROW 
6.96(00 
4.02300 


0.00000 

4 

4782300 

0.90000 


9 

4. 94 (00 
4.02300 


0.00000 _ 0.00000 


4.02300 

0.00000 


1.(2290 

Otoeooo 


9.21100 _ 5.2(100 

1.(2230  '  1.(2290 


0,00000  _ 
EAST-NEST  RON 
4.96(00 
4.02300 
0.00000 


_ 9t99999 

•  4 

4.94(00 
4.02300 
0.00000 


_ 9,90666 

3.2(100 

1.(2290 

0.00000 


OtOOOSO, 

5.2(190 

1.12250 

0.00000 


.  0,00000 

0.00000 

p.ooooc 

5.94724 

5.2(100 

.  5,2(100 

2.40036 

1.(2250 

1.(2256 

O.OTOOO 

0.00000 

0.00000 

5.2(100 

5.2(100 

5.2(100 

1.42250 

1.(2250 

I.l2l50 

4.00000 

0.00000 

0.00000 

5.2(100 

5.2(100 

5.2(100 

1.(2230 

1.(2250 

1.(2250 

0.00000 

0.00000 

0.00000 

LEVEL  IT  EASE  AT  3276.600  METERS 


EAST-MEST  ROW 
5.22600 

1 

5.22600 

9.22600 

5.41319 

5.67741 

5.67741 

3.67741 

3.01 TOO 

3.01700 

3.01700 

2.4(924 

2.63021 

2.63021 

2.63021 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

E  A  ST- WE  ST  RQW 

2 

5.67741 

5.22400 

5.22600 

3.35422 

5.67741 

5.67741 

5.47741 

3.01700 

3.01700 

2.90714 

2.63021 

2.63021 

2.63021 

2.63021 

0.00000 

0.00000 

0.00000 

0.00000 

6.00000 

0.00000 

0.00000 

EAST-WEST  ROW 

5. 22 600 

3 

3.22600 

5.22600 

5.67741 

5.67741 

5.64440 

5.4o557 

3,01700 

2*91709 

3.01700 

. is 

2.63021 

2.12815 

1.97113 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00005 

£A$T“WE$T  SOW 
5.22  600 

4 

3.22600 

S, 2Z600 

5.46557 

$.33733 

3.46557 

5.46557 

3.01 70S 

3*91700 

3.01700 

1.97113 

2.30350 

1.97115 

1.97113 

0.00000 

O.OOCOQ 

0,09000 

0.00000 

O.OOOOC 

c.ococo 

0.00000 

5 

5.22  <300 

5.22400 

5.44597 

5.46557 

5.46557 

5.46411 

5.46540 

3.01 700 

3. Cl  700 

1.97113 

1.97113 

1.97113 

1.97620 

1.97169 

0. CO  000 

0.00000 

0.00000 

0.00000 

0.00  000 

0.00000 

0.00000 

EAST-MEST  ROW 
5.12400 

6 

3.22600 

3.46557 

5.46557 

5.4*557 

5.46557 

5.46557 

3,01790  . 

_J.»9L?9Q  .. 

..  J.  97113 

u  uu 

_ |.fTU3 

1.97113 

1.97113 

0.00000 

0.00000 

0.00000 

0.90000 

0.00000 

0.00000 

0.00000 

LEVEL  It  I AJE  AT  3429.000  METERS 


EAST-WEST  ROM 

1 

3,4f460 

-  j,4sm- 

1*1*494 

4.4301* 

2.91100 

2.01100 

2.01190 

2.30299 

0.00000 

L. 00000 

0.00000 

0.00000 

EAST -WEST  ROW 

2 

3.44400 

3,48400 

3. 06378 

4.(2111 

2.01100 

2.01100 

2.10769 

2.35142 

0*66 86S_- 

0 • ocooc 

9.80660 

0.06666 

EAST-WEST  ROW 

3 

1,4(400 

3,4(400 

3.4(460 

4.(2111 

2.01100 

2.01100 

2.01100 

2.39142 

0*69060 

6, 60900 

0.00060 

0.00090 

SAST-N9ST  ROW 

4 

1.4(409 

2.4f4?8 

2.01100 

2.91160 

a.oiiiS 

tw 

..J  *99999 

0eS««O9  ... 

*.00006 

EAST-WEST  ROW 

i 

4.(2111 

t.m<r 

4.(2111 

4.(2111 

“T.JJU* 

235142 

0.00000 

0.00000 

0.00000 

4.(2111 

4.(2111 

4.(2111 

2.35142 

2.53142 

2.35  >2 

0. CO  000 

o.oowc 

0.00000 

4.(2111 

9.3(490 

5.65150 

2.35142 

2.1(977 

2.11500 

0.00000 

0,06000 

0.00000 

9.209(9 

9.69150 

5.65150 

a.MfW  1 

■“J71H50 

- 2.TT5GC 

0.60000 

C. 60000 

0.00009 

338 


;  ) 


3.48400 

3.48400 

5.65190 

5.65150 

5.65150 

5.65150 

5.6515C 

2.01100 

2.01100 

2.1 ’500 

2.11500 

2.11500 

2.11500 

2.11500 

0.00000 

O.OQCQO 

2.00000 

0.00000 

0.00020 

0.00020 

0.00000 

EAST-WEST  ROW 

6 

3.48400 

3.48400 

5.65150 

5.65150 

5.65150 

5.65150 

5.65150 

2. 01 IOC 

2.01100 

2.11500 

2.11500 

2.11500 

2.11500 

2.11500 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.03000 

0.00000 

LEVEL  19 

CASE  AT 

3581.400  METERS 

EAST-WEST  ROW 
3.48400 

1 

3.48400 

3.48400 

4.63C87 

4.82111 

4.82111 

4.82111 

2.01  IOC 

2.01100 

7.01100 

2.3C299 

2.35142 

2.35142 

2.35142 

0.00 000 

C.OOCOO 

0.00000 

O.OCOOO 

0.00000 

G.OOOCO 

C.CCOOC 

EAST-WEST  ROW 
3.48400 

2 

3.48400 

3.86378 

4.82111 

4.82111 

4.82111 

4.82111 

2.01  ICO 

2.01100 

2.10769 

2.35142 

2.35142 

2.35142 

2.35142 

O.OOCOO 

o.oocoo 

0.00000 

0.00000 

0.0003G 

0.00000 

O.OOOOC 

EAST-WEST  RCW 
3.48400 

3 

3.484C0 

3.48400 

4.82111 

4.82111 

5.30806 

5.56265 

2.0110b 

2.01100 

2.01100 

2.35142 

2.35142 

2.22269 

2.15539 

0.00000 

C.OOOCO 

0.00000 

0.00000 

0.00000 

c.cooco 

C.OOOOC 

EAST-WEST  ROW 
3.4840C 

s 

3.48400 

3.48400 

5.56265 

5.14574 

5.56265 

5.56265 

2.01100 

2.0UC0 

2.01100 

2.15539 

2.26560 

2.15539 

2.15539 

0.00000 

O.OOCOO 

0.00000 

C.OCCOO 

O.OCOOC 

o.cooco 

C.OOOOC 

EAST-WEST  ROW 
3.48400 

5 

3.484C0 

5.56265 

5.56265 

5.56265 

5.65195 

5.57246 

2.01  lOC 

2.01100 

2.15539 

c. 15539 

2.15539 

2.18340 

2.15647 

c.coooo 

c.oooac 

0.00000 

C.OCOOC 

u.ooeoo 

o.ocoeo 

r.cococ 

FAST-WEST  RCW 
3.48400 

& 

3.48400 

5.56265 

5.56265 

5.56265 

5.56265 

5.56265 

2.01100 

2.01100 

2.15539 

1. 15539 

2.15539 

2.15539 

2.15539 

0.00 COO 

O.OOCOO 

0.00000 

c.ocooo 

0.03000 

O.OOCOO 

C.OCOOO 

LEVEL  20 

eASE  AT 

3733.800  METERS 

EAST-WEST  RCW 
3.48  400 

1 

3.484C0 

3.48400 

4.63087 

4.82111 

4.82111 

4.82111 

2.01 :oc 

2.01100 

2.01100 

2.3C299 

2.35142 

2.35142 

2.35142 

O.OOOOC 

0.09000 

0.00000 

C.OOOOC 

0.00000 

C.  00000 

C.CCOOC 

EAST-WEST  RCW 
3.48400 

2 

3.48400 

3.86378 

4.82111 

4.82111 

4.82111 

4.02111 

2.01 IOC 

2.01100 

2.10769 

2.35142 

2.35142 

2.35142 

2.3514* 

o.oocco 

0.00000 

0.00000 

C.OCOOO 

O.OCOOO 

C.OOOOC 

c.ccooc 

EAST-WEST  RCW 
3.48400 

2 

3.48400 

3.48400 

4.82111 

4.82111 

5.21009 

5.3900C 

2.01100 

2.01100 

2.01100 

2.35142 

2.35142 

2.22703 

2.1695C 

0.00000 

C.OOOCO 

0.00000 

C.OCOOO 

O.OCOOO 

C.COOCO 

c.cuccc 

cAST-WEST  RCW 
3.48400 

4 

3.48400 

3.48400 

0.39000 

5.08743 

5.39000 

5.3900C 

2.01 lOO 

2.01100 

2.01100 

2.16950 

2.26625 

2.16950 

2.1695C 

C.OOOOC 

C.OOCOO 

0.00000 

O.OOCOO 

O.OCOOO 

0.00000 

C.OOOOC 

EAST-WEST  RCW 

3.48400 

5 

3.48400 

5.39000 

5.39000 

5 .39000 

5.39000 

5 .39000 

2.01100 

2.01100 

2.16950 

2.16950 

2.16950 

2.16950 

2 .16950 

0.00000 

0.00000 

0.00000 

O.OCOOO 

0.00000 

0.00000 

C.OOOOC 

EAST-WEST  ROW 
3.48400 

6 

3.46400 

5.39000 

5.39000 

5.39000 

5.39000 

5.3900C 

2.01100 

2.01100 

2.16950 

2.16950 

2.16950 

2.16950 

2. 1695c 

•■39 


0.00000 

0.00000 

0.00000 

O.OCOOO 

0,00000 

0.00000 

Oc 00000 

LfVCL  n 

•ASC  AT 

3884.200  NCTIRS 

EAST-MIST  ROW 

1 

1.40400 

1.4*400 

3.48400 

4.22347 

4.34413 

4.34613 

4.34413 

2.01100 

2.01100 

2.01100 

2.29304 

?.?932l 

2.29321 

2.29321 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

EAST-MIST  RQM 

2 

1.40400 

'  3.40400 

3.7283T 

4.34613 

4.34413 

4.34613 

4.34613 

2.01100 

2.01100 

2.0811* 

2.29331 

2.29321 

2.29321 

2.29321 

0.00000 

0.00000 

0.00000 

0.00900 

0.00000 

0.00000 

0.00000 

EAST-HOST  ROM 

3 

1.4? 400 

3.4*400 

3.4*400 

4.34613 

4,34613 

4.95897 

4.96670 

2.01  iCO 

..  J.5UM. 

2.01190 _ 

?.*?9324_ 

-  . 

2,23089 

2.20665 

0.00000 

u.SCO 00 

0.00000 

0.00000 

0.90000 

0.00000 

O.OOOOC 

EAST-NEST  ACM 

4 

1.40400 

3.48400 

3.48400 

4.98670 

4.71875 

4.98670 

4.986/0 

2.01100 

2.01100 

2.01100 

2.206*5 

2.22409 

2.20*45 

2.20665 

0.00  >00 

C. 00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

EAST-MIST  ROM 

s 

1.40400 

3.4*400 

4.98670 

4. 9867© 

4.9*670 

4.97113 

4.98499 

2.01100 

2.01100 

2.20669 

2.206*5 

2.20685 

2.17128 

2.20277 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00030 

EAST-MEST  ROM 

« 

1.40400 

1.48400 

4.98670 

4.98670 

4.98*70 

4.98*70 

4.9S670 

2.01100 

2  .41190 

2.20669 

2*29*45 

1*29*45 

2.2C665 

2.20663 

0.00000 

0.00000 

0,00030 

0.00009 

0.00000 

C. 00000 

o.crjoe 

LEVEL  22 

EASE  AT 

4038.600  METERS 

EAST-MEST  ROM 

1 

1.40400 

..  3  *A  8-400 

3,48490 ... 

J..I1W7 

3.87115 

3.87115 

3.87115 

2.01100 

2.01100 

2.01100 

2.20313 

2.23500 

2.23500 

2.23300 

0.00000 

C. 00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

EAST-MEST  ROM 

2 

1.40400 

3.48400 

3.98394 

3.87115 

3.87115 

3.87115 

3.(7113 

2.01100 

2.01100 

2.07462 

2.23500 

2.23500 

2.23500 

2.23500 

0.09000 

0,00000 

0.00000 

0,00000 

0,00000 

0.00000 

0.00000 

EAS7-ME ST  ROM 

3 

1.40400 

3.4*400 

4,48400 

3.87115 

3.87115 

4.36814 

4.59*30 

2.01100 

2.0U00 

2.01100 

2.23500 

2.23500 

2.26372 

2.27700 

0. CO 000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0,00000 

EAST-WEST  ROM 

4 

1,40400 

3.48.400 

3.4840t 

1,59800 

1*21142 

4.59900 

4.59800 

2.01100 

2.01100 

2. Oil 09 

2.27700 

2.25466 

2.27700 

2.277C0 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0. 00000 

0.00000 

EAST-MEST  ROM 

3 

3.4*400 

3.484QQ 

4,99800 

4.59800 

4.59800 

4.598C0 

4.59800 

2.01100 

2.01100 

2.27700 

2,27700 

2.2I7QO 

2.27700 

2.27700 

0.00 009 

0.9000Q 

o*. oooog. 

.  0,00000 

0.00000 

5*99990 

0.70000 

CAST-WEST  ROM 

6 

1.4*400 

3.48400 

4.99800 

4.59800 

4.59800 

4.59800 

4,59800 

2,01100 

2.01100 

2.27700 

2.27700 

2.2770C 

2.27700 

2.27700 

0.00000 

0,00000 

0.00000 

0.00000 

6.00000 

0.00000 

0.00000 

LEVEL  23 

"bas'c  at 

4191.000  METERl” 

— 

- - 

EAST-WEST  ROM 

1 

1.4*400 

3.4R.00 

3.4*400 

3.81607 

3.67115 

3.ani5 

3.87115 

2.01 IOC 
0.00000 
EAST-MEST  ROM 

2.01100 

0.00000 

2 

2.01100 

0.00000 

2.20313 

O.OUOOO 

2.235C0 

o.ocooo 

2.23500 

0.00000 

2.23500 

0.00000 

3.48400 
2.01100 
0.00000 
EAST-MEST  ROM 

3.46400 

2.01100 

0.00000 

3 

3.59396 

2.07462 

0.00000 

3.87115 

2.23500 

0.00000 

3.87115 

2.23500 

O.OCOOC 

3.87115 

2.23500 

C. 00000 

3.87115 

2.23500 

0*00000 

3.48400 
2,01100 
0.00000 
EAST-MEST  ROM 

3.48400 

2.01100 

0.00000 

4 

3.48400 

2.01100 

0.03000 

3.87115 

2.23500 

0.00000 

3.87115 

2.23500 

0.00000 

4.18229 

2.39143 

C. 00000 

4.34496 

2.47322 

0.00000 

3.48400 
2.01100 
0.00000 
EAST-MEST  ROM 

3.48400 

2.01100 

0.00000 

5 

3.48400 

2.01100 

0.00000 

4.34496 

2.47322 

C.COOOO 

4.07857 

2.33929 

0.00000 

4.34496 

2.47322 

O.OOOCO 

4.34496 

2.47322 

O.OOOOC 

3.48400 
2.01100 
0.00000 
EAST-MEST  ROM 

3.48400 

2.01100 

0.00000 

6 

4.34496 

2.47322 

0.00000 

4.34496 

2.47322 

0.00000 

4.34496 

2.47322 

0.00000 

4.31716 

2.46835 

0.00000 

4.34190 

2.47268 

0.00000 

3.48400 
2.01100 
0. 00000 

3.48400 

2.01100 

0.00000 

4.34496 

2.47322 

0.00000 

4.34496 

2.47322 

c.ocooo 

4.34496 

2.47322 

0.00000 

4.34496 

2.47322 

O.CCOCO 

4.34496 
c. 47322 
O.CCOGQ 

LEVEL  24 
EAST-MEST  ROM 

EASE  AT 
l 

4343. 4C0  METERS 

3*46400 

2. Cl 100 
0.00000 
EAST-MEST  ROM 

3.46400 

2.01100 

0.00000 

2 

3.48400 

2.01100 

0. 00000 

3,81607 

2.20313 

0.00000 

3.87115 

2.2350C 

o.ooooc 

3,87115 

2.235C0 

0.00000 

3. 87U5 
2.23500 
C. 00000 

3.48400 
2.01100 
0.00000 
EAST-MEST  ROM 

3.4840C 

2.01100 

O.COCOO 

3 

3.59354 

2.07442 

0.00000 

3.67115 

2.23500 

C.OCOOO 

3.67115 

2.23500 

0.00000 

3.87115 

2.235C0 

0.00000 

3. 87115 
2.2350C 
O.OOOOC 

3.48400 
2.01100 
0.00000 
EAST-MEST  ROM 

3.48400 

2.01100 

0.00000 

4 

3.48400 

2.01100 

0.00000 

3.87115 

2 .23500 
C.OCOOO 

3.37115 

2.25500 

O.OOOCO 

4.03994 

2.53517 

0.00000 

4.11800 

2.67400 

0.00000 

3.48400 
2.01100 
0.00000 
EAST-MEST  ROM 

3.48400 

2.01100 

0.00000 

5 

3.48400 

2.01100 

0.00000 

4.11800 

2.6/400 

0.00000 

3.98671 

2.44052 

0.00000 

4.11800 

2.67400 

0.00000 

4.11 3CC 
2.6740C 
O.OOOOC 

3.48400 
2.01 IOC 
0.00000 
EAST-MEST  ROM 

3.43400 

2.01100 

0.00000 

6 

4.11800 

2.67400 

O.OOOCO 

4.11800 

2.67400 

C.  00000 

4.11800 

2.674CC 

0.00000 

4.11800 

2.67400 

0.00000 

4.11300 

2.6740C 

O.OOOOC 

3.48400 

2.01100 

0.00000 

3.48400 

2.01100 

0.09000 

4.11800 

2.67400 

0.00000 

4.11800 

2.67400 

0.00000 

4.U8C0 

2.67400 

0.00000 

4.11800 

2.67400 

C.COOOO 

4.1180C 

2.67400 

O.OOOOC 

LEVEL  25 
EAS^-MEST  ROM 

EASE  AT 

1 

4495.800  METERS 

3.48400 
2.01100 
0.00000 
EAST-MEST  ROM 

3.48400 

2.01100 

0.00000 

2 

3.48400 

2.01100 

0.00000 

3.81607 

2.20313 

0.00000 

3,87)15 

2.23500 

0.00000 

3.6/115 

2.23500 

0.00000 

3.87115 

2.23500 

O.OCOOC 

3.48400 

2.01100 

0.00000 

3.48400 

2.01100 

0.00000 

3.59396 

2.07462 

0.00000 

3.87115 

2.23500 

0.00000 

3.87115 

2.23500 

0,00000 

3.87115 

2,23500 

0.00000 

3.87115 

2.23500 

C,  00000 

EAST-MIST  ROM 
3.48400  ' 
3,01190 _ 

i 

3.48400 

2.01100 

3.48400 

2.01100 

3.87113 

2.23300 

3.87113 

2.23300 

4.0*147 

2.8239* 

4.04974 

2,70317 

0.00400 

0,00000 

0.90000 

0.00900 

0.00000 

0.00000 

O.OOOOC 

EAST-MIST  ROM 

4 

3.48400 

3.48400 

3.48400 

4.04474  " 

3.4327* 

~  4.044T4 

”  4.09974 

2,01100 

2.01100 

2.01100 

2.70217 

2.47148 

2.70217 

2.70217 

0.00000 

C.OOOOO 

0.00000 

0.00000 

0.00000 

0.00000 

6.60606 

EAST-NEST  ROM 

i 

3.48400 

•  3.48400 

4,08474 

4/69974 

4.04974 

4.06082 

4.0954* 

2.01100 

2.01100 

2.70217 

2.70217 

2.70217 

2.7*222 

2.70877 

0.00000 

0.00000 

O.OOOOC 

0.00000 

O.OOOOC 

0.00000 

o.Ooooo 

EAST-WEST  RON 

6 

3.48400 

3.48400 

4.09474 

4.09974 

4.04974 

“  4.09874 

4.09974 

2.01190 

2.01100 

2.70217 

2.70217 

2.70217  _ 

3.7QI17 

2,70217 

0.00000 

0.00000 

0.00000 

0.00000 

OoOOOOO 

0.90000 

' O.OOOOC 

LEV81  2*  IASI  AT  4*48.200  METERS 


EAST-WIST  ROW 

1 

3.48400 

3.48430 

3,48400 

J,  81 467 

3.87115 

3,87115 

3.87115 

E. 01 100 

2.01100 

2.01100 

2.20313 

2.23500 

2.23500 

2.23500 

0.00000 

0,00000 

0.00000 

o.ecooo 

0.COOOC 

0.00000 

O.COOOO 

EASI-WEST  RON 

2 

3.48400 

3.48400 

3.5934* 

3*87115 

3.87115 

3.87115 

3.87115 

2.01100 

2.01100 

2.074*2 

2.23500 

2.23500 

2.23500 

2.23500 

O.OOOOC^ 

.  .  9,99900 

9*99990 

_o, 90009 

0.00000 

6-00000 

0.00000 

EAST-WEST  RON 

3 

3,48400 

3.48400 

3.48400 

3.87)15 

3.W7115 

4.03944 

4.11800 

2.01100 

2.01100 

2.01100 

2.23500 

2.235C0 

2.53517 

2.67400 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

EAST-WEST  ROM 

4 

3,48400  . 

3,4*400 

3.48490 

.4*11194. 

3t9867) 

4.11800 

4.11800 

2.01100 

2.01100 

2.01100 

2.47400 

2.44052 

2.87400 

2.6740C 

0.00000 

0.00000 

0,00000 

0.00000 

0.00000 

0.00000 

O.COOOO 

EAST-WEST  ROW 

9 

3.48400 

3.43400 

4.11800 

4.11800 

4.11800 

4.11800 

4.11800 

2.01100 

2.01100 

2.67400 

2.67460 

2.67400 

2.67400 

2.67400 

0.00900 

0,00000 

0.00900 

0.00000 

0.00000 

0.00000 

0.00000 

EAST-WEST  ROM 

* 

3.44*00 

3.48400 

4.11800 

4.11800 

4.11800 

4.11800 

4.11800 

2,01100 

2.01100 

2.67400 

2.67400 

2.47400 

2.67400 

2.67400 

0,40000 

0.00000 

0.00000 

C.OOOOO 

0,00000 

0.00000 

0,00000 

lEVIt  27 

BASE  AT 

4860.600  METERS' 

- ....  _ 

. . 

CAST-WIST  RCW 

1 

3.484C0 

3.49400 

3.48400 

3.81*07 

3,87115 

3.87115 

3.87115 

2,3! IOC 

2.01100 

2.01100 

2.20313 

2.  ’3500 

2.23500 

2.23500 

O.OOCSO 

o. cocao 

0.00090 

0.00000 

0.00000 

0.00000 

0.00000 

SaIT-WIST  ro« 

.3  _  . 

3.48*00 

3.48400 

3.59396 

3.87115 

3.87115 

3.67)1*/ 

S.37US 

2.0H06 

a.onoo 

2.07462 

2,23500 

2.23300 

2.23500 

2.23500 

O.OQOSfl 

0.00000 

6.00000 

0.00000 

6.00000 

6.00006 

0.00000 

etJT-KgST  ROW 

>.43400 

1.4S40O 

3.48406 

3.87115 

3.87113 

4.21698 

4. 39778 

,  UMIM 
C.fiOrJOO 

it  turn. 

C .  3C000 

...  £*9M®9 
0.00000 

_ l4mS  . 

O.OOOOC 

2.23590 

"03366  ‘ 

2,2483* 

-"3/50566 

2.31430 

6.6666c 

tAST-N£<'?  SON 

4 

3,4*40* 

3,48400 

3.48408 

4.39778 

4.10170 

4.39778 

4.39ft* 

Jii2 


2.01100  2.01100 

0.00000  C.0QCC0 

EAST-WEST  ROW  5 

2.01100 

0.00000 

2.31930 

0.00000 

2.27191 

0.00000 

2.31930 

0.00000 

2.3193C 

O.CCOOO 

3.48400  3.484  ' 

2.01100  2.011^ 

O.OOCOO  C  OOOCC 

fcAST-WEST  ROW  6 

4.39778 

2.31930 

0.00000 

4.39778 

2.31930 

o.ccooo 

4.39778 

2.31930 

0.00000 

4.35310 

2*36364 

0. 00000 

4.39287 

2.32418 

O.OCOOO 

3.48400  3.48400 
2.01100  2.01100 
0.00000  '  O.OOCOO 

4.39778 

2.31930 

0.00000 

4.39778 

2.31930 

C.  00000 

4.39778 

2.31930 

0.00000 

4.39778 

2.31930 

0.00000 

4.39778 

2.3193C 

O.OOOOC 

LEVEL  18  eASE  AT 

EAST-WEST  RCW  1 

4953.000  METERS 

3.48400  3.48400 

2.01100  2.01100 

0.00000  0.00000 

EAST-WEST  ROW  Z 

3.48400 

2.C110Q 

0.00000 

3.81607 

2. 2u313 
0.00000 

3.87115 

2.2~500 

0.00000 

3.87115 

2.23500 

0.00000 

3.87115 
2.2350C 
C. 00000 

3.48400  3.484C0 

2 .01 IOC  2.01100 

0.00 000  c.ooccc 

EAST-WEST  RCW  3 

3.59396 

2.07462 

O.OOQCO 

3.87115 

2.23500 

o.ocooo 

3.87115 

2.2350C 

0.00000 

3.87115 

2.23500 

0.00010 

3. 87115 
2.23500 
O.OOOOC 

3.48400  3.48400 

2.01100  2.01100 

-  0.00000  C. 00000 

EAST-WEST  RCW  4 

3.48400 

2.01100 

0.00000 

3.87115 

2.23500 

o.ocooo 

3.87115 

2.23500 

0.00000 

4.45122 

2.02167 

0.00000 

4.7195C 

1.92300 

C.OOOOO 

3.48400  3.48400 

2.01100  2.01100 

O.COOOU  O.OOCOO 

EAST-WEST  RCW  5 

3.48400 

2.01100 

0.00000 

4.71950 

1.92300 

c.occoo 

4.26830 

2.08894 

0.00000 

4.71950 

1.92300 

o.orooo 

4.71950 
1. 9*330 
C.CCOOC 

3.48400  3.43400 

2.01100  2.01100 

0.00000  O.OOCOO 

EAST-WEST  ROW  6 

4.71950 

1.92300 

0.00000 

4.71950 

1.92300 

0.00000 

4.71950 

1.92300 

0.00000 

4.71950 

1.92300 

0.00000 

4.71950 

1.92300 

0.00000 

3.48400  3.484C0 
2.01100  2.011C0 
G.OOUGG  0.00000 

4.71950 

1.92300 

0.00000 

4.71950 

1.9  *00 
0.00000 

4.71950 

1.9230C 

O.OOOOC 

4.71950 

1.92300 

0.00000 

4.71950 

1.9230C 

O.OOOOC 

LEVEL  29  EASE  AT 

EAST-WEST  RCW  1 

5105.400  METERS 

5.26350  5.26350 

0.38200  0.33200 

0.00000  0.00000 

EAST-WEST  ROW  2 

5.26350 

0.38200 

0.00000 

5.46459 

0.74552 

0.00000 

5.49795 

0.80582 

0.00000 

5.49795 

0.80582 

O.OOOOC 

5.49795 
C. 80582 
O.OOOOC 

5.26350  5.26350 

0.38200  0.38200 

0,00000  O.OOCOO 

EAST-WEST  ROW  3 

5.33009 

0.50238 

0.00000 

5.49795 

C. 00582 
0.00000 

5.49795 

0.80582 

0.00000 

5.49795 

0.80582 

O.OOOOC 

5.49795 

0.80582 

O.OOOOC 

5.26350  5.26350 

0.382C0  0.38200 

0.00000  O.OOCOO 

EAST-WEST  ROW  4 

5.26350 

0.38200 

0.00000 

5.49795 

C. 80582 

o.'ooooc 

5.49795 

0.80582 

0.00000 

5.07030 

1.49343 

O.OOOOC 

5.31143 

1.3443C 

O.OOOOC 

5.26350  5.26350 

0.38  200  0.38200 

0.00000  0.00000 

EAST-WEST  ROW  5 

5.26350 

0.38200 

0.00000 

5.31143 

1.34430 

O.OCOOO 

5.24452 

1.19453 

0.00000 

5.31143 

1.34430 

0.00000 

5.31143 

1.34430 

0.00000 

5.26350  5.26350 
0.38200  0.38200 
0.00000  0.00000 

5.31143 

1.34430 

0.00000 

5.31143 

1.34430 

0.00000 

5.31143 

1.34430 

O.OCOOO 

5,26974 

1.35827 

0.00000 

5.30685 

1.34584 

O.OOOOC 

<1*3 


EAST-MEST  ROM 

6 

3731143 

5.31143 

5.26330 

3.26350 

5.31143 

3.31143 

3.31143 

jl 

0.3*200 

1,34439 

1.344M  _ 

1.34430 

_ 1,34430 

1,34430 

•»MOOQ 

0.00000 

0.00000 

0.03000 

0.00900 

0.90000 

0.00000 

LEVEL  30 

SASE  AT 

3257. *00  METERS 

EAST-HIST  ROM 

i 

T.04JOO 

7,04300 

7.04300 

_  7.11312 

-0.71210 

7.12475 

7.12473 

7.12475 

-1.24700 

• -1.24700 

-1.24700 

-0.62337 

-0.62337 

-0.62337 

0.00000 

0.00000 

0.00000 

0.00000 

O.COOOO 

0.00000 

0.00000 

EAST-MIST  ROM 

2 

7.04300 

7.04300 

7.06622 

7.12473 

7.12475 

7.12473 

7.12475 

-1.24700 

-1.24700 

•1.069*7 

-0.62337 

-0.62337 

-0.62337 

-0.62337 

0.00000 

0.00000 

0.00000 

0. 00000 

0.00000 

0.00000 

O.OCOOO 

EAST-HES7  ROM 

3 

7.04300 

7.04300 

7.Q4300 

7.12473 

7.12475 

6.3163* 

5.94250 

-1.24700 

-1.24700 

-1.24700 

-0.42337 

-0.62337 

0.31739 

6.75250 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

EAST-MEST  RON 

4 

7.04300 

7.04390 

7.04300 

5,64230 

6jS7129 

3.94250 

5. 94250 

-1.24700 

-1.24700 

-1.24700 

0.75230 

6. 02074 

0.75250 

0.7"52f0 

0.00000 

0.00000 

0.00000 

0.00000 

o.ocooo 

0.00000 

O.OCOOO 

EAST-UIST  ROW 

5 

7.04300 

7.04300 

5.94250 

5.94250 

3.94230 

5.94253 

5.94250 

-1.24700 

-1.24700 

0.75230 

0.75250 

0.75250 

0.75250 

0.75250 

0.00000 

0.00000 

0. 00009. 

0.00000 

o.ooooc 

o.oooeo 

_  .  0.00000 _ _ 

EASV-MEST  ROM 

6 

7.04300 

7.04300 

5.94250 

5.64250 

5.94250 

5.94250 

5.94250 

-1.24700 

-1.24700 

0.75250 

0.75250 

0.75250 

0.75250 

0.75250 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

C. 00000 

LEVEL  31 

BASE  AT 

5410.200  METERS 

EAST-MES7  ROM 

1 

7.04300 

7.04300 

7.04300 

7.11312 

7.12475 

1.12475 

7.12475 

-1.24700 

-1.24700 

-1.24700 

-0.71210 

-0.62337 

-0.42337 

-0.62337 

0.00000 

0.00000 

0.00000 

t .00000 

0.00000 

0.00000 

0.00000 

EAST-MEST  ROM 

l  . 

7.04300 

7.04300 

7.06622 

7.12475 

7.12475 

7.12475 

7.1247? 

-1.24700 

-1.24700 

-1.06917 

-0.62337 

-0.62337 

-0.42337 

-0.62337 

0.00000 

0.00000 

0.00000 

6.00000 

0.00000 

0.00000 

C. OOOOO 

EAST-MEST  ROM 

3 

7.04300 

7.04300 

7.04300 

7.12475 

7.12475 

6. *05 20 

6.  *6775 

-1.24700 

r  1.24109 

-1.24700 

_rP,li|ST  .  . 
0.00000 

-0.62337 

-0.1718* 

-0.19675 

0.00000 

o.ooooc 

0.00000 

0.00000 

0.00000 

O.6OOO6 

EAST-MEST  ROM 

4 

7.04300 

7.04300 

7.04300 

6.28094 

6. 91172 

6.86773 

6.86775 

-1.24700 

0.00000 

-1.24709 

0.00000 

-1*2*700 

0.00000 

0.47006 

0.00000 

-0.32238  . 

eiooooo 

-0.19675 

O.Coooo 

-0.19675 

c. 60000 

EAST-MESTROV 
7.04300 
-1.24700 
0.00000 
EAST-Mf  i>T  HOS 
7.04300 

o.oooeo 


_L  __ 

7.04300 

0.00000 

4 

7.04300 

-L.14U&. 

o.ooioa 


6.26044 

0.47006 

0.00000 


6.2*044 

0.47006 

0.66666 


6.28094" 

0.47006 

6.00066 


6.45619 

0.0*106 

o.boooo 


6.64044 

0.06603 

0.00000 

6.63*13 
0. 06417 
■5.00500 


LEVEL  32  EASE  AT  5562.600  METERS 

EAST-VEST  ROW  1 


T. 04 300 

7.0*300 

7.0*300 

7*11312 

7.12*75 

7.12*75 

7.12*75 

-1.2*700 

-1.2*700 

-1.2*700 

-0.71210 

-0.62337 

-0.62337 

-0.62337 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

EAST-VEST  RCV 

2 

7.0*300 

7.0*300 

7.06622 

7.12475 

7.12*75 

7.12*75 

7.12*75 

-1.2*700 

-1.2*700 

-1.06987 

-0.62337 

-0.62337 

-0.62337 

-0.62337 

0.00000 

,  C. 00000 

G  00000 

0.00000 

O.OOOCO 

C. 00000 

O.OOOOC 

EAST-VEST  ROM 

3 

7.0*300 

7.0*300 

7.0*300 

7.12*75 

7.12*75 

7.42*81 

7.51733 

-1.2*700 

-1.2*700 

-1.2*700 

-0.62337 

-0.62337 

-0.82895 

-0.89233 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

c.ccooc 

EAST-VEST  ROM 

,t 

7.0*300 

7.0*3C0 

7.04300 

6.70*00 

7.3*81* 

7.51733 

7.51733 

-1.2*700 

-1.2*700 

-1.2*700 

C. 11700 

-0.77642 

-0.80233 

-0.89233 

0.00300 

0.00000 

0.00000 

C. 00000 

O.OCQOO 

O.OOOOC 

O.OOOOC 

EAST-VEST  ROW 

5 

7.0*300 

7,0*300 

6.70*00 

6.7C400 

6.70*00 

7.31*00 

7.3140C 

-1.2*700 

-1.2*70C 

9.11700 

0.11700 

0.11790 

-0.6*000 

-0.6*000 

0.00000 

0. 00000 

o.oocoo 

0.00000 

O.OOOOC 

0.00000 

C.COOOO 

EAST-VES7  ROV 

6 

7.0*300 

7.0*300 

6.70*00 

6.70*00 

6.70*00 

7.31*00 

7.31*00 

-1.2*700 

-1.2*700 

9.11700 

9,11700 

0.11700 

-0.6*000 

-0.6*000 

0.00000 

0.00000 

0.00000 

o.ocooo 

O.OCOCC 

C. 00000 

C.COOOO 

LEVEL  33 

eASE  AT 

5715.000  METERS 

EAST-WEST  ROW 
9.90*50 

1 

9 .90*50 

9.90*50 

9. ,13**0 

9.00666 

9.00666 

9.C0666 

-1.7*900 

-1.7*900 

-1.7*900 

-1.59*26 

-1.56859 

-1.56859 

-1.56859 

0.00000 

0.09000 

0. 00000 

C.OCOOO 

O.OOOOC 

C. 00000 

C.COOOC 

EAST-VEST  ROW 
9.90*50 

2 

9.99*50 

9. 6*9*9 

9.00666 

9.00666 

9.00666 

9.00666 

-1.7*900  , 

-1.7*900 

-1.69776 

-1.56859 

-1.56859 

-1.56859 

-1 . 5“>859 

0.00000 

C.OOOOC 

0.00000 

O.OCOOO 

0.00000 

O.OOOOC 

c.ccooo 

EAST-VEST  ROW 
9.90*50 

3 

9,90*50 

9.90*50 

9.00666 

9.00666 

7.90081 

7.9C081 

-1.7*900 

-1,7*900 

-1.7*900 

-1 .56859 

-1.56859 

-i,373-'» 

-1.3739* 

0.00000 

O.OOCOU 

0.00000 

0. 00000 

0.00000 

O.OOOCO 

C.COOOO 

EAST-VEST  ROW 
9.90*50 

* 

9.90*50 

9.90*50 

7.8*050 

8.42891 

7.90081 

7.90061 

-1.7*900 

-1.7*900 

-1.7*900 

-1.3.400 

-1.477C2 

-1.3739* 

-1.3739* 

0.00 "00 

C.09C00 

C. 00000 

0.00000 

0.00000 

0.00000 

0.00000 

if  T-WEST  ROM 
9. ‘*0*50 

5 

9.90*50 

7.8*050 

7.8*050 

7.8*050 

7.77002 

7.88897 

-1.7*  9uC 

-1.7*900 

-1.31*00 

-1.31*00 

-1.3.400 

-1.20591 

-1.36218 

0.00000 

o.oocoo 

0.00000 

O.OCOOO 

0.00000 

0.00000 

C.OOOCO 

EAST-VEST  ROV 
9.90*50 

s 

9., 90*50 

7.8*050 

7.8*050 

7.8*050 

7.88770 

7.88770 

-1.7*900 

-1.7*900 

-1.3*00 

-1.31*00 

-1.31*00 

-1.36091 

-1.36091 

0.00000 

0.00000 

O.C  'CO 

0  ,00000 

O.OOOOC 

C.OOCOO 

C.COOOO 

LEVEL  3* 

EASE  AT 

5867.400  METERS 

EAST-MESi 

12.7*600 

1 

12.76600 

12.76600 

11.15569 

10.88858 

10.88858 

10.88858 

-2.25100 

-2.25100 

-2.25100 

-2.476*3 

-2.51382 

-2.51382 

-2.51382 

0.00000 

O.OOCOO 

0.00000 

O.OOOuO 

O.OOOCO 

0.00000 

O.OCOOO 

EAST-VEST  RON  2 


12.76600 

12.76600 

12.23275 

10.18858 

10.88858 

10.88858 

10.88858 

2.25100 

-2.25100 

-2.32565 

-2.51182 

-2.51382 

-2.31382 

-2.51382 

.  --JhBtft.. 

f  ASf-VEST  ROM 

_ fi  t  00999  . 

3 

.  . . 

_ fitfifififlfl 

_ fi.QOOOO 

0,00000 

0.00000 

12.76400 

12.76600 

12.76600 

10.88158 

10.88858 

8,84094 

8.27500 

-2.25100 

-2.25100 

-2.25100 

-2.51382 

-2.51382 

-2.00364 

-1.84633 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

EAST-VEST  ROV 

6 

12.76600 

.  12.76600 

U.  76600 

8.97700 

9,40139 

8,17500 

8.27500 

-2.25100 

-2.25100 

-2.25100 

-2.74300 

-2.13400 

-1.84633 

-1.84633 

0.60000 

0.00000 

0.00090 

0.00000 

0.00000 

0.00000 

0.00000 

EAST-VEST  ROM 

5 

12.76600 

12.76600 

8.97700 

8.97700 

8.97700 

8.21150 

8.41865 

-2.25100 

-2.25100 

-2.74500 

-2.74500 

-2.74500 

-1.76504 

-2.03022 

o.oooos 

Q*fiQ090 

O.SCOQO 

0.00000 

0.00000 

0.00000 

0.00000 

EAST-VEST  RCW 

6 

12.76600 

11.76600 

8.97700 

9.97700 

8.97700 

8.43050 

8.45050 

-2.25100 

-2.25100 

-2.74500 

-2.74500 

-2.74500 

-2.07100 

-2.07100 

0.00000 

0.00000 

0.00000 

0. 00000 

0.00000 

0.00000 

0.00000 

LEVEL  35  BASE  AT  6019.800  METERS 

EAST-VEST  ROW  1 


12.76600 

12.76600 

12.76600 

11.15569 

10.86858 

10.88858 

10.88858 

-2.25100 

-2.25100 

-2.25100 

-2.67663 

-2.51382 

-2.51382 

-2.51332 

0.00000 

0.00000 

0.00000 

0.00000 

C. 00000 

0.00000 

Oc 00000 

EAST-VEST  ROM 

2 

12.76600 

12.76600 

12.23275 

10.88858 

'  10.88858 

10.88858 

10.88658 

-2.23100 

-2.25100 

-2.32565 

-2.51382 

-2.51382 

-2.51382 

-2.51382 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

EAST-VEST  ROW 

3 

12.76600 

12.76600 

12.76600 

10.88858 

10.88858 

9.33266 

8.31917 

-2.25100 

-2.25100 

-2.2F100 

-2.51382 

-2.5138? 

-2.28076 

-2.15891 

0.00000 

0.00000 

O.UGuuO 

0.00000 

0.00000 

0.00000 

0.00000 

EAST-VEST  ROM 

4 

12.76600 

12.76600 

12.76600 

8-97700 

9.85131 

6.31917 

8.51917 

-2.23100 

-2.25100 

-2.25100 

-2.7450C 

-2.35845 

-2.15891 

-2.15891 

0.00000 

0.00000 

1  >0000 

0.00000 

0.00000 

0.00000 

0.00000 

EAST-VEST  ROM 

5 

P.97700 

8.68450 

12.76600 

12.76600 

8.97700 

8.97700 

C. 68450 

-2.25100 

-2.25100 

-2.74300 

-2.74500 

-2.74500 

-2.37056 

-2.37056 

0,00000 

O.OOCOO 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

EAST-VEST  ROM 

6 

12.76600 

12.76600 

8.97700 

6.97700 

8.97700 

8.68450 

8.68450 

-i.251C0 

-2.*siqo 

-?»T450fi 

-7.74500 

-2.74500 

-2.37056 

-2.37056 

0.00000 

0.00000 

0.00000 

0.00000 

O.OOUOO 

0. 00000 

0.00000 

ENTERING  LINK  T 

DAVIES  EQUATIONS  ARE  INACCURATE  FOR 

7796.453 

MICRONS  At 

965.115 

NEfEHS 

DAVIES  EQUATIONS  ARE  INACCURATE  FOR  7796.453  KtCRONS  AT  938. ITS  METERS 

ENTERING  LINK  3 

108  2  34  58  0  C  0  0 

58  1  142  0  0  0  0  0 

TRANSFER!  IS  COMPIETEO."  INTERMEOI ATTrESUL T SlffFoS  TAPE  9  " 

ENTERING  LIMA  I 


★  ★#**★**** 


THE  DEPARTMENT  OF  DEFENSE  FALLOUT  PREDICTION  SYSTEM 


OUTPUT  PROCESSOR  MODULE 


PREPARED  BY 

TECHNICAL  OPERATIONS  RESEARCH, INC. 
BURLINGTON,  MASS. 


LISTING  OF  GROUNDED  PARTICLES 


TRANSPORT  IDENTIFICATION 

SHORT  TEST  SET  FOB  THE  OELFIC  MODEL  26  JUN  67  TRANSPORT 


BLOCK  1 


PARTICLES  IN  THIS 

X 

BLOCK  IS  58 

Y 

T 

PS 

999997.8281 

IC00003.6406 

12.6401 

7796.4535 

1001006.6641 

100X99.3747 

616.1543 

436.73.4 

10.3482.5859 

1C011 19. 7656 

936.5776 

436,7314 

1005203.9141 

1001466.0859 

1334.5025 

268.2460 

1008080.5078 

1CC2583, 1094 

1950.5395 

258.2460 

1008155.2969 

1001652.3363 

1936.2210 

256.246C 

1007309.39C6 

IC01794.9 / 66 

1925.8497 

258.2460 

1007390,2266 

1C02393. 8359 

1947.2366 

250.2460 

1008784,5234 

1002744.8047 

1948-0114 

258.2460 

1008904.7969 

K’01550.2503 

1940.3279 

258.24t>0 

1006510.1797 

1C31897.8984 

1921.0882 

258.243D 

1006/21.6406 

1C023J7.2813 

1935.1363 

2  5  8. 24 '.0 

1008068.9531 

1C03301.02  34 

1946.1854 

254.2460 

1008155.2969 

1000932.5859 

1936.2210 

258.2460 

1007309.3906 

1001074.6563 

19. !5. 8491 

258.2460 

1007368.2891 

1003115.92 19 

1939.5635 

258.2460 

1008257.7188 

1003540.5078 

2456.1793 

1*' .6629 

1012879.2734 

1007094.6250 

3523.4095 

171.6829 

1012972.5234 

1006471.9141 

3501.8293 

,71.6329 

1012387.5547 

1005861.1719 

3555.4303 

171.6829 

1012414.8984 

1006632.7185 

3515.9958 

1. 1.632V 

10)3646.1328 

1007405.7891 

3625.2151 

i  " -1  .6829 

1013699.7500 

1C0678T.9453 

3516. 7920 

171,4829 

1011936.9922 

1005310.8628 

3523.23,0 

171.0429 

1011941.9531 

1006041.6719 

-.527.6475 

17), 6829 

1012970.3750 

1007802.9453 

3520.8391 

17l.6e29 

1012999.0625 

1005833.8828 

3506.6046 

1 71 .6329 

#7 


«ASS 
0.1495 
Q.1495 
0.1495 
0.1495 
Q.C125 
V-.JI25 
C  .0 1  <  ’ 
0.01 21 
O.C125 
J.C-25 
0.0 T  ?5 
O.OI25 
0.C125 
0.0125 
O.C125 
0.0125 
0 . 14°5 
0.C125 
0.0125 
0.0125 
C .01 25 
0.0125 
0.0’ 25 
C -01 25 

t.ou ; 

O.LJ25 
O.uJ  25 


1012362.0156 
1012266.6688 
1016O90*5S*t  -  - 

1015002. 6t66 
1016282.7622 
1016270.2969 
1020817.2736 
1021C20.6250 
1020611.0938 
1020636.5859 
1021612.1606 
1021662.3067 
1020283.9219 
1020250.0000 
1020616. 96C9 
1021037.6666 
1020592.1016 
1020250.0000 
1325281.5781 
1026737.3391 
10^033.2188 
1026366.2109 
1026508.6866 
1025886.2500 
1023261.9922 
1023603.3316 
1025757.6219 
1026297.8516 
1023597.6250 
1026677.1933 
999999.1953 


1C03108.77  36 
1607136.6219 
1009817. 9.6Q9 
1009083.7188 
1108858.0938 
1009562.8516 
1012991.3750 
1C12219.8750 
.  J0U66J.2188 
1012703.7622 
1C13306.8596 
1C12511.2578 
1C11681.6606 
1012607.9609 
ld3799t7969 
1C11089.9161 
1010857.5236 
1013517.0567 
1C17660.2813 
1017263.1172 
1C17263.9866 
1017876.6172 
1017296.2891 
1C16860.2736 
1017237.6922 
1017852.2182 
101812?. 6661 
1016755.6563 
1016765.281* 
1018689.6797 
IC00001.6719 


3698.5537 
3516.4966 
8357,2510 — 

6312*6526 
6312.6261 
6306.6656 
6001.0388 
6020.9327 
6 552,80 88 
5992.0383 
6002.8300 
6018.1690 
5906.1553 
6010.2586 

6006.1966 
3997^6793 
5903.6020 
7738.8683 
7726.3308 
7725.9723 
7726.6326 
7762.0187 
7736.7062 
7721.6650 
7732.3263 
7726. 737i 
7738.6600 
7720.7220 
7718.7706 
6.5563 


171.682* 
171.6829 
119.3053 
1 10.3913 

110.3953 

119.3953 

110.3953 

1.19.3953 

119.3953 
119.3*53 
119.3953 
119.3953 
119.3953 
119.3953 
119.3953 _ 
119.3953 
119.3953 
119.3953 

86.0769 

E6.0769 

86.076? 

86.0769 

86.0769 

86.0769 

36.0769 

86.C769 

86.076? 

36.0769 

86.0765 

8^0769 

7796.6535 


0012? 

0.0125 

0.0376 

0.0376 

0.0376 

0.0376 

0.0125 

0.0125 

0.0125 

0.0125 

0.0125 

0.0125 

0.0125 

0.0125 

0.0125 

O.0I25 

0.0125 

0  0125 

0.0125 

0.0125 

0.0125 

0.0125 

0.0125 

0.0125 

0.0125 

0.0125 

0.0125 

O.Ol 25 

0.0125 

0.0125 

0.1695 


%***#***«£ 


the  d  ;  n  n  >  e  in  of  defense  fallout  prediction  system 

oaoo.oo.oo 


QUTaUT  PROCESSOR  MODULE 


paeesRcc 

TECHNICAL  OPERATIONS 
BURLINGTON* 


37 

RESEARCH* INC. 
NASS. 


ooeo  SUMMARY  CF  INPUT  IDENTIFIERS  AND  INITIAL  CONDITIONS  *•»« 

oooo  OUTPUT  PROCESSOR  IDENTIFICATION  •**» 

SHORT  TEST  SET  FOR  THE  OELFIC  MOOEL  26  JUN  67  CPP 


INITIAL  CONDITIONS  (FIREBALL!  IDENTIFICATION  oooo 
SHORT  TEST  SET  FOR  THE  DeLFK  MOOEL  26  JUN  6T  INIT.  CONO. 


•••»  CLOUO  RISE  IDENTIFICATION  *••• 

SHORT  TESt  SET  For  THE  OELFIC  HOOEL  26  JUN  67  CLOUD  RISE 


•.so  PARTICLE  SET  EXPANSION  IOENTIF ICAT ION  eons 
SHORT  TEST  SET  FOR  THE  OELFIC  MODEL  26  JUN  fcl  PSE 


oooo  TRANSPORT  IDENTIFICATION  ooso 
SHORT  TEST  SET  FOR  THL  OELFIC  MODEL  26  JUN  67  TRANSPORT 

oooo  NINO  IDENTIFICATION  so*. 

TEST  SET  WINDFIELO 


oooo  TOPOGRAPHY  IDENTIFICATION  oooo 


oooo  OTHER  INPUTS  ooeo 

oooo  THE  CONTROL  VARIABLE  ARRAY,  IC(J),  WAS  GIVEN  1HE  FOllOHINC  VALUES  •••• 
1  2  3  »  5  6  7  6  9  10  11  12  13  IA  15  0  0  1 


THE  FOLLOWING  LOGICAL  TAPES  ARE  AVAILABLE  FOR  SORTING. 

I  3  A  10  -0  -0  -0  -0  -0  -0  -0  -0  -0  -0  -0  -0  -0  -c 


PRINTER  DESCRIPTION  -  CHARACTERS  PER  INCH 
HORIZONTAL  10 _ VERTICAL _ A _ 

THE  DIFFUSION  CONSTANT  IS 

3**9 


f 


2.OCO0O 


********** 


THE.  DEPARTMENT  OF  DEFENSE  FALLOUT  PREDICTION  SYSTEM 
********** 


PARTICLE  ACTIVITY  MODULE 


PREPARED  BY 

US  ARMY  NUCLEAR  DEFENSE  LABORATORY 
EDGEWOOD  ARSENAL,  MARYLAND 


PARTICLE  ACTIVITY  MODULE  26  JUN  67 


CONTROL  VARIABLE  ARRAYS 
IFTAPE(I) 

T  T  F  F  F  F  F  F  F  F 
NPRNT(I) 

FTTTTTFTTTTTTFT 
TOTAL  YIELD  IS  2.0000E  00  KILOTONS. 

FISSION  YIELD  IS  l.OOOOE  00  KILOTONS. 

TYPE  OF  FISSION  IS  P239HE 
THE  HEIGHT  OF  BURST  IS  10.000  FEET. 

CAPTURE  ~  TO  -  FISSION  RATIO  IS  0.000 
NUMBER  OF  NEUTRONS  EMITTED  PER  FISSION  IS  1.400 
THE  CLOUD  REACHED  THE  SOIL  CONDENSATION  TEMPERATURE  OF  2200.0  AT  3.86  SEC. 
THERE  ARE  10  PARTICLE  CLASSES  WITH  SIGMA  OF  1.3863. 


351 


i NTSRKE03  At  E  QU1PUY  OF  SETUP 


IWUC 

NUCLIC 

DC0N 

1 

51G03301CC04 

6 .9 3 IE  01 

2 

510G34C1CC04 

1.98CE-01 

% 

51C035010C04 

6.931E-02 

4 

51Q03  5010C04 

4. 141E"06 

5 

51003701C004 

1.366E-05 

6 

"'CC4CC00G04 

0.000E-39 

7 

511033010004 

6.931c  01 

a 

511034010004 

3.466E-01 

9 

suGasoicoo* 

9.902F-02 

10 

511036010004 

5.776E-Q3 

n 

511037020004 

4.0UE-Q5 

12 

511040130004 

1.303E  00 

13 

111040000004 

0. OOOt-39 

14 

512033010004 

6.931E  01 

15 

512034010004 

4.621E-01 

16 

512035010004 

1,733E-01 

17 

512036010004 

2.567E-03 

16 

512037010004 

J .481E-03 

19 

512040000004 

0.000E-39 

20 

513033010004 

6.931E  01 

21 

513034010004 

6.931E  01 

22 

51303501CC04 

2.773E-01 

23 

513036010C04 

7.296E-02 

24 

513037020004 

5.776E-03 

25 

513042130004 

1.415E-02 

26 

51304C01C004 

1.409E-04 

27 

51304100C004 

0.000E-39 

26 

514034010004 

6.931E  01 

29 

5140350100C4 

3.466E-G1 

30 

514036010004 

8.664E-02 

31 

514037010004 

2.310E-02 

32 

514040000004 

0.000E-39 

33 

514041010004 

7.266E-06 

34 

514042000004 

0.000E-39 

35 

515034010004 

6.931E  01 

24 _ 51112 mis OQ 4. _  . 

4.§21E»0L 

37 

315036010004 

1.980E-01 

36 

515037021002 

4.621E-02 

39 

515040131002 

1.284E-02 

40 

*15040010004 

1.704E-05 

41 

315041010004 

4.975E-06 

42 

515042000004 

O.OOOE-39 

43 

516034010004 

6.931E  01 

M 

£16035010004 

6.931E  01 

45 

516036010004 

2.773E-01 

44 _ 

316037010004 

8.664E-02 

47 

516040021002 

9.169E-05 

_ 

Hr/  1  ▼  fil'iUvkBM 

wifiMja im 

49 

516041010004 

1.269E-04 

50 

_ 516042000004 

O.OOOE-39 

si 

msnmmam 

6.931S  01 

JUI _ 3iloi$2L  3i__ 

4,62lE-8i 

§3 

317037010004 

ioMOE-Oi 

14 _ 3U34M100Q4 _ 2.?73E~0< 


V 


58 

51704300C704 

O.OOCc' 39 

59 

52GC35010C04 

6.9316  01 

60 

420C36C1CC04 

4.621E-01 

61 

515G37G1CCP4 

2.3106-01 

62 

5c  004CG?.  0004 

2.7736-02 

63 

5200^  ^010^04 

1.925002 

66 

520042»;0COO4 

Q. 0096-39 

65 

521?? 30,CC04 

6  •  9  3 1  fc,  01 

66 

521036P1COO4 

6.931E  -»1 

67 

521G3?01Co<J4 

3.4665-Gl 

68 

521Q4C0UCO4 

9t902£-02 

69 

52 104 1C  21002 

2.1GQE-G2 

70 

52 1042 17QC04 

&.027E-04 

71 

521042C1C004 

6.4185-04 

72 

52I043G0CC04 

C.  000': -39 

73 

522G3601C004 

6.931E  01 

76 

52203  7Q1CCG4 

4.6216-01 

75 

52  2G4C01GG04 

1.386F-01 

76 

52204101 C0Q4 

i.e5ie-02 

77 

522Q4200C004 

0.0006-39 

78 

52204301C004 

5.3636-06 

79 

52204400'o004 

0.0006-39 

80 

S23C3601C004 

6.9316  01 

81 

523037010004 

6.931E  01 

82 

023040010004 

3. 466001 

83 

523Q41C?1C32 

9.9025-02 

84 

523042131002 

1. 0056-02 

85 

523042010004 

4.6216-04 

86 

523043020004 

8.023E-05 

87 

5230441 3C004 

1.0136-04 

88 

523044000004 

0.0006-39 

89 

524Q2701C304 

6.9315  01 

90 

52404C01CC04 

4.6216-01 

91 

5240410ICC04 

1*7336-01 

92 

524042010004 

3. 8516-03 

93 

524043010004 

3.6106-04 

04 

5240440  3GQ04 

OoOCOE-39 

95 

52503701C004 

6.931E  01 

96 

52504C01C004 

6.931E-01 

97 

525041010004 

1.6126  00 

98 

525042010004 

1 .7776-02 

99 

52504302C004 

3.8516-03 

100 

525044131002 

4. 376E-05 

1C1 

525044010004 

2,0726-09 

102 

525045000004 

0.000E-39 

103 

5260400 1CC04 

6.9316  01 

104 

52604101C004 

3.4666-01 

1C5 

52604201C004 

4.332E-02 

1C6 

526043010004 

1.1535-02 

107 

526044000C04 

0.0005-39 

108 

526045130004 

1.1U6-02 

109 

526045010004 

4.3135-07 

110 

526046030004 

0. 0006-39 

111 

52704CQIC004 

6.931E  01 

112 

527041010004 

4,6216-01 

113 

527042010004 

4.332E-02 

1 14 

52704306100 2 

1.2726-02 

115 

527044010004 

1.4816-04 

116 

527045010004 

5.1086-19 

117 

S2  704600C. 

0. 0006-39 

1SL 


131 

5.56 

1  fj  •' 

>60 

161 

Ml. 

143 

§4 

199 

x  a  v 

ill.. 
1  ft® 

’  ?@ 


?,  jpt 

Hi' 

i  %<$! 


533043019004 
33  5044010004 
335043010004 
53SP46P10001 
333047010004 

nnwmMi. 


31305U30004 
3J3JH10OQ9O^ 
316043010004 
3340^4010004 
534045010004 

_ gisoiiiaiqafli- 


33Q0400100C4 

6.931E  01 

\  \  '■) 

530041010004 

6.931E  01 

\  r\  -> « 

530942O1OOO4 

?>773E-Q1 

'  ’ 

530043061002 

4.Z52E-02 

5^0044010004 

6.876E-05 

•  «•*  -  > 

■i  ’ 

530045010004 

6.418E-04 

530046000004 

O.OOOE-39 

1  *?  £\ 

531041010004 

6  •  93  IE  01 

iZt 

-  53  J042Q 19004  ... 

_ 1-AAA^zQl. 

t  2  i 

531043061002 

1 • 573E-0A 

1 2  f 

531044010004 

3 .610F-G3 

l  ?  9 

531045010004 

7  .502E— 04 

i,  ;%  0 

531046010004 

JL.5  09E-07 

1 3  l 

531047130004 

4.332E-02 

I1  1  ? 

531047000004 

0  .  003E— 39 

i  O 

...  „>  .j1 

532041010004 

6,931E  91 

!,  .‘J 

5320^2010004 

6.931E  01 

1 3  5 

53204 J06 1002 

4.332E-01 

136 

532044010004 

2.100E-02 

1 3  ? 

532045010004 

4.279E-03 

r.  ?>  r: 

332Q4691 0C04 

7„844E-10 

39 

532047019004 

2 . 954E-Q6 

*  A  0 

5320500000C4 

O.OOOE-39 

141 

533042010004 

6.931E  01 

142 

533043010004 

3.466E-01 

14? 

533044010004 

6.931E-02 

5. 44 

5330450) 0004 

9.627E-0? 

1 4  5 

533046021002 

1 . 985E— 05 

146 

533047130004 

2.310E-04 

i  4 1' 

533047010004 

1.383E-07 

14C 

533050000004 

O.OOOE-39 

A  49 

534042010004 

6.931E  01 

150 

534Q430100Q4  . 

4#62lE-Oi 

■  5  i 

334044010004 

2.310E-01 

152 

534045010004 

1.308F-01 

i  53 

534046010004 

7.131E-05 

?„54 

534047010004 

5.34QE-G5 

135 

334050000004 

O.OOOE-39 

6.931E  01 
3.466E-CU 
i.23®r:-oi 
1.444E-03 
1.923E-0S 

MHW1 


0004 
4 


5.  936E-09 
0.000E-2? 
6.93XE  01 

2. 3106-Pl 

0*000«-f9 


4 _ 4 

\  r,  Cvri 

1 

1  % 

n .  ,11 

ITT* 

7i 

a?  m 

1 

/->e™ 


178 

179 

180 
181 
182 
193 

184 

185 

186 
187 
183 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 
2C3 
2C4 
2C5 
206 
2C7 
208 

209 

210 
211 
212 
2U 

214 

215 

216 
21.7 
218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 


52705101C0C4 

53705200CC04 

54004301CCC4 

5400440 !  CP04 

54004501CC04 

54004601  COO 

540047010004 

54005000CCG4 

5400510UCC4 

54005200C004 

54104-i0’ 0004 

541045010004 

54 104601 C004 

541047010004 

54105C021CQ2 

541051130004 

541051010004 

341052Q0CC04 

542044010004 

542045010004 

'542046010C04 

542047010C04 

542G5CC J CC04 

542051110004 

542051010004 

5420520GCC04 

54304501CC04 

54304601C004 

54304701CC04 

543050010004 

54305101C004 

543052021002 

543053130004 

543053010004 

54305400C004 

54404601C004 

54404701^004 

544050010004 

54405101C004 

544052000004 

544053010C04 

544054000004 

545046010004 

545047010004 

545050010004 

545051010004 

545052C1CC04 

545053010004 

545054000004 

546046010004 

546047010004 

54605C01CC04 

546051010004 

546052021002 

546053110004 

546053010004 

546054000004 

547047010004 

547050010004 

5*  7051010004 


2.292Ev'7 

C.OOGt-39 

6.931E  01 

6.931c  Oi 

6.931E-01 

2.773E-01 

5.023E-03 

0.000E-39 

S.371E-06 

0.000E-39 

6.931E  Cl 

6.931F  01 

4.621E-01 

1.386E-01 

1.133E-05 

1.155E-02 

1.583E-04 

0.000E-39 

6.931E  01 

6.931E  01 

6.931E-01 

2.773E-01 

l.l55c-02 

2.265E-04 

5.77  6E-03 

C.OOOfc-39 

6.931c  01 

6.931E-01 

4.621E-01 

4.332E-01 

5.023fc-C3 

2. 895E-06 

3.209E-05 

1.046E-I3 

0. 000E-39 

6.931E  Oi 

4.621E-01 

1.980E-01 

3.851E-03 

O.OOOE-39 

4.3326-02 

C.OOOE-39 

6.931E  01 

6.931E-01 
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69 

109 

45 

1 

291 

-6.3706-07 

70 

109 

46 

1 

293 

6.9106-C? 

71 

109 

46 

0  _ 

294 

1.690E-0.7 

72 

109 

47 

1 

295 

8.0506-08 

73 

111 

46 

1 

3Q8 

-3.4006-07 

74 

111 

46 

0 

309 

8.9006-07 

75 

111 

47 

1 

310 

3.770E-07 

76 

111 

47 

0 

311 

1.3106-07 

77 

112 

46 

0 

317 

-1.2506-07 

78 

112 

47 

0 

318 

3.2406-06 

79 

115 

48 

1 

341 

-1.7706-07 

80 

115 

48 

0 

342 

1. 0406-06 

81 

115 

49 

1 

343 

1.0206-06 

82 

116 

47 

0 

350 

-6.430E-06 

83 

11? 

48 

1 

357 

-7.0806-06 

84 

117 

49 

1 

359 

5.250E-07 

85 

117 

49 

0 

360 

3.8506-06 

86 

117 

50 

1 

361 

1.2206-06 

87 

118 

49 

0 

369 

-1.1606-06 

88 

119 

49 

1 

377 

-2.6906-07 

89 

U9 

49 

0 

378 

4.0706-06 

90 

119 

50 

1 

379 

1.470E-07 

91 

120 

48 

0 

384 

-2.710E-06 

92 

121 

49 

0 

392 

-4.690E-06 

93 

122 

51 

1 

401 

-4.8406-07 

94 

122 

51 

0 

402 

2.0206-06 

95 

123 

49 

0 

408 

-5,3506-06 

96 

123 

50 

1 

409 

1.0506-07 

97 

123 

50 

0 

410 

8.320E-07 

98 

124 

51 

0 

419 

-8.9606-06 

99 

125 

50 

1 

424 

— 1.960E-06 

100 

125 

50 

0 

425 

3.9806-07 

101 

125 

51 

0 

426 

2.54006 

102 

1.5 

52 

1 

427 

3.270E-07 

103 

114 

5). 

0 

434 

-9.3906-06 

104 

127 

50 

0 

440 

-2.7106-06 

105 

J11L 

51 

JL 

441 

2.630E-06 

106 

127 

52 

1 

442 

5. 1406-07 

107 

.III.  . 

5?  ... 

0 

4*? 

2.3406-08 

108 

128 

50 

0 

447 

-2.3906-06 

109 

128 

51 

1 

448 

9.2806-06 

110 

128 

53 

0 

451 

4.9006-07 

111 

129 

51 

0 

456 

-5.4006-06 

112 

129 

52 

1 

457 

1.8306-07 

111 

m  „ 

52 

0 

458 

1.2506-06 

114 

129 

54 

1 

460 

4.30GL-5T 

US 

1)0 

S3 

0 

468 

-7.8406-  96 

116 

131 

51 

0 

473 

-3.1806-06 

392 


117 

131 

52 

1 

474 

9.30CE-06 

lie 

131 

52 

0 

475 

2.13CE-06 

119 

131 

53 

0 

476 

2.210E-06 

120 

131 

54 

1 

477 

1.98CE-07 

121 

132 

52 

0 

483 

-1.440E-O6 

122 

132 

53 

0 

434 

i.l20c-05 

123 

133 

52 

1 

489 

-1.12GE-05 

124 

133 

5? 

0 

490 

7.840E-06 

125 

133 

5? 

0 

491 

3.140E-06 

126 

133 

54 

1 

492 

3.84CE-0? 

127 

133 

54 

0 

493 

3.Q60E-07 

128 

134 

52 

0 

498 

-6.84CE-06 

129 

134 

53 

3 

499 

1.22CE-05 

130 

134 

55 

1 

501 

7.54QE-07 

131 

134 

55 

0 

502 

8.13CE-06 

132 

135 

53 

0 

507 

-i.560E-05 

133 

135 

54 

1 

508 

2.390E-C6 

134 

135 

54 

0 

509 

1.49CE-06 

135 

136 

53 

0 

514 

-1.210E-C5 

136 

136 

55 

0 

516 

1.170E-05 

137 

137 

56 

i 

523 

-3.180E-C6 

138 

138 

54 

0 

528 

-4.410E-06 

139 

138 

55 

0 

529 

9.790E-G6 

140 

139 

54 

0 

535 

-1.460E-06 

141 

139 

55 

0 

536 

1.10CE-06 

142 

139 

56 

0 

537 

2.550E-07 

143 

1*40 

55 

0 

542 

-3.230E-06 

144 

140 

56 

0 

543 

1.160E-C6 

145 

140 

57 

0 

544 

1.140E-05 

146 

141 

56 

0 

549 

-3.650E-G6 

147 

141 

57 

0 

550 

1.270E-07 

148 

141 

58 

0 

551 

4.670E-07 

1*9 

142 

56 

0 

556 

-4.950E-06 

150 

142 

57 

0 

557 

6.010E-06 

151 

143 

57 

0 

563 

-5.7406-06 

152 

143 

58 

0 

564 

3.500E-C6 

153 

144 

58 

0 

571 

-1.230E-C7 

154 

144 

59 

0 

572 

1.400E-07 

155 

145 

58 

0 

578 

-3.650E-06 

156 

145 

59 

0 

579 

4.09CE-06 

157 

146 

58 

0 

585 

-I.500E-06 

158 

146 

59 

0 

586 

6.530E-06 

159 

147 

60 

0 

593 

-9.600E— 07 

160 

148 

61 

0 

602 

-5.280E-06 

161 

149 

60 

0 

608 

-1.220E-C6 

162 

149 

61 

0 

609 

2.800E-C3 

163 

150 

61 

0 

616 

-8.080E-06 

164 

151 

60 

0 

621 

-5.600E-06 

165 

151 

61 

0 

622 

1.2906-06 

166 

152 

61 

0 

.  629 

-3.400E-06 

167 

152 

63 

1 

631 

1.920E-06 

168 

152 

63 

0 

632 

5.800E-06 

169 

153 

61 

0 

638 

-8.040E-07 

170 

153 

62 

0 

639 

1 .860E-07 

171 

154 

63 

0 

646 

-6.010E-06 

172 

155 

62 

0 

652 

-7.2606—07 

173 

155 

63 

0 

653 

2.890 E-07 

174 

156 

63 

6 

659 

-3.0206-06 

175 

157 

63 

0 

665 

-3.380E— 06 

176 

158 

62 

0 

670 

-2.7106'“06 
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178 

159 

64 

0 

677 

-J.95CE-C7 

179 

160 

65 

0 

684 

-2.C2CE-06 

180 

161 

64 

0 

690 

-2.03CE-06 

OUTPUT  OF  INDCC1 


NUMBER  OF 

ELEMENTS 

«  18 

- 

NUMBER  OF 

NEUTRONS 

EMITTED  kEK  FISSION 

■  1.40 

INDEX 

ISC 

FAC 

XLAM 

KEV 

FOG 

RNY 

1 

4 

.  1.002' -02 

7.419E-Q9 

1 

0.00000 

O.OOOE-39 

1.469E-01 

7.461E-35 

1 

0.00000 

C.OOOE-39 

3.250E-03 

6.930E-31 

1 

0.00000 

O.OOCE-39 

2.155E-04 

1.744E-07 

3 

0.43000 

0.0300C 

0.57000 

6. 100E-O6 
5.770E-06 
“.380E-06 

2 

7 

0.0C0E-39 

3.487E-08 

1 

C.OOOOC 

0.000E-39 

0.0C0E-39 

E.93CE-31 

1 

0.00000 

0.000E-39 

O.OOOE-39 

£ .930E-31 

1 

0.00000 

0.000E-39 

O.OOOE-39 

£ .930E-31 

1 

0.00000 

0.000E-39 

0.0C0E-39 

6.93GE-31 

1 

0.00000 

O.OOOE-39 

0.0C0E-39 

1.069E-05 

1 

0.00000 

O.OOOE-39 

O.OOOE-39 

3.208E-03 

1 

0.00000 

C.OOOE-39 

3 

3 

4.829E-32 

6.930E-31 

1 

0.00000 

O.OOOE-39 

8.615E-03 

6.930E-31 

1 

C. 00000 

O.OOOE-39 

2.225E-03 

7.347E-05 

1 

0.00700 

6.040E-C6 

4 

3 

8.997E-02 

1.689E-17 

1 

0.1100C 

6.7C0E-06 

6.1S0E-04 

6.930E-31 

1 

0.00000 

O.OOOE-39 

3.324E-03 

1.552E-05 

1 

0.18000 

6.950E-C6 

5 

i 

2.714E-03 

5.C22E-03 

1 

f 

1.00000 

,^-.750.E-C6 

6 

i 

7.495E-03 

I .283E-C5 

2 

i  o«r>oo 
1.00000 

1 . Q70E-C5 
6.400E-06 

7 

5 

2.399E-Q4 

4.930E-31 

1 

0.00000 

0.000E-39 

7.541E-04 

6.930E-31 

1 

0.00000 

O.OOOE-39 
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3.404E-42 

4«t30g-»l 

1  _ 

_ 0.00000  __ 

1 

0.00000 

O.OOOi— 34 

4.534E-Q3 

1.441E-Q1 

3 

.  0J41M _ 

_ -4.4HMM4 

0.01300 

Q.  94300 _ 

3.2301-04 
_  -  1.750E-M 

8 

2 

5.7746-01 

4.93QE**;U 

1 

0.00000 

9.C00E-39 

1.498E-07 

1.771E-09 

i 

0.00000 

O.OOOE-39 

,JL_ 

4 

1. 1478-02 

4.4808—31 

1  . . 

0.00000 

O.OOOE-39 

_ 1.5401-02 _ 

1 

o.eoooo 

_ Q.0OOe~39 

P.674E-04 

S.277E-08 

1 

0.00000 

_ O.OOOE-3?  . 

_ I.I91Et04  _ 

1.334E-03 _ 

J _ 

_  J0. 0040V 

1.574E-05 

0.01000 

0.89000 

1.410E-05 

1.148E-05 

10 

2 

1.970E-02 

7.130E— 14 

l 

0.00000 

O.OOOE-39 

8.120E—05 

3.080E— 04 

:  2  *" 

0.47000 

0.31000 

8.920E-04' " 
7.140E-04 

11 

7 

O.OOOE-39 

2.005E— 08 

1 

0.00000 

O.OOOE-39 

0.0C0E-39 

4 . 930E-31 

1 

0.00000 

O.OOOE-39  ~ 

O.OOOE-39 

6.930E-31 

1 

0.00000 

O.OOOE-39 

O.OOOE-39 

8.930E-31 

1 

0.00000 

O.OOOE-39 

O.OOOE-39 

6.93QE— 31 

~1 

o.ooodo 

O.OOOE-39 

O.OOOE-39 

4. 094 E- 04 

1 

O.OOOE-39 

O.OOOE-39 

4.813E-04 

1 

0.00000 

O.OOOE-39 

12 

1 

_ 8.026E-03  __ 

7.441E-05 

5 _ 

0.00500 

1.134E-03 

0.01800 

0.19500 

1.040E-05 

8.8401-04 

0728200  ~T.850E-04 

0.97730 4.5501-04 


13 

3 

1.347E-03 

1.2S3E-34 

l 

0.00000 

0.0001-39 

1.540E-03 

*  6.4S0K-B1 

1  ” 

O.OOOOO 

O.OOOE-S9 

1. 9116^04 

r.2l4?— 03 

“  T 

~5.1SSM 

0.70000 

5.0WI-04 

4.330E-06 

r* 


% 


iA 

2 

0.0C0E-39 

t .93CE-31 

1 

o.ooooc 

C.OGOE-29 

C.OCCE-39 

2.310E  01 

2 

0.0260C 

C. 01300 

1.513E-C5 

1.200E-05 

15 

2 

Q.0C0E-39 

f .930E-31 

1 

C. 00000 

0. JOOE-39 

C.OCQE-39 

3.C7*E-03 

1 

1.00000 

6.6<i9E-C6 

If 

4 

1.869E-H 

2.085E-O7 

1 

C.0900C 

1.750E-C6 

1.7C9E-04 

6.93CE-31 

1 

o.ooooc 

O.COOE-39 

4.384E-Q4 

6.93bE  <31 

1 

c.ocooc 

C.009E-39 

2.3C6E-06 

3.208E-0: 

1 

c.ooooc 

C.C jOE-39 

j.7 

1 

4.8C1E-04 

S.609E-07 

1 

C. 00000 

C.COOE-29 

18 

1 

4.539E-04 

< .93CE-31 

1 

-c.eocoo 

-0 . OOOE-39 

OUTPUT  OF  INDCC2 

INOUCEO  ACTIVITY  IN  THE  TRANSPORTED  SOIL  CONTRIBUTES  1.6528E  07  TO  EACH  PARTICLE  SIZE. 
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OUTPUT  OF  BATMAN 


NUCLIO 
510033010004 
11003 40100C4 
11003 50100C4 
1100360100C4 
11C03 7010004 
11004 0000004 
5110330100C4 
11103 40100C4 
111035010004 
11103 60100C4 
111037010004 
1110401100G4 
111040000004 
512033010004 
11203 40100C4 
112035010004 
112036010004 
112037010004 
112040000004 
513033010004 
11303 40100C4 
113035010004 
113036010004 
113037010004 
113040110004 
1130400100C4 
113041000004 
514034010004 
114035010004 
114036010004 
114037010004 
114040000004 
514041010004 
114042000004 
515034010004 
115035010004 
115036010004 
11503 70120C2 
115040112002 
115040010004 
115041010004 
115042000004 
516034010004 
116035010004 
116036010004 
11603 7O1QQ04 
116040012002 
116041110004 
116041010004 
116042000004 
51 703 50 10004 
117036010004 
11703 7010004 
117O4OO15Q04  ' 
117041010004 
117042110004 
117042010004 


A BUNCO 
0.00006-39 
0.0000E-39 
0.00006-39 
0,00006-39 
0.0000E-39 
0. 00006-39 
0.000CE-39 
0. 00006-39 
O.OOOCE-39 
0.00006-39 
0.00006-39 
O.OOOOE-39 
O.OOOCE-39 
O.OOOCE-39 
O.OOOCE-39 
0.00006-39 
O.OOOCE-39 
O.OOOCE-39 
O.OOOCE-39 
O.OOOOE-39 
O.OOOCE-39 
O.OOOCE-39 
O.OOOCE-39 
O.OOCcE-39 
O.OOOCE-39 
O.OOOCE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOOCE-39 
O.OOOCE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOOCE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOOCE-39 
O.OOOCE-39 
O.OOOOE-39 
O.OOOOE-39 

Q.QC0OE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOCE-39 

O.OOOCE-39 

O.OOOOE-39 

O.QQOQE-39 

O.OOOOE-39  ' 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

0.00006-39 

O.OOOOE-39 

O.OOOOE-39 

Q.000CE-39 

O.OOOOE-39 


:9»j 


11704 30000C4 

O.OCOOE-39 

520035010004 

O.OOOCE-39 

120036010044 

1.0416E-01 

12003 70 100C4 

1.0541E  00 

120040010004 

5.5232E  00 

120041010004 

3.5188E  00 

120042000004 

2.4971E-01 

5210350100C4 

O.OOOOE-39 

121036010004 

O.OOOOE-39 

121037010004 

3.3851E-01 

121040010004 

4.7978E  00 

1210410120C2 

8.1857E  00 

121042110004 

1.0319E  00 

121042010004 

1.5654E  00 

121043000044 

3.1509E-03 

522036010004 

O.OOOOC-39 

122037010004 

9.2231E-02 

122040010004 

3.4370E  00 

122041010004 

1.1289E  01 

122042000004 

1.6407E  00 

522043010004 

5.4899E-01 

122044000004  ' 

1.1370E-05 

523036010004 

C.000CE-39 

123037010004 

O.OOOOE-39 

123040010004 

9.1843E-01 

123041012002 

1.1064E  01 

123042112002 

6.4484E  00 

1230420100C4 

1.0459E  01 

123043010004 

3.0394E  00 

123044110004 

9.0626E-04 

123044000004 

1.1474E-06 

524037010004 

O.OOOOE-39 

124040010004 

2j.8224E-02 

124041010004 

6-547CE  00 

124042010004 

2.7226E  01 

124043010004 

9.7931E  00 

124044000004 

1.3393E-02 

525037010004 

O.OOOOE-39 

.  1250 4Q01Q.QS4. . 

8.1941E-04 

125041010004 

1.7703E-02 

125042010004 

3.41616  01 

125043010004 

2.4976E  01 

125044112002 

3.4205E  00 

125044010004 

3. 0648 E  00 

Pill  1 1 l.,l  11,1  M 

■  w  iiir  i 

526040010004 

O.OOOOE-39 

126041010004 

1.5567E  00 

126042010004 

3.Q272E  01 

1.9585E  00 

mm '  I'lyiil'M'LwHI 

WP  WIT 11  flL'JI 

Mil  I  I  MB 

1.3536E-01 

B.  :  ifca? 

2.27246-07 

5am®oi«©#4  e.cooo  k-m 

_  IflSilSUtSft* _ JiifW-oi 

127042010904  /.3770c  01 


6*17416  01 
U7044019004  S.9174E  01 

m94MlfifiSL4_ _ 4.7713E00 

ISTOMOMteo  9.53676-07 


3W 


:  3QC4 0010004 
3  C  "'>1010004 

~  r>c^\zainoR*. 

"!0':6206l0<'i?. 

1 30044010004 
L3Q04  50X001)4 
?.3Q0460Q0QC4 
113X041010004 


131043091042 

x  si  0449x0.094 
!l  3 104  SO  10 00 4 
X31O%002Q0{|4 
331047X10004 


[|H 


*1*3! 


13204307X042 
^,32044010004 
X 3204 501000 4 
I32Q4&Q100S4 
1320470X0004 
"32030000004 
3330420X0004 
4330430X0004 
1330440X0004 
1330430X00.04 
133346012002 
JL33947UQCU4 
.133047010004 
13';..  "'  ^0900004 
'3340420X0004 

nmiMima. 

1340440X000 4 
1340450XQ004 
134044010004 
13404' 7019004 
1 3493  QO 000114 
3330*20X9994. 
X 3304 30X0004 
X359440X0004 
1350450X0004 
1339440190(14 
133047010094 
Li*  25/  ‘ 


0.Q00CE-39 
O.OOOOE-39 
3^7j6Q1£_0£L 
6.7062E  01 
8.9854E  .01  _ 
1.6778E  01 
4.16Q9E-02 
O.OCOOE-39 


r>»  r.M»<Tn 


3.3132C  01 

1.2502E  02 
4.4432E  01 
2*.6664£  J}Q 
O.OOOOE-39 


O.OOOOE-39 


•I»TuT- 


7.9945E  00 

.1*3.4880  02 _ 

9.2644E  01 
JLi025.4E_.QJL..  _ 

4.6913E— 08 
8  *  94Plf-04  . 
O.OOOOE-39 
5.9042E  09 _ 
9.75S3K  01 
1*571  if.  92. 
4.6333E  01 
.  3.0914E-01  _. 
3 .000 IE— 01 
1*?048E— OS  _ 
O.OOOOE-39 

1.9749E  .99. _ 

3.6137E  01 
1.4042E  02. 
X.7X54E  02 
1.1234E  ,Q1„ 
2.3264E-03 


O.OOOOE-39 
L.33T9I91 
1.3834E  02 
2*3952f_02L 
3.49SIE  01 


137031010004 

137052000004 

540043010004 

140044010004 

140045010004 

140046010004 

140047010004 


540Q5 IOJLOO04 _ 

140052000004 

541044010004 


141045010004 

141046010004 

141047010004 

l4l0500l2Qft2„ 

141051110004 

141051010004 


141052000004 

542044010004 

142045010004 

142O46Q10QM  . 

142047010004 

142050020004 

542051120004 

142051010004 

142052000004 

54304 5Q1 0004  . 

143046010004 

143047010004 

143050010004 

143051010004 

143052012002 

143053U0004.., 

143053010004 

143054000004 

544046010004 

144047010004 

144050010004 
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40 

9.6929E-01 

41 

...  i.itmrfli 

42 

9.9993E-Q1 

43 

_  9.^42  ii-ja  _ 

44 

9.9032E-01 

43 

9.9308E-01 

46 

8.6838E-0I 

47 

_ 7.0T27E-Q1 

46 

4.9183E-01 

49 

ls6471E-0i 

50 

1.453QE-01 

51 

6.4522E-C2 

52 

3.1908E-01 

8.83281-0; 

54 

5.3550F  01 

5$ 

5.46541 -01 

56 

4,3656  -Ot 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 
87 
83 

89 

90 

ENTERING  LINK 


4.5341E-01 

3.2767E-01 

3.7912E-01 

1.7367E-01 

7.7097E-02 

2.8783E-02 

O.OOOOE-39 

8.5047E-09 

7.0363E-07 

1* 90026-0 2 

6.1517E-04 

2.1147E-01 

4.0224E-01 

6.0942E-01 

8.1886E-01 

9.67206-01 

9.9153E-01 

9.9958E'01 

l.OOOOE  00 

l.OOOOE  00 

l.CQOGE  00 

l.OOOOE  00 

l.OOOOE  00 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOCE-39 

0.000CE-39 

0.00006-39 

O.OOOOE-39 


•••*  OUTPUT  PROCESSOR  TASK  1  •••• 


GRID  LIMITS  ANC  INTERVALS 

1MH  1HAX . . -ffllK - mi - 

9VS000.  1050000.  95*000.  1015000. 


.CILIA  *- 
1500.0 


MIT  A  Y 
1500.0 


THE  CONTROL  VAAIAR4.6  ARRAY,  4C5 J) »  HAS  BEEN  GIVEN  TM2  FOLLOWING  iMUil* 
12  3  4  5  6  7  *  9  10  11  12  13  14  0  C  IT  0 


GROUND  ROU&HMCU  PACJiX .  0.300 


OUTPUT  OF  BATMAN 


NUCLJD 

510033010004 
110034010004 
110035010004 
110036010004 
110037010004 
110040000004 
511033010004 
111034010004 
111035010004 
111036010004 
111037010004 
111040110004 
111040000004' 
512033010004 
112034010004 
112035010004 
112036010004 
112037010004 
1120400000C4 
513033010004 
113034010004 
113035010004 
113036010004 
113037010004 
113040110004 
113040010004 
113041000004 
514034010004 
114035010004 
114036010004 
114037010004 
U404 0000004 
514041010CC4 
114042000004 
515034010004 
115035010004. 
115036010004 
115037012002 
115040112002 
115040010004 
115041010004 
.11504^000854. 
516034010004 
116035010004 
116036010004 


ABUNCQ 
O.OOOOE-39 
0. 00006-39 
0.000CE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOQflE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
OsOOOOE-39 
O.ddOCE-39 
0.60006—39 
0.000CE-39 
OeOOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
0.00006-39 
0. 00006-39 
O.OOOOE-39 
0.00006-39 
0.00006-39 
O.OOOOE-39 
o.odoce-39 
0.00006-39 
O.OOOOE-39 
0.00002-39 
0.00006-39 
O.OOOCE-39 
0.00006-39 
0.00006-39 
0.00006-39 
-  _JJ.aQfla.E-39 
O.OOOOE-39 
0.00006-39 
0.00006-39 
0.0000 E-3? 
O.dOOdE-39 
__  _JLtflflflfl.fc.iSL, 

0.00006-39 
0.0000E-39 
0. 00006-39 


116Q370100 04_ 

116040012002 

U6041UMM 

116041010004 

116042000004 


10004 
100Q4 
10004 
10004 
117041010004 
10054 
10004 


0.00006-39 

0.0000E-39 

_ fltflgflgfcag 

0.0009E-39 
00006-39 


0.00006-39 

0.00006-39 

0.00006-39 

_ fl-iflfl flflg?n 

0.00006-39 

0*00006-39 

d.dodcg-39 


117043000004^ 

526035010004 

120016010004 

120037010004 

1200400100C4 

120041010004 

120042000004 

521035010004 

121036010004 

121037010004 

121040010004 

121041012002 

121042110004 

121042010004 

121043000004 

522036010004 

12203 70100Q4 

122040010004 

122041010004 

122042000004 

522043010004 

122044000004 

523036010004 

123037010004 

123040010004 

123041012002 

123042112002 

123042010004 

123043010004 

123044110094 

123044000004 

524037010004 

124040010004 

124041010004 

124042010004 

124043010004 

124044000004 

525037010004 

125040010004 

125041010004 

125042010004 

125043010004 

123044112002 

125044010004 

125045000004.  . 

526040010004 

426041010004- 

126042016064 

ummtmiL. 

126044000004 

.  nmvAQM±.„- 

12604 S0100C4 

327046010004 

#17041010004 

127041010004 

127044010064 

127049040004 


o.oooce-39 

C.0000E-39 

O.0QQflt~J9 

O.OOOCE-39 

0*00006-39 

4*21236-31 

0*0000E-39 

O.OOOCE-39 

JJ.0000E.-J9 _ 

0*00006-39 
0*00006-39 
4.8548E-34 
1.7985E-04 
1.1347E-03 
0.0000E-39 
0.0000 E-39 
Q.flQflfl&=39  _ 
0.0000 E-39 
0*00006-39 
O.OOOCE-39 
2.88816-06 
0*00006-39 
O.OOOCE-39 
0.0000 E-39 
0.00006-39 
0.00006-39 
2.53436-17 
1.6167E-03 
1.8181E-03 
*,97266-04 
0.0G0QE-39 
O.OOOOE— 39 
0.0000 E-39 
0.0000E-39 
1.2655E-07 
4.6428E-03 
O.OOOOE-39 
O.OOOOE-39 
0*00006-39 
0.00006-39 
1*06223-28 
2.5583E-07 
2.3689E-03 
9.681SE— 09 

fl*0MflS-3S__ 

O.OOOOE-39 
.5^00006- 3  9„ 
O.OOOOE— 39 

jamgrl? _ 

0.00006-39 


AtiaaHL 
1.1206E— 07 

0.06006-39 
0*00006-39 
0*00006-39 
i  .66906^0 
1 .11 786-02 
5.60046-14 
O.OOOOE- 19 


530040010004 

0.00006-39 

1300410100C4 

0.00006-39 

1300420100C4 

0.00006-39 

130043061042 

6. 00006-39 

130044010004 

8.22026-03 

130045010004 

9.0978E-03 

130046000004 

0.00006-39 

531041010004 

O.O0OGE-39 

131042010004 

0.00006-39 

131043051042 

0. 00006-39 

131044010004 

1.3319E-06 

131045010004 

1.24376-02 

131046020004 

3.0198E-05 

531047110004 

0.00006-39 

131047000004 

0.00006-39 

532041010004 

0.00006-39 

132042'"' 10004 

0.00006-39 

132043V  71 042 

0 .0000.6-39 

132044010004 

4.68026-33 

132045010004 

2.40626-07 

13204 60100C4 

1.9656E-07 

132047010004 

1.96246-09 

132050000004 

0.000CE-39 

533042010004 

0.00006-39 

133043010004 

0.00006-39 

133044010004 

O.OOOOE-39 

133045010004 

2,4681E-15 

.133046012002 

5.6991E-03 

133047110004 

1.98546-03 

13304 7010QC4 

1.7536E-06 

133050000004 

0.00006-39 

534042010004 

O.OOOOE-39 

13404 3Q1OO04 

0.00006-39 

134044010004 

0.0000E-39 

13404 5Q100C4 

O.OOOOE-39 

134046010004 

1.92746-02 

134047010004 

4.31936-03 

134050000004 

O.OOOOE-39 

535042010004 

O.OOOOE-39 

135043010004 

O.OOOOE-39 

135044010004 

O.OOOE-39 

1350450100C4 

O.OOOOE-39 

135046010004 

3.0846 E-03 

135047010004 

7.55506-03 

135050012002 

5,34606-13 

135051110004 

1.3093E— 18 

135051000004 

O.OOOOE-39 

536043010004 

O.OOOCE-39 

136044010004 

O.OOOOC-39 

136045010004 

O.OCOOE-39 

136046010004 

4.38856-14 

136047010004 

3.52756-02 

136050000004 

0.00006-39 

537043010004 

0.00006-39 

U7  ©440 1005  4 

0.00006-39 

137045010004 

0.00006-39 

13-704601  QOS  4 

f  .50896-27 

137047010004 

8.08716-03 

137950012002 

6.0044 "-05 

137051110004 

7  » 16556-09 

H15 


137091010004 

137092000304 

34004 3010004  , 

140044010004 

140049010004 

140046010004 

140047010004 

140090000004 

54003 1010M4 

140092000004 

541044010004 

241045010004 

141046010004 

141047010004 

14105 QQ12QQ2.  . 

141051110004 

141051Q10QQ4 

141052000004 

542044010004 

14204 50100C4 

142046010004 

142047010004 

142050020004 

542051120004 

142051010004 

142052000004 

54304 5Q100C4 

143046010004 

543047010004 

143050020004 

143051010004 

143052012002 

143053110004 

143053010004 

143054000004 

54404 601000 4 

1440470100C4 

14405 00 1000 4 

S44Q51Q10004 

144052000004 

544053010004 

244054000004 

545046010004 

149047010004 

249030010004 

1690? 1010004 

249052010004 

24S05 3020004 

H5O54OO9Q04 

946046010004 

.. 

14605 0010004 
I460S 1010004 
146052012002 
146053120004 
146093010004 
l $4354*00004 
567047020066 


3.7729E-08 

O.OOQGE-39 

AAAAI*^40 

u  «  uuuaE^rj  > 

O.OOOOE-39 

9.Q0QQE-39 

O.OQOCE-39 

3.8359E-Q8 

Q.GQOCE-39 

QeQQflGE-39 

0 *00006-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

4.534AE-J13- 

4.3573E-03 

1.3241E-Q2 

O.OOOOE-39 

OeOQOOE-39 

O.OOOOE-39 

O.OOOOE-39 

0.00006-39 

5.06706-18 

2.7912E-03 

5,5197^-09 

O.OOOOE-39 

0,00006-39 

Q.0Q0C6-39 

O.OOOOE-39 

O.OOOOE-39 

3.767QE-08 

1.5T38E-03 

1.4243E-04 

9. 92146-14 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOE-39 

O.OOOOt-39 

1.7443Er04 

0.000QE-39 

O.OOOOE-39 

O.OOOOE-39 

Q.OOQoE-39 

O.OOOOE-39 

e^PJQQ.g-^9 

3.41636-18 

2,3?ME-’02 

6.69S9E-02 

0,0000_£-39 

O.OOOOE-39 

O.OOOOE-39 
Q. 00006-39 
1. 22866-02 
1. 00626-02 
6.1. 97?  £-03 

6. 00006-39 

0  *0009? -  3% 


1470520100C 

147053010004 

1,4  f  05401ZOC2 

147055U00C4 

147055000CC4 

55004 70100C4 

150050010004 

150051010004 

150052010004 

150053010004 

150054000004 

550055110004 

150055010004 

15C0560000C4 

5510470100C4 

151050010004 

15105  ?.0100C4 

151052010004 

151053010004 

1510540120C2 

151055110004 

151055010004 

1510560000C4 

552047010004 

152050010004 

I52051C100C4 

1520520100C4 

152053010004 

152054020004 

55205  5120004 

15205 5010QC4 

15205 60000C4 

553050010004 

153051010004 

153052010004 

153053010004 

153054012002 

153055110004 

1530550100C4 

153056010004 

153057000004 

55405  0010iJC4 

154051010004 

154052010004 

15405 3Q1QQ&4 

1 54054010004 

154055010004 

154056000004 

555050010004 

1550510100C4 

115052010004 

155053010004 

155054012002 

1 550551 10004 

1550550U0C2 

155056110004 

193&6QJL3QA4 

155051110004 
»  5505  TO % 


O.OOOOE-39 
5.8786E-15 
9.5833E-05 
4.81246-05 
O.OOOOE-39 
0.00005-39 
0.000CE-39 
0.Q00GE-39 
7.1326E-08 
2.8551E-G2 
O.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
0.C00CE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
1.1665E-09 
5.3694E-03 
1.5127E-02 
3.1208E-03 
2.3963E-04 
O.OOOCE  -39 
O.OOOCE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
0.000CE-33 

7.59036- 06 
O.OOOOE-39 

7.59036- 00 
O.OOOOE-39 
O.OOOOE-39 
O.OOOCE-39 
O.OOOOE-39 
2.6027E-18 
1 .07476-04 
6.42046-05 
3. 0T37E-G2 
7 . 2363E-13 
O.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
1^54686-18 
4. 300 8£  *05 
4.62336-05 
O.OOOOE-39 
O.OOOOE-39 
Q.000QE-39 
0.0C00E-39 
O.OOOOE-39 
O.OOOCE-39 
3 .41496-22 
8»53?3E-22 
3. *4876-05 

i“  0,.  •  *<i 


1560520100C4 

15&053010C04 

156054019004 

156055010004 

156056000004 

357051010004 

157052010004 

157053010004 

157Q54010Q04 

157055012002 

157056112002 

157056012002 

157057110004 

157037010004 

157060000004 

560052020004 

160053010004 

160054010074 

1600550100C4 

160056010004 

1600S70190C4 

160060000004 

5619520X0904 

16103 3010004 

161054010004 

16105 50100C4 

161056010004 

141057112002 

161057010004 

161O60O0OOC4 

362052010004 

162053010004 

1©20540100C4 

162055010004 

162056010004 

162057010004 

16206000000^ 

563053010034 

163054010094 

16303 501©r  4 

1630560120u2 

163057112-01 

163057012002 

1630601 30904 

1630600X0994 

1*3061112002 

X63O61QIQQ04 

163062000004 

36405301,0004 

164054010004 

16405  SQ1QJU.4 

1*4056010004 
|64C570Vi004 
164060000004 
56305  501000** 


0a0000E-39 

O.OOOOE-39 

O.OQQ0E-39 

0.0000E-39 

0.000C6-39 

0.00006-39 

0.00006-39 

O.OOOOE-39 

O.MQfiE-39 

O.OOOOE-39 

1,36716-04 

1.02095-02 

5.4349E-03 

1.0668E-04 

а. J3M0£rl9 
0.0000E-39 
Q*QMQ£-39 

б. 0000E-39 
„ 0»000QE~39 

1 .0539E—03 
2.X546E-04 
O.OOOOE-39 
O.OOOuc-39 
O.OOOOE-39 
0.000CE-39 
O.OOOOE-39 
1 >13496-13 
7.8869E-13 
3. 1210E-03 
0 .00005* 39 
O.OOOOE-39 
O.OOOCE-39 
0,00006-39 
O.uOuGE-39 
1.4439E-08 
1.4959E-08 
0,00005-39 
0 .000"c-39 
Q*09QSE-39 
O.OOOOE-39 
1.1230E-24 
1.01075-24 
7.O97OE-03 
2. F206E-06 
..2«A034Et?4 
2.7464E-05 
4,52806-17 
O.OOOOE-39 
0,09906-39 
6=00005-39 
-jQUOM^.tiS. 

Ot 

2,9*99 E-08 
O.OOOOE-39 
0*00005 “3 > 


16306 0010004 

163061113201 

1650610200C4 

1650621100C4 

1650620000C4 

566054010004 

16605 50100C4 

16605 60100C4 

166057010004 

166060020004 

56606 11 200C4 

166G610100C4 

166062000004 

567054010004 

16705 50100C4 

167056010004 

167057012002 

167060120004 

167060010004 

167061112301 

167w61010004 

167062110004 

167062000004 

570055010004 

170056010004 

170057010004 

170Q6G0100C4 

170061010004 

170062000004 

571C550100C4 

171056010004 

171057010004 

171060012002 

171061130004 

171061020C04 

5710621200C4 

171062Q100Q4 

171063000004 

572056010004 

17205 70100C4 

17206C010004 

l72O«U0i00C4 

172062 3000C4 

57206 31 100C4 

172Q63021Q4JL 

172064000004 

573056010004 

17305 7010004 

17306 0012002 

173061130004 

)L7304J.Q£g3M. 

573062120004 
173062010004 
173063000004 
574056010004 
17453 7010004 
174060019004 
174061010004 
17406?0g000_i 
57406  3230004 


6.2691E-03 
2.5466E-03 
7.3875E-04 
3.0250E-09 
O.OOOOE-39 
OOOOOc-39 
0.000CE-39 
Q.OOOOE-39 
O.OOOOJ-39 
1.0040E-02 
2.2754E-07 
1.0057E-02 
O.OOOOE-39 
O.OOOGE-39 
0,00005-39 
O.OGOCE-39 
O.OOQOE-39 
4.3406E-08 
7.1865E-04 
9.2509E-Q3 
5.1467E-04 
1.6039E-06 
O.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
2.5491E-03 
2. 73936-03 
O.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
O.OOOOE-39 
Q.000C6-39 
2. 84286-07 
1.1871E-36 
1.9736E— 09 
6.97336—04 
OoOOOOE-39 
o.og95c-39 
O.OOOOE-39 
6.4176E-28 
5.8221E-24 
O.OOOOE-39 
1.26436-08 
5.7992E-07 
0.0CG0E-39 
G.000GE-3? 
O.OOOOE-39 
O.OOOOE-39 
7.1630E-31 
0.000GE-39 
7.957XE-97 

_  9.8968E-03 
0 .00006-39 
O.OOOOE-39 

d.oooce->9 

_ 0,000^6-39 

0.00006-39 
O.OOOOE-29 
2.  m  16-04 


574063120004 
5740630100C4 
174064000004 
575057010004 
175060010004 
175061012002 
175062120004 
175062010004 
17506 30120C2 
1750641100C4 
1750*4000004 
57605 7C10C04 
176060010004 
176Q610100Q4 
176062010004 
176063112002 
176063010004 
1760640000C4 
577057010004 
177060010004 
177061012002 
1770621200C4 
177062010004 
177063C120G2 
177064112002 
177Q64C100G4 
177065000004 
600060010004 
200061010004 
200062012002 
200063120004 
200063010004 
2Q0064000004 
600065011042 
200066000 004 
601060010004 
2010610100C4 
201062010004 
201063012002 
201064112002 
201064010004 
201065020004 
6010661 10004 
201066000004 
602060010054 
202061010004 
2O2O62012Q02 
202063120004 
202063010004 
202064000004 

6Q2Q65319M4 
202066000004 
60306 Q010004 

2030*1010004 
203062010004 
203063012002 
I0J06  4U20Q2 

2030640100-34 

293&5O120Q2 

203066113604 


3. 26Q7E-16 
3.6626  -07 
O.OOOCE-39 
O.OOOOE-39 
G.Q00CE-39 
0.00006-39 
8.30UE-04 
4.2689E-05 
5.6967E-Q7 
8.2269E-08 
9.0QGQE-39 
O.OGOCE-39 
0,00006-39 
0.000CE-39 
9*3±4ft£rl£ 
1.29846-03 
2.294CE-05 
O.OOOOE-39 
0.O000E-39 
O.OOOCE-39 
0.000QE-39 
9. 8959E-07 
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output  of  Gxpsti 

PARTICLE  SIZE 
Nl CROWS 


FISSION  PROCUCf  ACTIVITY 
.. _ IR«H«*21/H» 


7.7963E  C3 
4.3673E  02 
2.5823E  C2 
1.71686  C2 

l*JLM£OJ5 _ 

I.4075E  Cl 
3.8469E  Cl 
3.88736  Cl 
2,29856  01 
1.28796  CO 


2.6227E  C® 
5*19766  C8 
3.49856  €8 
3.61626  C8 

4.11136  C8 
4,45 3?E  03 
4.93976  OS 
5,78536  _C8 
2.48526  89 


TOTAL  PAM  OUT  PIT 


PSIZE 

FP 

’’.T965E 

C  3 

2>6392E 

C8 

A. 36736 
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3,mi£ 

C8 

2.5SZ5E 

C  2 

3.4256F 

ce 

i.?i68t 
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Cl 
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Cl 
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3.837QE 

a 

*<,95636 

C  8 

2.29856 

€  1 

5.8S18E 

ca 

i. 78756 

CO 

2«4S69i: 

€9 

NAPPED  CN  GRID  INTERVALS  CGX  *  1500,0  DGY* 


THE  OUTPUT  PRESENTATION  IS  A 
TWO*"L  1NE  E  FORMAT  MAP 


THE  quantity  PRESENTED  IS 

LOSE  RATE  NORMAL  USD  TO  TIME  H«1  HOUR. 

GROUND  ZERO  H  LOCATED  AT  X  *  IOCOOCO.O  *  Y  « 
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125C. 
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7- COORDINATE  SCALES  PC*  SIDES  OP  W»P 


1014250. 

1014250 

1012000, 

W  1.000 

1C1175G. 

1011750 

10i:?500.  ....  .... 

1010300 

1009250. 

-  —  - - 

— 

- 

1009250 

1C0800D. 

1006750. 

1005500. 

1004250. 

1003000. 

1001750. 

1000500. 


1008000 

1006750 

1005500 

1004250 

1003000 

1001750 

1000500 


999250 


999250 


o 

o 

o 

© 

o 

o 

o 

o 

o 

o 

© 

o 

o 

w* 

G 

o 

o 

o 

o 

o 

o 

o 

o 

u 

a 

Q 

u 

o 

o 

o 

;? 

”i 

o 

© 

c> 

o 

o 

o 

o 

• 

ft 

ft 

ft 

ft 

• 

* 

ft 

ft 

ft 

ft 

ft 

O  C- 

o  o 

o  o 

o  o 

o  o 

o  o 

o  o 

u  o 

G  O 

o  © 

o  © 

o  o 

©  o 

o 

o 

© 

o 

o 

p 

© 

o 

G 

© 

o 

o 

p 

o 

o 

o 

o 

o 

© 

o 

© 

o 

o 

© 

o 

o 

o 

o 

G 

o 

© 

© 

o 

© 

© 

© 

o 

c 

o 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

4 

ft 

ft 

w  O 

o  o 

o  o 

©  u 

o  o 

o  o 

o  u 

G  O 

G  O 

o  o 

G  G 

G  O 

G  O 

o 

o 

o 

o 

o 

o 

© 

© 

o 

o 

o 

o 

o 

© 

o 

o 

o 

o 

G 

o 

o 

© 

o 

o 

o 

o 

o 

o 

© 

o 

© 

© 

o 

o 

o 

G 

G 

o 

o 

• 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

t 

o  o 

o  o 

o  o 

o  c 

o  o 

o  o 

o  u 

a  © 

o  tv 

©  o 

o  © 

Q  O 

o  © 

© 

o 

o 

a 

o 

o 

o 

o 

a 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

© 

o 

© 

o 

o 

o 

u 

o 

o 

o 

o 

G 

© 

G 

u 

G 

o 

G 

* 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

6 

o  o 

o  o 

o  o 

o  o 

o  o 

o  o 

o  © 

o  © 

o  © 

o  © 

a  o 

©  o 

o  o 

• 

o 

o 

o 

o 

o 

o 

o 

o 

© 

o 

o 

p 

* 

o 

o 

o 

m 

o 

© 

c 

o 

o 

o 

o 

o 

© 

• 

o 

ft** 

H 

in 

o 

o 

o 

o 

o 

o 

© 

o 

o 

• 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

O  C' 

H  ^ 

H  fH 

—1  1-4 

O  G 

a  a 

o  o 

u  © 

o  o 

G  G 

G  G 

o  © 

o  © 

o 

o 

© 

o 

o 

o 

o 

o 

o 

© 

o 

o 

o 

o 

o 

o 

Q 

o 

r 

o 

o 

o 

o 

Q 

o 

c 

© 

u 

© 

o 

o 

o 

o 

© 

G 

© 

o 

o 

o 

U  ij 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

o 

©  o 

G  O 

G  O 

o  © 

o  o 

G  G 

G  G 

G  G 

o  o 

O  G 

G  O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

u 

o 

o 

o 

o 

o 

o 

o 

G 

o 

o 

© 

G 

o 

o 

o 

o 

o 

© 

o 

o 

© 

o 

© 

G 

o 

G 

o 

o 

o 

• 

ft 

ft 

ft 

• 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

o  o 

o  o 

W.  O 

G  O 

o  o 

G  O 

o  o 

o  © 

o  o 

Q  G 

G  G 

G  G 

o 

o 

u 

© 

© 

o 

G 

G 

G 

o 

G 

G 

o 

o 

Q 

o 

© 

o 

© 

o 

o 

o 

o 

G 

© 

© 

o 

o 

o 

© 

o 

o 

G 

o 

a 

G 

o 

o 

o 

o 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

o  c 

o  o 

o  © 

c  o 

O  Q 

o  o 

o  c 

©  © 

o  o 

o  o 

©  o 

o  o 

o  o 

u 

o 

© 

o 

O' 

o 

© 

o 

o 

G 

o 

© 

o 

g 

© 

o 

c 

+ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

© 

o 

o 

© 

0 

• 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

<-» 

G 

u  u 

©  © 

G  © 

o  o 

H  «c 

G  O 

G  G 

o  o 

O  G 

a  G 

G  O 

O  O 

G  G 

in 

o 

© 

o 

o 

o 

O' 

© 

o 

© 

o 

o 

G 

o 

o 

© 

o 

o 

in 

~«4 

in 

c 

© 

e 

o 

© 

»— ♦ 

g 

© 

© 

© 

u 

<e 

O' 

*■ 

G 

o 

o 

u 

G 

•-> 

• 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

• 

pH 

o  o 

o  c 

o  c 

u  o 

G  O 

pH  •— 4 

1-4  (V 

*“4  •*» 

G  O 

o  o 

o  o 

o  o 

o  o 

o 

o 

o 

o 

o 

G 

G 

© 

o 

o 

o 

o 

o 

© 

© 

r> 

n 

o 

o 

G 

a 

o 

o 

o 

Q 

c 

o 

© 

o 

o 

o 

o 

© 

o 

o 

o 

o 

Q 

* 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

• 

* 

o  o 

o  o 

Q  O 

o  o 

o  o 

o  o 

<•  >  o 

o  o 

o  o 

Q  O 

©  o 

O  r 

O  Q 

« 

o 

o 

o 

c 

© 

o 

G 

o 

G 

© 

o 

G 

G 

* 

c» 

© 

o 

r> 

o 

© 

© 

G 

o 

o 

o 

o 

o 

o 

o 

© 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

ft 

0 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

• 

ft 

u  o 

o  © 

e  o 

o  o 

o  o 

o  o 

o  o 

O  o 

o  o 

o  o 

o  o 

u  o 

o  o 

o 

© 

© 

o 

o 

G 

o 

© 

G 

in 

u> 

o 

o 

o 

© 

u 

o 

G 

G 

o 

p 

p 

r» 

o 

o 

© 

o 

G 

o 

o 

o 

G 

m 

Q 

o 

* 

ft 

ft 

ft 

ft 

ft 

i 

ft 

ft 

ft 

ft 

ft 

ft 

C’  o 

-4  © 

->  © 

©  CJ 

u  c 

t  1  G 

o  a 

o  o 

o 

»  <  •- 

if— 4  *-4 

o 

© 

o 

o 

o 

o 

o 

o 

© 

Q 

o 

<n 

o 

o 

o 

© 

o 

o 

o 

© 

o 

o 

o 

o 

r- 

o 

© 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

Q 

o 

O 

o 

o  o 

ft 

o  o 

ft 

o  o 

ft 

a  o 

0 

o  © 

©  © 

ft 

©  © 

ft 

©  o 

ft 

o  o 

ft 

o  © 

ft 

P-4  f-4 

• 

r>  © 

ft 

©  o 

6 

o 

o 

o 

o 

o 

o 

o 

o 

c 

o 

o 

c 

o 

© 

o 

o 

o 

o 

o 

o 

o 

G 

G 

in 

o 

c 

o 

o 

o 

ft 

o 

ft 

© 

• 

o 

ft 

© 

ft 

o 

ft 

o 

ft 

o 

ft 

o 

ft 

o 

ft 

o 

ft 

o 

• 

o 

©  o 

o  o 

©  © 

o  o 

G  © 

o  © 

O  G 

o  o 

o  o 

O  G 

M  *— 

o  o 

e»  o 

© 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

a 

o 

c 

o 

C 1 

c 

o 

© 

© 

G 

o 

© 

© 

Q 

o 

o 

© 

o 

G 

© 

u 

o 

© 

© 

o 

o 

u 

* 

* 

ft 

ft 

ft 

f 

4 

ft 

ft 

• 

ft 

ft 

• 

• 

* 

o  © 

c  o 

©  © 

c  o 

o  c 

0 

0 

Q  O 

©  o 

o  o 

©  o 

o  o 

o  o 

G  © 

* 

o 

o 

G 

a 

© 

G 

c- 

G 

G 

o 

o 

© 

♦ 

c. 

o 

o 

o 

o 

o 

o 

© 

o 

o 

© 

© 

o 

o 

© 

u 

o 

t> 

o 

© 

© 

o 

© 

o 

o 

© 

* 

ft 

A 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

• 

ft 

ft 

u  o 

o  © 

o  u 

G  O 

O  G 

G  u 

U  G 

G  G 

O  G 

g  a 

G  G 

VJ  o 

G  O 

o 

© 

© 

o 

o 

o 

© 

o 

© 

o 

a 

O' 

o 

C3 

u 

© 

o 

G 

G 

G 

o 

G 

G 

y 

<4- 

o 

© 

© 

© 

G 

© 

o 

o 

o 

G 

o 

© 

in 

G 

tv  p 

ft 

w  o 

ft 

o  © 

ft 

o  o 

G  O 

c 

o  o 

« 

C*  G 

ft 

o  a 

ft 

u  o 

ft 

C*  Q 

» 

G  O 

£%f 

ft 

O 

o 

© 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

2 

g 

g 

g 

o 

o 

o 

o 

o 

© 

o 

© 

© 

* 

Q 

© 

V 

ft 

©  C* 

© 

s 

G  ^ 

© 

ft 

o  © 

o 

• 

o  © 

o 

* 

c  o 

© 

ft 

o  o 

o 

t, 

a  o 

© 

a  a 

U) 

e 

o  e 

a 

ft 

o  © 

o 

• 

c  o 

o 

o 

♦t 

o  o 

*•*»  kts 

&£  C* 

& 

i*  ?? 


*«**»  1007000.  •••••  1C1450C 


s 

f 


: 


4 

<3 


CM 


t- 

«/) 


© 
o  o 


o  © 

•J 

o 

o 

* 

©  o 

U) 


wo 

8 

o 

oo 

§ 

o 

o  o 

© 

o 

Q 


oo  o  <s  oo  0(4  co 


§ 

o 

o  © 


i 

oo 

© 
o 
o 
,  • 

OlO 

3 

? 

9 


© 
o  c 


O  C2  o  ©  O 'm 


8 

o 

oo 


8: 

51 


o  o 

o 

p 

© 


o  o  o  o 


c 

c* 

o 


o  o!  o  o 


8 


o 

o 

o 

• 

o  o 

9 

o 

o 


o 

o 

ol 

*1 

o  o 

o 

o 

o 


§ 


© 

c 

o 


* 


o 

© 

o 

• 

o  o 

o 

o 

o 

• 

o  o 

© 

o 

© 


o  o  ©  o  ©  © 


o 

o 

o 


©  o  ©  ©  o  © 


© 

© 


Q 

Q 

© 

© 

© 

p 

a 

© 

© 

p 

© 

o 

o 

o 

o 

© 

s 

© 

3 

5 

9 

5 

o 

© 

© 

o 

o 

o 

© 

© 

© 

a 

© 

o 

o 

© 

© 

o 

o 

o 

© 

<r 

Q 

t 

©  <3 

» 

* 

• 

• 

• 

• 

• 

• 

t 

• 

f 

o 

H 

©  O 

oo 

©  a 

o© 

o  © 

©  o 

o  © 

o  o 

o  o 

o  o 

©  o 

©  © 

—4 

c 

© 

o 

© 

o 

o 

o 

© 

a 

o 

o 

o 

o 

© 

© 

o 

o 

o 

© 

o 

© 

© 

o 

o 

o 

© 

© 

© 

© 

a 

© 

© 

© 

© 

o 

© 

o 

o 

o 

• 

t 

« 

* 

4 

« 

w 

• 

• 

• 

• 

• 

• 

• 

* 

0 

o  o 

o  o 

©  © 

o  © 

oo 

©  o 

o  © 

o  o 

o  © 

©  o 

o  o 

o  o 

a  o 

* 

* 

• 

$ 

© 

u 

© 

© 

c 

t; 

c 

© 

o 

© 

o 

o 

© 

• 

© 

Q 

© 

o 

© 

© 

© 

© 

8 

o 

o 

© 

* 

5 

5 

© 

© 

© 

o 

© 

<7 

© 

o 

o 

0 

0 

• 

« 

« 

0 

• 

• 

4 

• 

• 

• 

« 

o 

O  © 

©  © 

o© 

©  u 

oo 

o  © 

oo 

©  o 

o  o 

o  o 

o  o 

©  o 

o  o 

UJ 

w 

© 

© 

o 

a 

o 

o 

o 

© 

o 

o 

o 

o 

o 

© 

© 

o 

© 

o 

© 

o 

© 

o 

o 

o 

o 

© 

f- 

o 

a 

o 

cs 

© 

© 

© 

C- 

© 

© 

o 

o 

o 

< 

U 

« 

# 

♦ 

• 

• 

* 

• 

• 

• 

• 

• 

rr* 

©  © 

©  a 

©  a 

O  U 

O’  o 

©  c 

o  © 

o  © 

o  © 

o  © 

o  o 

Q  O 

©  © 

* 

© 

© 

© 

g 

© 

Q 

o 

© 

o 

o 

o 

© 

o 

• 

© 

£ 

o 

© 

© 

c 

© 

o 

c 

o 

o 

o 

a 

© 

q 

o 

o 

o 

© 

© 

o 

o 

© 

u 

« 

• 

« 

* 

« 

c 

• 

• 

• 

• 

•> 

• 

• 

• 

• 

§ 

o  o 

o  © 

o  o 

o  dj 

oo 

o  © 

o  o 

o  o 

o  o 

o  o 

©  © 

o  © 

o  o 

o 

o 

It 

o 

© 

a 

o 

o 

o 

© 

o 

© 

© 

o 

© 

w 

tn 

</> 

o 

o 

o 

a 

o 

© 

o 

o 

© 

© 

o 

o 

o 

in 

Ui 

© 

a 

o 

a 

o 

© 

o 

o 

© 

o 

o 

o 

o 

m 

V- 

a 

« 

« 

% 

t 

• 

• 

• 

• 

• 

• 

e 

» 

• 

o 

« 

~4 

o© 

o  © 

o  o 

©  a 

©o 

©  o 

o  © 

o  o 

o 

o 

c 

© 

o  o 

u  o 

a  o 

2 

© 

© 

© 

o 

o 

© 

o 

o 

© 

o 

© 

o 

D 

o 

a 

'.1 

© 

© 

© 

© 

© 

© 

o 

o 

© 

© 

Of 

o 

© 

o 

o 

o 

© 

o 

© 

o 

o 

© 

© 

o 

CJ 

• 

• 

* 

» 

* 

9 

• 

t 

• 

« 

• 

• 

• 

• 

• 

©  © 

©  a 

o  o 

©  © 

o  © 

o  © 

o  o 

o  © 

o 

o 

o 

o 

o  o 

o  o 

o  o 

• 

S-*. 

* 

• 

a 

* 

© 

Q 

c 

a 

o 

© 

o 

© 

© 

o 

o 

© 

o 

* 

jC 

• 

© 

© 

o 

© 

© 

© 

© 

o 

o 

© 

o 

© 

o 

* 

© 

O 

o 

© 

© 

o 

o 

© 

o 

© 

o 

o 

u. 

« 

* 

t 

« 

• 

* 

« 

# 

• 

fi 

• 

• 

• 

u 

o  © 

©  a 

©  o 

©  o 

o  © 

a  © 

©  o 

u  © 

o 

© 

o 

© 

©  o 

©  © 

o  o 

© 

© 

o 

<a 

o 

© 

o 

© 

o 

© 

© 

© 

o 

© 

© 

a 

© 

<3 

u 

© 

© 

© 

© 

© 

© 

© 

© 

to 

© 

a 

Q 

a 

o 

© 

o 

o 

o 

a 

o 

© 

o 

* 

« 

« 

o  <3 

• 

II 

• 

♦ 

• 

• 

• 

0 

• 

©  © 

©  a 

©  o 

o  © 

o  o 

o  o 

o  o 

o 

o 

o 

a 

o  © 

©  o 

o  © 

© 

a 

o 

o 

© 

a 

o 

© 

o 

© 

o 

© 

© 

8 

8 

8 

8 

8 

8 

8 

8 

© 

o 

8 

8 

8 

§ 

• 

* 

« 

• 

* 

9 

• 

• 

• 

• 

• 

t 

• 

» 

Q  © 

o  a 

©  © 

©a 

©  © 

o  © 

o  o 

©  © 

o  © 

o 

© 

o  o 

o  © 

a  © 

* 

9 


496 
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REQUEST  HUMBER  2 


TYPE  10 


T!  =  -C.0 


0.0 


OUTPUT  OF  NCHDfcP 


PARTICLE 

SIZE 

ACTIVITY  Or  r* 

HICRCNS 

FI  SMC 

v*  * 

7.7965E 

C  3 

2.1632T 

4.3673E 

C2 

-M6919E 

L  1 

2.58253 

C2 

3-03? i; 

2  • 

1.7168F 

C2 

3.4307F 

2  i. 

1.1 94CC 

C2 

? .S  39 

n 

8.4075c 

Cl 

4.5898F 

l  i 

5.94696 

Cl 

5.5290F 

21 

3.8870E 

Cl 

7.01696 

t 

2.29855 

Cl 

9.9243F 

2  l 

1.28756 

cc 

1.0269c 

23 

TCTAL  ABUNCANCE  OF+HASS  CHAU.  69  WAS  1.450 


TOTAL  PAH  OUTPUT 


PS1ZE 

EP 

7.7965E 

C3 

2.1632E 

21 

4.36736 

C2 

2.69196 

2 1 

2.5825E 

C  2 

3.C321E 

21 

1.71606 

C2 

3.4307E 

21 

1.1 9402 

C2 

3.92936 

1 

JL  * 

8.4075E 

Cl 

4.5898F 

21 

5.8469F 

Cl 

5.5lr  3E 

21 

3.8870E 

01 

7.0169F 

21 

2.29856 

Cl 

9.9243E 

21 

1.2875F 

CO 

1.0269E 

23 

PAPPEC  C'N  GRID  INTERVALS  CGX  »  1500. P 


7HE  OUTPUT  PRESENTATION  IS  A 
TWO-LINE  £  FORPAT  HAP 


THE  QUANTITY  PRESENTED  t S 

ACTIVITY  AT  riPE  -O.C  UUL  TO  HASS  CHAIN 

4SSUNES  ALL  PARTICLES  ARE  GROUNDED  BY  U. 
6RUUND  ZERO  IS  QCATEO  AT  X  *  IOOOOOO. 0  , 


U29 


HASCHN  *  39 


CE  23  FISSIONS 


OGY«  1250. 0 


BN 

Y  «  1CC000C.0 


Y-SQQR0INAT6  ICAkil  f§»  IIBCS  OF  W? 


101*290. 
1013 QOQ.  _ 
1011790* 
1010900. 
1009290. 

1008000. 

1306750. 

1C05500, 

1004250. 

1003000. 

1001750. 

1C00500. 

999250. 


1014230. 

1013000. 

1011730. 

,1010500. 

1009250. 

1008000. 

1006750. 

1005500. 

1004250. 

1003000. 

1001750. 

1000500. 

'  9250, 
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